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 10:55:38 +03:00
commit 2f59024385
1271 changed files with 820556 additions and 0 deletions
--- a/ferestre/frm_about.sc2
+++ b/ferestre/frm_about.sc2
@@ -0,0 +1,94 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_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>
+		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="Edit1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		AlwaysOnTop = .T.
+		AutoCenter = .T.
+		BackColor = 255,255,255
+		BorderStyle = 1
+		Caption = ""
+		Closable = .T.
+		ControlBox = .T.
+		DoCreate = .T.
+		Height = 288
+		Icon = ..\..\
+		MaxButton = .F.
+		MinButton = .F.
+		Movable = .T.
+		Name = "FORM1"
+		Width = 366
+		WindowType = 1
+	*</PropValue>
+
+	ADD OBJECT 'Edit1' AS editbox WITH ;
+		BackColor = 205,205,205, ;
+		DisabledForeColor = 0,0,0, ;
+		Enabled = .T., ;
+		Height = 209, ;
+		Left = 24, ;
+		Name = "Edit1", ;
+		ReadOnly = .T., ;
+		Top = 70, ;
+		Width = 324
+		*< END OBJECT: BaseClass="editbox" />
+
+	ADD OBJECT 'Image1' AS image WITH ;
+		BackStyle = 1, ;
+		Height = 24, ;
+		Left = 24, ;
+		Name = "Image1", ;
+		Top = 9, ;
+		Width = 29
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		BackStyle = 0, ;
+		Caption = "Label1", ;
+		FontName = "Arial", ;
+		FontSize = 10, ;
+		Height = 17, ;
+		Left = 24, ;
+		Name = "Label1", ;
+		Top = 42, ;
+		Width = 324
+		*< END OBJECT: BaseClass="label" />
+	
+	PROCEDURE Init
+		lcFileName = UPPER(JUSTSTEM(SYS(16,0)))
+		this.Caption = 'Despre ' + lcFileName
+		this.label1.Caption = lcFileName
+		this.edit1.Value = get_version(.F.,.T.)
+		IF !EMPTY(_screen.Icon)
+			this.image1.Picture = _screen.Icon
+			this.Icon = _screen.Icon
+		ELSE
+			this.image1.Visible = .F.
+		ENDIF 
+	ENDPROC
+
+ENDDEFINE