General information
Category:
Coding, syntax & commands
Title:
_screen resizing issue
Gang,
If you run the following code you will see how to tell if the user resizes
oForm = CREATEOBJECT("frmTest")
oForm.Show(1)
DEFINE CLASS frmTest AS Form
Caption = "Resize or move the form"
PROCEDURE INIT
*---------------------------------------------------------------------
* Set the API calls for intercepting the Windoes resizing messages
*---------------------------------------------------------------------
#define WM_EXITSIZEMOVE 0x0232
#define BE_FireAfterEvent 0
BINDEVENT(ThisForm.HWnd, WM_EXITSIZEMOVE, ;
ThisForm, "OnWindowResizeExit", ;
BE_FireAfterEvent)
BINDEVENT(_Screen.HWnd, WM_EXITSIZEMOVE, ;
ThisForm, "OnWindowResizeExit", ;
BE_FireAfterEvent)
ENDPROC
PROCEDURE OnWindowResizeExit
LPARAMETERS hWnd, nMsg, nwParam, nlParam
ThisForm.Caption = "Now, try resizing or moving the VFP Screen"
MESSAGEBOX("Finished Resizing or Moving")
ENDPROC
ENDDEFINE
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only