Marius Mutu
0acdff9647
Migrated from the ROACONT SVN trunk working copy for hosting on gitea.romfast.ro.
11 lines
278 B
Plaintext
11 lines
278 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
|