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

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
2026-07-16 11:37:36 +03:00
commit 34aed0c4d7
236 changed files with 145556 additions and 0 deletions
--- a/Ferestre/Vechi/about.sc2
+++ b/Ferestre/Vechi/about.sc2
@@ -0,0 +1,155 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="about.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>
+		Name = "Dataenvironment"
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS wzaboutdialog AS wzaboutdialog OF "..\clase\appwiz.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lb_version" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*p: dat
+		*p: timp
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BackColor = 255,255,255
+		BorderStyle = 1
+		Closable = .T.
+		ControlBox = .T.
+		DoCreate = .T.
+		HalfHeightCaption = .T.
+		Height = 156
+		Icon = ..\grafice\mfix.ico
+		Name = "wzaboutdialog"
+		Width = 370
+		Shape1.BackStyle = 0
+		Shape1.Height = 135
+		Shape1.Left = 8
+		Shape1.Name = "Shape1"
+		Shape1.Top = 9
+		Shape1.Width = 352
+		Shape2.Name = "Shape2"
+		CMDTERMIN1.Command1.Name = "Command1"
+		CMDTERMIN1.Imbuton1.Height = 27
+		CMDTERMIN1.Imbuton1.Name = "Imbuton1"
+		CMDTERMIN1.Imbuton1.Width = 30
+		CMDTERMIN1.Left = 300
+		CMDTERMIN1.Name = "CMDTERMIN1"
+		CMDTERMIN1.Top = 195
+		Image1.Name = "Image1"
+		Image1.Picture = ..\..\comun\grafice\iconite\imob2003.ico
+		Label2.BackStyle = 0
+		Label2.Name = "Label2"
+		Label1.BackStyle = 0
+		Label1.Caption = "Imob2003"
+		Label1.FontBold = .T.
+		Label1.FontItalic = .T.
+		Label1.FontSize = 12
+		Label1.Left = 168
+		Label1.Name = "Label1"
+		Label1.Top = 27
+		Label3.BackStyle = 0
+		Label3.Name = "Label3"
+	*</PropValue>
+
+	ADD OBJECT 'Image2' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 20, ;
+		Left = 25, ;
+		Name = "Image2", ;
+		Picture = ..\..\contab\grafice\siglaromfast.bmp, ;
+		Stretch = 2, ;
+		Top = 108, ;
+		Width = 108
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image3' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 22, ;
+		Left = 265, ;
+		Name = "Image3", ;
+		Picture = ..\grafice\c.ico, ;
+		Stretch = 1, ;
+		Top = 25, ;
+		Width = 13
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Label5' AS label WITH ;
+		BackStyle = 0, ;
+		Caption = "Programul   ", ;
+		Height = 17, ;
+		Left = 101, ;
+		Name = "Label5", ;
+		Top = 33, ;
+		Width = 67
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'lb_version' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Ver.", ;
+		Height = 17, ;
+		Left = 149, ;
+		Name = "lb_version", ;
+		Top = 115, ;
+		Width = 23
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		Alignment = 0, ;
+		BackStyle = 0, ;
+		BorderStyle = 0, ;
+		ControlSource = "thisform.dat", ;
+		Height = 20, ;
+		Left = 209, ;
+		Name = "Text1", ;
+		ReadOnly = .T., ;
+		TabStop = .F., ;
+		Top = 112, ;
+		Width = 68
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		Alignment = 0, ;
+		BackStyle = 0, ;
+		BorderStyle = 0, ;
+		ControlSource = "thisform.timp", ;
+		Height = 20, ;
+		Left = 280, ;
+		Name = "Text2", ;
+		ReadOnly = .T., ;
+		TabStop = .F., ;
+		Top = 112, ;
+		Width = 104
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE Init
+		thisform.dat=fdate('&dirgen\IMOB2003\IMOB2003.exe')
+		thisform.timp=ftime('&dirgen\IMOB2003\IMOB2003.exe')
+		
+	ENDPROC
+
+	PROCEDURE lb_version.Init
+		this.Caption = "ver. " + get_version() 
+		
+	ENDPROC
+
+ENDDEFINE