FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

   LOCAL oDlg

   LOCAL oGet, nVar := 10

   DEFINE DIALOG oDlg 

   @ 1, 1 GET oGet VAR nVar;
          PICTURE "99";
          SPINNER MIN 6 MAX 99;
          SIZE 100, 10

   @ 3, 1 BUTTON "&Close";
          ACTION oDlg:End()

   ACTIVATE DIALOG oDlg; 
            CENTER

   RETURN NIL

   ACTIVATE DIALOG oDlg; 
            CENTER on init oGet:nHeight := 10