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

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

utile/GridTreeView/gridtreeview.sc2

@@ -0,0 +1,70 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="gridtreeview.scx" CPID="1250" /> (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="Gridtreeview1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		Caption = "Form1"
+		DoCreate = .T.
+		Name = "Form1"
+	*</PropValue>
+
+	ADD OBJECT 'Gridtreeview1' AS gridtreeview WITH ;
+		Anchor = 15, ;
+		cexplicatie = info, ;
+		cid = id, ;
+		cseparator = \, ;
+		Height = 228, ;
+		Left = 24, ;
+		Name = "Gridtreeview1", ;
+		Panel = 1, ;
+		RecordSource = "cInfo", ;
+		Top = 12, ;
+		Width = 320, ;
+		ColumnTV.ControlSource = "", ;
+		ColumnTV.Header1.Name = "Header1", ;
+		ColumnTV.Name = "ColumnTV", ;
+		ColumnTV.Text1.Name = "Text1", ;
+		ColumnTV.Width = 296
+		*< END OBJECT: ClassLib="gridtreeview.vcx" BaseClass="grid" />
+	
+	PROCEDURE Load
+		lcDir = JUSTPATH(SYS(16,0))
+		lcDir = SUBSTR(lcDir, AT(':', lcDir)-1)
+		SET DEFAULT TO (lcDir)
+		SET CLASSLIB TO gridtreeview.vcx ADDITIVE 
+		
+		USE IN (SELECT('cInfo'))
+		
+		CREATE CURSOR cinfo(id i, info c(100))
+		INSERT INTO cinfo (id, info) VALUES (1,'Nod 1')
+		INSERT INTO cinfo (id, info) VALUES (2,'Nod 1\1')
+		INSERT INTO cinfo (id, info) VALUES (3,'Nod 1\2')
+		INSERT INTO cinfo (id, info) VALUES (4,'Nod 1\1\x')
+		INSERT INTO cinfo (id, info) VALUES (5,'Nod 1\2\x')
+		
+		GO TOP 
+	ENDPROC
+
+ENDDEFINE