71 lines
2.2 KiB
Plaintext
71 lines
2.2 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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
|