How to implement GETACTIVE()?
Posted: Tue Oct 27, 2020 10:50 am
I need to implemente a generic GETACTIVE() function (just like the old Clipper one). Any suggestion? This is a sample of what I need:
EMG
- Code: Select all Expand view
- #include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL cVr1 := SPACE( 30 )
LOCAL cVr2 := SPACE( 30 )
DEFINE DIALOG oDlg
@ 1, 1 GET cVr1 VALID !EMPTY( GETACTIVE():VarGet() ) // !EMPTY( cVr1 )
@ 3, 1 GET cVr2
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
EMG