FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cCli := 23

    DEFINE DIALOG oDlg

    @ 1, 1 GET cCli SIZE 100, 13 RIGHT

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

    ACTIVATE DIALOG oDlg

    RETURN NIL

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oGet

    LOCAL cCli := 23

    DEFINE DIALOG oDlg

    @ 1, 1 GET oGet VAR cCli SIZE 100, 13 RIGHT ;
       VALID ( oGet:Refresh(), .T. ) 

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

    ACTIVATE DIALOG oDlg

    RETURN NIL

  #ifndef __CLIPPER__
               if nKey == VK_RETURN  // Execute DEFPUSHBUTTON Action
                  ::Super:KeyChar( nKey, nFlags )
               endif
           #endif

           if lAnd( ::nStyle, ES_RIGHT )  // new
              ::Refresh()                 // new
           endif                          // new 

           return 0