- Code: Select all Expand view RUN
- #include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
DEFINE DIALOG oDlg
oDlg:nStyle = NOR( oDlg:nStyle, WS_THICKFRAME )
@ 0, 0 TO 0, 0
@ 2, 2 SAY "This is a test"
oDlg:bResized = { || ResizeDlg( oDlg ) }
ACTIVATE DIALOG oDlg;
ON INIT ResizeDlg( oDlg );
CENTER
RETURN NIL
STATIC FUNCTION RESIZEDLG( oDlg )
LOCAL oGrp := oDlg:aControls[ 1 ]
oGrp:Move( 20, 20, oDlg:nWidth() - 40, oDlg:nHeight() - 60, .T. )
RETURN NIL
Thank you in advance.
EMG