Initial commit — sursa COMUN (framework partajat ROA)

utile/ListProperty/archivo1.txt

@@ -0,0 +1,10 @@
+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