Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
BIN
utile/ListProperty/Calendar.bmp
Normal file
|
After Width: | Height: | Size: 1.3 KiB |
BIN
utile/ListProperty/Calendar.ico
Normal file
|
After Width: | Height: | Size: 1.4 KiB |
BIN
utile/ListProperty/CalendarButton.bmp
Normal file
|
After Width: | Height: | Size: 1.3 KiB |
BIN
utile/ListProperty/ColorButton.bmp
Normal file
|
After Width: | Height: | Size: 1.3 KiB |
BIN
utile/ListProperty/Colors.bmp
Normal file
|
After Width: | Height: | Size: 1.3 KiB |
BIN
utile/ListProperty/Colors.ico
Normal file
|
After Width: | Height: | Size: 1.4 KiB |
39
utile/ListProperty/Holidays.ini
Normal file
@@ -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
|
||||
|
||||
BIN
utile/ListProperty/Library.bmp
Normal file
|
After Width: | Height: | Size: 1.3 KiB |
BIN
utile/ListProperty/Property.bmp
Normal file
|
After Width: | Height: | Size: 1.3 KiB |
BIN
utile/ListProperty/VE_SIZEB.CUR
Normal file
|
After Width: | Height: | Size: 326 B |
BIN
utile/ListProperty/WinCalendar.bmp
Normal file
|
After Width: | Height: | Size: 1.3 KiB |
3253
utile/ListProperty/_lproperty.vc2
Normal file
10
utile/ListProperty/archivo1.txt
Normal file
@@ -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
|
||||
BIN
utile/ListProperty/custom.pal
Normal file
241
utile/ListProperty/frmcalendar.sc2
Normal file
@@ -0,0 +1,241 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frmcalendar.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
DataSource = .NULL.
|
||||
Height = 0
|
||||
Left = 0
|
||||
Name = "Dataenvironment"
|
||||
Top = 0
|
||||
Width = 0
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS form1 AS form
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Calendar" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="btnOk" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="btnCancel" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
AutoCenter = .T.
|
||||
BorderStyle = 2
|
||||
Caption = "Calendario"
|
||||
DoCreate = .T.
|
||||
Height = 200
|
||||
Icon = calendar.ico
|
||||
MaxButton = .F.
|
||||
MinButton = .F.
|
||||
Name = "Form1"
|
||||
ShowTips = .T.
|
||||
Width = 194
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'btnCancel' AS commandbutton WITH ;
|
||||
Cancel = .T., ;
|
||||
Caption = "\<Cancelar", ;
|
||||
FontName = "MS Sans Serif", ;
|
||||
Height = 23, ;
|
||||
Left = 124, ;
|
||||
Name = "btnCancel", ;
|
||||
TabIndex = 3, ;
|
||||
Top = 174, ;
|
||||
Width = 67
|
||||
*< END OBJECT: BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'btnOk' AS commandbutton WITH ;
|
||||
Caption = "\<Aceptar", ;
|
||||
FontName = "MS Sans Serif", ;
|
||||
Height = 23, ;
|
||||
Left = 55, ;
|
||||
Name = "btnOk", ;
|
||||
TabIndex = 2, ;
|
||||
Top = 174, ;
|
||||
Width = 67
|
||||
*< END OBJECT: BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Calendar' AS _calendar WITH ;
|
||||
date = (Date()), ;
|
||||
extradayforecolor = sys:15, ;
|
||||
Height = 172, ;
|
||||
Left = 1, ;
|
||||
Name = "Calendar", ;
|
||||
saturdayforecolor = sys:18, ;
|
||||
selecteddaybackcolor = sys:13, ;
|
||||
selecteddayforecolor = sys:14, ;
|
||||
showholidaytips = .T., ;
|
||||
Top = -1, ;
|
||||
Width = 192, ;
|
||||
shpTitleBar.Name = "shpTitleBar", ;
|
||||
cusFuncs.Name = "cusFuncs", ;
|
||||
btnButton_1.btnButton.Name = "btnButton", ;
|
||||
btnButton_1.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_1.Name = "btnButton_1", ;
|
||||
btnButton_2.btnButton.Name = "btnButton", ;
|
||||
btnButton_2.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_2.Name = "btnButton_2", ;
|
||||
btnButton_3.btnButton.Name = "btnButton", ;
|
||||
btnButton_3.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_3.Name = "btnButton_3", ;
|
||||
btnButton_4.btnButton.Name = "btnButton", ;
|
||||
btnButton_4.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_4.Name = "btnButton_4", ;
|
||||
btnButton_5.btnButton.Name = "btnButton", ;
|
||||
btnButton_5.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_5.Name = "btnButton_5", ;
|
||||
btnButton_6.btnButton.Name = "btnButton", ;
|
||||
btnButton_6.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_6.Name = "btnButton_6", ;
|
||||
btnButton_7.btnButton.Name = "btnButton", ;
|
||||
btnButton_7.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_7.Name = "btnButton_7", ;
|
||||
btnButton_8.btnButton.Name = "btnButton", ;
|
||||
btnButton_8.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_8.Name = "btnButton_8", ;
|
||||
btnButton_9.btnButton.Name = "btnButton", ;
|
||||
btnButton_9.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_9.Name = "btnButton_9", ;
|
||||
btnButton_10.btnButton.Name = "btnButton", ;
|
||||
btnButton_10.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_10.Name = "btnButton_10", ;
|
||||
btnButton_11.btnButton.Name = "btnButton", ;
|
||||
btnButton_11.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_11.Name = "btnButton_11", ;
|
||||
btnButton_12.btnButton.Name = "btnButton", ;
|
||||
btnButton_12.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_12.Name = "btnButton_12", ;
|
||||
btnButton_13.btnButton.Name = "btnButton", ;
|
||||
btnButton_13.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_13.Name = "btnButton_13", ;
|
||||
btnButton_14.btnButton.Name = "btnButton", ;
|
||||
btnButton_14.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_14.Name = "btnButton_14", ;
|
||||
btnButton_15.btnButton.Name = "btnButton", ;
|
||||
btnButton_15.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_15.Name = "btnButton_15", ;
|
||||
btnButton_16.btnButton.Name = "btnButton", ;
|
||||
btnButton_16.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_16.Name = "btnButton_16", ;
|
||||
btnButton_17.btnButton.Name = "btnButton", ;
|
||||
btnButton_17.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_17.Name = "btnButton_17", ;
|
||||
btnButton_18.btnButton.Name = "btnButton", ;
|
||||
btnButton_18.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_18.Name = "btnButton_18", ;
|
||||
btnButton_19.btnButton.Name = "btnButton", ;
|
||||
btnButton_19.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_19.Name = "btnButton_19", ;
|
||||
btnButton_20.btnButton.Name = "btnButton", ;
|
||||
btnButton_20.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_20.Name = "btnButton_20", ;
|
||||
btnButton_21.btnButton.Name = "btnButton", ;
|
||||
btnButton_21.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_21.Name = "btnButton_21", ;
|
||||
btnButton_22.btnButton.Name = "btnButton", ;
|
||||
btnButton_22.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_22.Name = "btnButton_22", ;
|
||||
btnButton_23.btnButton.Name = "btnButton", ;
|
||||
btnButton_23.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_23.Name = "btnButton_23", ;
|
||||
btnButton_24.btnButton.Name = "btnButton", ;
|
||||
btnButton_24.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_24.Name = "btnButton_24", ;
|
||||
btnButton_25.btnButton.Name = "btnButton", ;
|
||||
btnButton_25.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_25.Name = "btnButton_25", ;
|
||||
btnButton_26.btnButton.Name = "btnButton", ;
|
||||
btnButton_26.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_26.Name = "btnButton_26", ;
|
||||
btnButton_27.btnButton.Name = "btnButton", ;
|
||||
btnButton_27.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_27.Name = "btnButton_27", ;
|
||||
btnButton_28.btnButton.Name = "btnButton", ;
|
||||
btnButton_28.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_28.Name = "btnButton_28", ;
|
||||
btnButton_29.btnButton.Name = "btnButton", ;
|
||||
btnButton_29.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_29.Name = "btnButton_29", ;
|
||||
btnButton_30.btnButton.Name = "btnButton", ;
|
||||
btnButton_30.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_30.Name = "btnButton_30", ;
|
||||
btnButton_31.btnButton.Name = "btnButton", ;
|
||||
btnButton_31.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_31.Name = "btnButton_31", ;
|
||||
btnButton_32.btnButton.Name = "btnButton", ;
|
||||
btnButton_32.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_32.Name = "btnButton_32", ;
|
||||
btnButton_33.btnButton.Name = "btnButton", ;
|
||||
btnButton_33.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_33.Name = "btnButton_33", ;
|
||||
btnButton_34.btnButton.Name = "btnButton", ;
|
||||
btnButton_34.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_34.Name = "btnButton_34", ;
|
||||
btnButton_35.btnButton.Name = "btnButton", ;
|
||||
btnButton_35.LBLBUTTON.Name = "LBLBUTTON", ;
|
||||
btnButton_35.Name = "btnButton_35", ;
|
||||
btnButton_36.btnButton.Name = "btnButton", ;
|
||||
btnButton_36.lblButton.Name = "lblButton", ;
|
||||
btnButton_36.Name = "btnButton_36", ;
|
||||
btnButton_37.btnButton.Name = "btnButton", ;
|
||||
btnButton_37.lblButton.Name = "lblButton", ;
|
||||
btnButton_37.Name = "btnButton_37", ;
|
||||
btnButton_38.btnButton.Name = "btnButton", ;
|
||||
btnButton_38.lblButton.Name = "lblButton", ;
|
||||
btnButton_38.Name = "btnButton_38", ;
|
||||
btnButton_39.btnButton.Name = "btnButton", ;
|
||||
btnButton_39.lblButton.Name = "lblButton", ;
|
||||
btnButton_39.Name = "btnButton_39", ;
|
||||
btnButton_40.btnButton.Name = "btnButton", ;
|
||||
btnButton_40.lblButton.Name = "lblButton", ;
|
||||
btnButton_40.Name = "btnButton_40", ;
|
||||
btnButton_41.btnButton.Name = "btnButton", ;
|
||||
btnButton_41.lblButton.Name = "lblButton", ;
|
||||
btnButton_41.Name = "btnButton_41", ;
|
||||
btnButton_42.btnButton.Name = "btnButton", ;
|
||||
btnButton_42.lblButton.Name = "lblButton", ;
|
||||
btnButton_42.Name = "btnButton_42", ;
|
||||
spnYear.Name = "spnYear", ;
|
||||
CBOMONTH.Name = "CBOMONTH", ;
|
||||
lblTitleDay1.Name = "lblTitleDay1", ;
|
||||
lblTitleDay2.Name = "lblTitleDay2", ;
|
||||
lblTitleDay3.Name = "lblTitleDay3", ;
|
||||
lblTitleDay4.Name = "lblTitleDay4", ;
|
||||
lblTitleDay5.Name = "lblTitleDay5", ;
|
||||
lblTitleDay6.Name = "lblTitleDay6", ;
|
||||
lblTitleDay7.Name = "lblTitleDay7", ;
|
||||
btnNext.Name = "btnNext", ;
|
||||
btnPrevious.Name = "btnPrevious", ;
|
||||
shpTodaybar.Name = "shpTodaybar", ;
|
||||
Label7.Name = "Label7", ;
|
||||
lblToday.Name = "lblToday", ;
|
||||
btnToday.Name = "btnToday"
|
||||
*< END OBJECT: ClassLib="_lproperty.vcx" BaseClass="container" />
|
||||
|
||||
PROCEDURE Init
|
||||
*This.Calendar.Date = Gomonth(Date(), 5)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Load
|
||||
Set Talk off
|
||||
Set Century Off
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE btnCancel.Click
|
||||
ThisForm.Release()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE btnOk.Click
|
||||
sFecha = Dtoc(ThisForm.Calendar.Date)
|
||||
MessageBox(sFecha)
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
101
utile/ListProperty/frmexample.sc2
Normal file
@@ -0,0 +1,101 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frmexample.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
DataSource = .NULL.
|
||||
Height = 200
|
||||
Left = 1
|
||||
Name = "Dataenvironment"
|
||||
Top = 220
|
||||
Width = 520
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Cursor1' AS cursor WITH ;
|
||||
Alias = "lproperty", ;
|
||||
CursorSource = lproperty.dbf, ;
|
||||
Height = 90, ;
|
||||
Left = 10, ;
|
||||
Name = "Cursor1", ;
|
||||
Top = 20, ;
|
||||
Width = 90
|
||||
*< END OBJECT: BaseClass="cursor" />
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS form1 AS form
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Listproperty1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Listproperty1.ctnBox.grdList.clmProperty.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Listproperty1.ctnBox.grdList.clmValue.Text1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
AllowOutput = .F.
|
||||
AutoCenter = .T.
|
||||
BorderStyle = 3
|
||||
Caption = "Propiedades"
|
||||
DoCreate = .T.
|
||||
Height = 444
|
||||
Name = "form1"
|
||||
Width = 297
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Listproperty1' AS listproperty WITH ;
|
||||
Anchor = 15, ;
|
||||
Height = 442, ;
|
||||
Left = 0, ;
|
||||
Name = "Listproperty1", ;
|
||||
Top = 0, ;
|
||||
Width = 295, ;
|
||||
ctnBox.btnButton.Name = "btnButton", ;
|
||||
ctnBox.cboCombo.Name = "cboCombo", ;
|
||||
ctnBox.ctnSplitter.Name = "ctnSplitter", ;
|
||||
ctnBox.grdList.clmProperty.ControlSource = "lproperty.property", ;
|
||||
ctnBox.grdList.clmProperty.Header1.Name = "Header1", ;
|
||||
ctnBox.grdList.clmProperty.Name = "clmProperty", ;
|
||||
ctnBox.grdList.clmValue.ControlSource = "lproperty.display", ;
|
||||
ctnBox.grdList.clmValue.Header1.Name = "Header1", ;
|
||||
ctnBox.grdList.clmValue.Name = "clmValue", ;
|
||||
ctnBox.grdList.Name = "grdList", ;
|
||||
ctnBox.grdList.RecordSource = "lproperty", ;
|
||||
ctnBox.Name = "ctnBox", ;
|
||||
ctnBox.txtTextbox.Name = "txtTextbox", ;
|
||||
cusFuncs.Name = "cusFuncs"
|
||||
*< END OBJECT: ClassLib="_lproperty.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Listproperty1.ctnBox.grdList.clmProperty.Text1' AS textbox WITH ;
|
||||
BackColor = 192,192,192, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Listproperty1.ctnBox.grdList.clmValue.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Load
|
||||
Set Talk Off
|
||||
Set Deleted On
|
||||
Set Century On
|
||||
Set Notify Off
|
||||
Set Confirm Off
|
||||
Set Debug Off
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
95
utile/ListProperty/lProperty.pj2
Normal file
@@ -0,0 +1,95 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="lproperty.pjx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
LPARAMETERS tcDir
|
||||
|
||||
lcCurdir = SYS(5)+CURDIR()
|
||||
CD ( EVL( tcDir, JUSTPATH( SYS(16) ) ) )
|
||||
|
||||
*<DevInfo>
|
||||
_Author = ""
|
||||
_Company = ""
|
||||
_Address = ""
|
||||
_City = ""
|
||||
_State = ""
|
||||
_PostalCode = ""
|
||||
_Country = ""
|
||||
*--
|
||||
_Comments = ""
|
||||
_CompanyName = ""
|
||||
_FileDescription = ""
|
||||
_LegalCopyright = ""
|
||||
_LegalTrademark = ""
|
||||
_ProductName = ""
|
||||
_MajorVer = ""
|
||||
_MinorVer = ""
|
||||
_Revision = ""
|
||||
_LanguageID = ""
|
||||
_AutoIncrement = "0"
|
||||
*</DevInfo>
|
||||
|
||||
|
||||
*<BuildProj>
|
||||
*<.HomeDir = 'd:\marius\foxpro\listproperty\listproperty' />
|
||||
|
||||
FOR EACH loProject IN _VFP.Projects FOXOBJECT
|
||||
loProject.Close()
|
||||
ENDFOR
|
||||
|
||||
STRTOFILE( '', '__newproject.f2b' )
|
||||
BUILD PROJECT lProperty.pjx FROM '__newproject.f2b'
|
||||
FOR EACH loProject IN _VFP.Projects FOXOBJECT
|
||||
loProject.Close()
|
||||
ENDFOR
|
||||
|
||||
MODIFY PROJECT 'lProperty.pjx' NOWAIT NOSHOW NOPROJECTHOOK
|
||||
|
||||
loProject = _VFP.Projects('lProperty.pjx')
|
||||
|
||||
WITH loProject.FILES
|
||||
.ADD('_lproperty.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||
.ADD('archivo1.txt') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
|
||||
.ADD('calendar.ico') && *< FileMetadata: Type="x" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
|
||||
.ADD('colors.ico') && *< FileMetadata: Type="x" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
|
||||
.ADD('frmcalendar.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||
.ADD('frmexample.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||
.ADD('lproperty.dbf') && *< FileMetadata: Type="D" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" />
|
||||
.ADD('programa1.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
|
||||
.ADD('ve_sizeb.cur') && *< FileMetadata: Type="x" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
|
||||
*</BuildProj>
|
||||
|
||||
.ITEM('__newproject.f2b').Remove()
|
||||
|
||||
*<FileComments>
|
||||
*</FileComments>
|
||||
|
||||
*<ExcludedFiles>
|
||||
.ITEM("lproperty.dbf").Exclude = .T.
|
||||
*</ExcludedFiles>
|
||||
|
||||
*<TextFiles>
|
||||
*</TextFiles>
|
||||
ENDWITH
|
||||
|
||||
WITH loProject
|
||||
*<ProjectProperties>
|
||||
.SetMain("_lproperty.vcx")
|
||||
|
||||
.Debug = .T.
|
||||
.Encrypted = .F.
|
||||
*<.CmntStyle = 1 />
|
||||
*<.NoLogo = .F. />
|
||||
*<.SaveCode = .T. />
|
||||
*<.User = '' />
|
||||
.ProjectHookLibrary = ''
|
||||
.ProjectHookClass = ''
|
||||
*</ProjectProperties>
|
||||
ENDWITH
|
||||
|
||||
|
||||
_VFP.Projects('lProperty.pjx').Close()
|
||||
*ERASE '__newproject.f2b'
|
||||
CD (lcCurdir)
|
||||
RETURN
|
||||
BIN
utile/ListProperty/lproperty.FPT
Normal file
BIN
utile/ListProperty/lproperty.dbf
Normal file
10
utile/ListProperty/programa1.prg
Normal file
@@ -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"
|
||||