FiveTech Support Forums

#include "fivewin.ch"

FUNCTION MAIN()

 LOCAL oDlg
 LOCAL oGet1 , cGet1 := SPACE( 4 )
 LOCAL oGet2 , cGet2 := SPACE( 4 )

 DEFINE DIALOG oDlg

 @ 1 , 1 GET oGet1 VAR cGet1 OF oDlg

 @ 3 , 1 GET oGet2 VAR cGet2 OF oDlg

 oGet1:bKeyChar := { | nKey | fun_get( oGet1 , nKey ) }

 ACTIVATE DIALOG oDlg  CENTER

RETURN NIL


FUNCTION FUN_GET( oGet , nKey )
LOCAL cGet := oGet:varget()

IF CHR( nKey ) = "/"

   // I have to assign PADR( "/" , 4 ) to oGet and exit from it
   // new focus has to be in oget2

ENDIF

RETURN NIL

#include "fivewin.ch"

FUNCTION MAIN()

 LOCAL oDlg
 LOCAL oGet1 , cGet1 := SPACE( 4 )
 LOCAL oGet2 , cGet2 := SPACE( 4 )

 DEFINE DIALOG oDlg

 @ 1 , 1 GET oGet1 VAR cGet1 OF oDlg

 @ 3 , 1 GET oGet2 VAR cGet2 OF oDlg

 oGet1:bKeyChar := { | nKey | fun_get( oGet1, oGet2, nKey ) }

 ACTIVATE DIALOG oDlg  CENTER

RETURN NIL


FUNCTION FUN_GET( oGet1, oGet2, nKey )
LOCAL cGet := oGet1:varget()

IF CHR( nKey ) = "/"

   // I have to assign PADR( "/" , 4 ) to oGet and exit from it
   // new focus has to be in oget2

   oGet1:VarPut( PADR( "/" , 4 ) )
   oGet1:Refresh()

   oGet2:SetFocus()

ENDIF

RETURN NIL