Laut
https://wiki.freepascal.org/VirtualTree ... or_Lazarus
soll es aber da so hin.
Code: Alles auswählen
procedure TForm1.VirtualDrawTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
Data: PTreeData;
begin
Data := VirtualDrawTree.GetNodeData(Node);
case Column of
0: CellText := Data^.Column0;
1: CellText := Data^.Column1;
2: CellText := Data^.Column2;
end;
end;