.... nochmals VirtualStringTree

[marcus]

Hallo, der geht natürlich auch in die Hose.

Delphi-Quellcode:

procedure TFrmMain.StringTreeGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
var Data : PVSTData;
begin
  Data := Sender.GetNodeData(Node);

  if Node.Parent = Sender.RootNode then
    CellText := Data^.monat
  else
    CellText := Data^.projektnr;
    //CellText := 'test';
end;