- Code: Select all Expand view
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL nVar := 10
DEFINE DIALOG oDlg
@ 1, 1 GET nVar;
PICTURE "@E 999.99 %";
RIGHT
@ 3, 1 BUTTON "&Close";
ACTION oDlg:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
EMG
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL nVar := 10
DEFINE DIALOG oDlg
@ 1, 1 GET nVar;
PICTURE "@E 999.99 %";
RIGHT
@ 3, 1 BUTTON "&Close";
ACTION oDlg:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 66 guests