FiveTech Software tech support forums

Code: Select all

#include "FiveWin.ch"

FUNCTION Main()
Local oWnd, oDlg1, oDlg2
   Define Window oWnd From 0,0 To 400,300 Pixel Title "Test de Resize" Color CLR_BLACK, CLR_WHITE

   @ 30,20 Say "Este resiza bien:" Of oWnd Size 100,20 Pixel
   Define Dialog oDlg1 From 50,20 to 120,100 Pixel Of oWnd Style WS_CHILD+WS_THICKFRAME
   Activate Dialog oDlg1 NoWait

   @ 30,140 Say "Este resiza mal:" Of oWnd Size 100,20 Pixel
   Define Dialog oDlg2 From 50,140 to 60,220 Pixel Of oWnd Style WS_CHILD+WS_THICKFRAME
   Activate Dialog oDlg2 NoWait

   Activate Window oWnd
Return Nil