Делаю как в примере в статье:
| Код |
type
MyNode = ^TMyNode;
TMyNode = record
ID : Integer;
Name_1, Name_2, Name_3 : WideString;
Initialized: Boolean;
End;
procedure TMyForm.FormCreate(Sender: TObject);
begin
VMyTree.NodeDataSize :=SizeOf(TMyNode);
end;
procedure TMyForm.LoadVMyTree;
begin
With VMyTree Do
begin
Clear;
NodeDataSize :=SizeOf(TMyNode);
RootNodeCount :=MyQuery.RecordCount;
end;
end;
procedure TMyForm.VMyTreeFreeNode(Sender: TBaseVirtualTree;
Node: PVirtualNode);
Var
MyNode : PMyNode;
begin
MyNode := Sender.GetNodeData(Node);
If Assigned(MyNode) then
Finalize(MyNode^);
end;
procedure TMyForm.VMyTreeGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: WideString);
Var
MyNode : PMyNode;
begin
MyNode := Sender.GetNodeData(Node);
Case Column Of
0: CellText :=IntToStr(MyNode.ID);
1: CellText :=MyNode.Name_1;
end;
end;
procedure TMyForm.VMyTreeInitNode(Sender: TBaseVirtualTree; ParentNode,
Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
Var
MyNode: PMyNode;
begin
MyNode := Sender.GetNodeData(Node);
If Not MyNode.Initialized then
begin
Initialize(MyNode^);
With MyNode^ Do
begin
ID := MyQuery.FieldByName('ID').AsInteger;
Name_1 :=MyQuery.FieldByName('NAME_1').AsString;
Name_2 :=MyQuery.FieldByName('NAME_2').AsString;
Name_3 :=MyQuery.FieldByName('NAME_3').AsString;
Initialized := True;
end;
end;
If Not MyQuery.Eof Then
MyQuery.Next;
end;
|
все великолепно работает, но я хочу что бы в дереве выводилось не только линейно ID, Name_1, но и у каждой такой строки были бы дочерние узлы содержащие каждый Name_2 и Name_3
как такое можно реализовать? |
)