procedure TForm1.FormCreate(Sender: TObject);
var
n: integer;
m: string;
begin
for n:=0 to 8 do begin
VirtualStringTree1.Header.Columns.Add;
if n = 0 then m:= 'Zone';
if n = 1 then m:= 'Year';
if n = 2 then m:= 'Month';
if n = 3 then m:= 'Date';
if n = 4 then m:= 'Flour';
if n = 5 then m:= 'Sugar';
if n = 6 then m:= 'Butter';
if n = 7 then m:= 'Total';
if n = 8 then m:= 'Salesperson';
VirtualStringTree1.Header.Columns[n].Text:=m;
VirtualStringTree1.Header.Columns[n].Width:=100;
end;
for n:=0 to 3 do
VirtualStringTree1.Header.Columns[n].Options:=VirtualStringTree1.Header.Columns[n].Options
-[coAllowClick];
VirtualStringTree1.Header.Options:=VirtualStringTree1.Header.Options
+[hoVisible];
VirtualStringTree1.Header.Style:=hsXPStyle;
VirtualStringTree1.TreeOptions.PaintOptions:=VirtualStringTree1.TreeOptions.PaintOptions
+[toshowtreelines]
+[toshowroot];
VirtualStringTree1.TreeOptions.MiscOptions:=VirtualStringTree1.TreeOptions.MiscOptions
+[toEditable];
VirtualStringTree1.TreeOptions.SelectionOptions:=VirtualStringTree1.TreeOptions.SelectionOptions
+[toExtendedFocus]
+[toMultiSelect];
Form1.WindowState:=wsmaximized;
end;
procedure TForm1.LoadDataIntoTreeMenuItemClick(Sender: TObject);
var
XNode: PVirtualNode;
begin
XNode:=VirtualStringTree1.AddChild(nil);
end;
I'm learning to use VirtualTreeview,
What is XNode: PVirtualNode; ?
And from the attachment, how can I write codes to get VirtualTreeView 1, 2, 3 & 4 ?