Delphi-Quellcode:
procedure TForm2.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string); // CellText !!!
var
Data: PTreeData;
begin
Data := VST.GetNodeData(Node);
case Column of
0:
Text := Data.Col1; // nicht Text !!
1:
Text := Data.Col2;
end;
end;
// EDIT:
Ok, hast du selbst parallel gesehen.