Initial commit — sursa COMUN (framework partajat ROA)

utile/ListProperty/Holidays.ini

@@ -0,0 +1,39 @@
+[Enero]
+Days=01
+Day01Tips=D<EFBFBD>a de mi programa
+
+[Febrero]
+Days=14
+Day14Tips=D<EFBFBD>a de la amistad
+
+[Abril]
+Days=17,18
+Day17Tips=
+Day18Tips=
+
+[Mayo]
+Days=01
+Day01Tips=
+
+[Julio]
+Days=28,29
+Day28Tips=Fiestas patrias
+Day29Tips=Desfile militar
+
+[Agosto]
+Days=30
+Day30Tips=Santa Rosa de Lima
+
+[Octubre]
+Days=08
+Day08Tips=8 Octubre
+
+[Noviembre]
+Days=01
+Day01Tips=
+
+[Diciembre]
+Days=08,25
+Day08Tips=Dia de San Guchito
+Day25Tips=Navidad!!! ... Nacimiento del ni<6E>o Jes<65>s
+

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

utile/ListProperty/programa1.prg

@@ -0,0 +1,10 @@
+colMyCollection=CREATEOBJECT("Collection")
+frm1=CREATEOBJECT("Form")
+frm2=CREATEOBJECT("Form")
+colMyCollection.Add(frm1)
+colMyCollection.Add(frm2)
+colMyCollection.Add("Item 1")
+colMyCollection.Add("Item 2")
+colMyCollection.Add("Item 3")
+Form1.lstMyList.RowSourceType = 10
+Form1.lstMyList.RowSource = "colMyCollection, Caption, Name"