11 lines
288 B
Plaintext
11 lines
288 B
Plaintext
nControls = ASelObj(aObjects)
|
|
If nControls = 0
|
|
nControls = ASelObj(aObjects, 1)
|
|
EndIf
|
|
oObject = aObjects(1)
|
|
If oObject.Class = "_sbrstatusbar"
|
|
Set Classlib To (oObject.ClassLibrary)
|
|
oPageProperty = Createobject("_pgeProperty", oObject)
|
|
oPageProperty.Show()
|
|
EndIf
|