Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
2026-07-16 10:55:38 +03:00
commit 2f59024385
1271 changed files with 820556 additions and 0 deletions

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.4 KiB

View 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

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 326 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

File diff suppressed because it is too large Load Diff

View 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

Binary file not shown.

View 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

View 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

View 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

Binary file not shown.

Binary file not shown.

View 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"