Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
CREATE CURSOR mytable (myscript M)
INSERT Blank
replace myscript WITH [wait window "test"]+CHR(13)+CHR(10)+[MESSAGEBOX("test", 0, "Title")]
ON KEY LABEL F9 EXECSCRIPT(mytable.myscript)
3) hotkey.hotkey=F12
hotkey.do=wait window "hallo"
ON KEY LABEL &hot execscript("&ldo")
ON KEY LABEL &hot execscript("wait window "hallo"")
ON KEY LABEL &hot execscript([&ldo])
ldo=ALLTRIM(hotkey.do)
ldo=StrTran(lDo,["],["+'"'+"]) && make quotes safe
ON KEY LABEL &hot execscript("&ldo")
ON KEY LABEL F6 iif( vartype(_screen.activeform='O' and PEMSTATUS(_screen.activeform,'movecur',5), _SCREEN.ActiveForm.MoveCur(),'')
SCAN
hot = ALLTRIM(hotkey.hotkey)
ldo = ALLTRIM(hotkey.do)
ldo=StrTran(ldo,["],["+'"'+"]) && make quotes safe
* Determine if we need a public var
ALINES(myarray,ldo,.F.,CHR(13))
IF ALEN(myarray)=1
* this code works
ON KEY LABEL &hot execscript("&ldo")
ELSE
* This Will Work
* (the sys(2015) starts with a "_" so we don't need it here)
lMacroVar = 'gc_macro'+sys(2015)
PUBLIC &lMacroVar
&lMacroVar = ldo
ON KEY LABEL &hot execscript(&lMacroVar)
ENDIF
ENDSCAN
RELEASE ALL LIKE gc_macro_*