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
Gracias,
Rafael