- Code: Select all Expand view
- #include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL cVar := SPACE( 30 )
LOCAL nVar := 0
DEFINE DIALOG oDlg
@ 1, 1 GET cVar
@ 3, 1 GET nVar;
PICTURE "@EZ 999,999.99";
RIGHT
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
EMG
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL cVar := SPACE( 30 )
LOCAL nVar := 0
DEFINE DIALOG oDlg
@ 1, 1 GET cVar
@ 3, 1 GET nVar;
PICTURE "@EZ 999,999.99";
RIGHT
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 102 guests