*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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