Virtual String Tree: Nodecaption wird nicht gesetzt

[Nils_13]

Hi,

da ich in diesem Thread auf das Virtual String Tree hingewiesen wurde, schaute ich mir vor kurzem das Tutorial von Delphi-Source zu VST an. Warum wird bei folgendem Code die Caption aller Items auf "Node" gesetzt ?

Delphi-Quellcode:

type
  PTreeData = ^TTreeData;

  TTreeData = record
    Str: String;
  end;

...

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  VST.NodeDataSize := SizeOf(TTreeData);
end;

procedure TfrmMain.addNodeClick(Sender: TObject);
var Data: PTreeData;
    Node: PVirtualNode;
begin
  Node     := VST.AddChild(nil);
  Data     := VST.GetNodeData(Node);
  VST.AddChild(Node);
  Data.Str := Edit1.Text;
end;

procedure TfrmMain.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: Integer; TextType: TVSTTextType; var CellText: WideString);
var Data: PTreeData;
begin
  Data     := VST.GetNodeData(Node);
  CellText := Data.Str;
end;

procedure TfrmMain.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var Data : PTreeData;
begin
  Data     := VST.GetNodeData(Node);
  Data.Str := '';
end;