Skip to content

Instantly share code, notes, and snippets.

@MarkGoldberg MarkGoldberg/SWP_HWND.equ
Last active Aug 29, 2015

Embed
What would you like to do?
Clarion Equates for SWP_ and HWND_ Z Order
OMIT('*** IFDEF ***', SWP_NOSIZE)
SWP_NOSIZE equate(0001h)
SWP_NOMOVE equate(0002h)
SWP_NOZORDER equate(0004h)
SWP_NOREDRAW equate(0008h)
SWP_NOACTIVATE equate(0010h)
SWP_FRAMECHANGED equate(0020h) !The frame changed: send WM_NCCALCSIZE
SWP_SHOWWINDOW equate(0040h)
SWP_HIDEWINDOW equate(0080h)
SWP_NOCOPYBITS equate(0100h)
SWP_NOOWNERZORDER equate(0200h) !Don't do owner Z ordering
SWP_NOSENDCHANGING equate(0400h) !Don't send WM_WINDOWPOSCHANGING
SWP_DRAWFRAME equate(SWP_FRAMECHANGED)
SWP_NOREPOSITION equate(SWP_NOOWNERZORDER)
SWP_DEFERERASE equate(2000h)
SWP_ASYNCWINDOWPOS equate(4000h)
HWND_TOP equate(0)
HWND_BOTTOM equate(1)
HWND_TOPMOST equate(-1)
HWND_NOTOPMOST equate(-2)
!END-OMIT('*** IFDEF ***', SWP_NOSIZE)
!example use:
! SetWindowPos (HWND pThisWindow, HWND pWndInsertAfter,mgInt argx, mgInt argy, mgInt argcx, mgInt argcy, UINT argFlags),BOOL,Pascal,PROC !returns 0 if failed
! if lcl.AlwaysOnTop
! SetWindowPos(TSIMMMainWindow{prop:handle},HWND_TOPMOST ,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE) ! Always on top
! else
! SetWindowPos(TSIMMMainWindow{prop:handle},HWND_NOTOPMOST,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE) !NOT Always on top
! end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.