| Code Block |
|---|
Object.RegisterScript(toScriptObject, tcScriptMethod
[, tnZOrder [, tcPageScope [, tnNumberingType]]]) |
...
Applies To: XFRX#INIT, XFRX#LISTENER, oXFRX
XFRX version: 2324.0 for oXFRX
Examples
| Code Block |
|---|
LOCAL m.lnErr
m.loXFRX=EVALUATE([xfrx("XFRX#INIT")])
m.lnErr=m.loXFRX.SetParams(,,,,.T.,,"XFF")
IF m.lnErr=0
m.loScripts = CREATEOBJECT("myXFRXScripts")
m.loXFRX.registerScript(loScripts, "drawBlueRectangle",0, "ALL", 0)
m.loXFRX.unregisterAllScripts()
ENDIF
DEFINE CLASS myXFRXScripts AS CUSTOM
PROCEDURE drawBlueRectangle
LPARAMETERS m.oXFD
m.oXFD.setColor(0,0,255,-1,-1,-1)
m.oXFD.drawRectangle(100,200,50,50)
ENDPROC
ENDDEFINE |
...