>LPARAMETERS tcCommand, tnDelay, toThis, toThisform >LOCAL lcThisVarname, lcThisFormVarname, loTimer > >tnDelay = Param_Val(tnDelay,200) >lcScript = tcCommand >lcCRLF = CHR(13)+CHR(10) > >IF VARTYPE(toThis) = "O" > lcThisVarname = "hg_" + SYS(2015) > RELEASE &lcThisVarname > PUBLIC &lcThisVarname > STORE toThis TO (lcThisVarname) > lcScript = STRTRAN(lcScript,"this.",lcThisVarname + ".",1,-1,1) > lcScript = lcScript + lcCRLF + "RELEASE " + lcThisVarname >ENDIF > >IF VARTYPE(toThisform) = "O" > lcThisFormVarname = "hg_" + SYS(2015) > RELEASE &lcThisFormVarname > PUBLIC &lcThisFormVarname > STORE toThisform TO (lcThisFormVarname) > lcScript = STRTRAN(lcScript,"thisform.",lcThisFormVarname + ".",1,-1,1) > lcScript = lcScript + lcCRLF + "RELEASE " + lcThisFormVarname >ENDIF > >lcScript = "lparameters toTimer" + lcCRLF + lcScript > >_SCREEN.oapp.addproperty("oHGTimer",NEWOBJECT("timer_adhoc","proctrls.vcx","",lcScript,tnDelay,.T.,.T.,.T.)) >