VirtualStringTree stellt DefaultText (Node) nicht dar

[Zacherl]

Habe die Stelle gefunden, allerdings kann ich zu der Logik dahinter nichts sagen.

Zeile 33794:

Delphi-Quellcode:

lEventArgs := TVSTGetCellTextEventArgs.Create(PaintInfo.Node, PaintInfo.Column);
DoGetText(lEventArgs);

Hierbei wird der CellText nicht initialisiert:

Delphi-Quellcode:

constructor TVSTGetCellTextEventArgs.Create(pNode: PVirtualNode; pColumn: TColumnIndex; pExportType: TVTExportType);
begin
  Self.Node := pNode;
  Self.Column := pColumn;
  Self.ExportType := pExportType;
end;

Die GetText() Methode enthält allerdings noch die Initialisierung mit dem DefaultText:

Delphi-Quellcode:

function TCustomVirtualStringTree.GetText(Node: PVirtualNode; Column: TColumnIndex): string;

var
  lEventArgs: TVSTGetCellTextEventArgs;

begin
  Assert(Assigned(Node), 'Node must not be nil.');
  lEventArgs := TVSTGetCellTextEventArgs.Create(Node, Column);
  lEventArgs.CellText := FDefaultText;
  DoGetText(lEventArgs);
  Exit(lEventArgs.CellText)
end;