Hallo und Frohe Ostern!
Momentan lese ich mich in VirtualStringTree ein und habe das simple Beispiel "Minimal" in meine Anwendung kopiert. Ohne jegliche Veränderung!
Problem ist nun, die Routine "InitNode" beschreibt nicht die Captions der Knoten, sondern verändert lediglich meinen Fenstertitel.
Delphi-Quellcode:
procedure TFMain.TVElemente1InitNode(Sender: TBaseVirtualTree; ParentNode,
Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
var
Data: PMyRec;
begin
with Sender do
begin
Data := GetNodeData(Node);
// Construct a node caption. This event is triggered once for each node but
// appears asynchronously, which means when the node is displayed not when it is added.
Data.Caption := Format('Level %d, Index %d', [GetNodeLevel(Node), Node.Index]);
end;
end;
Sehe ich den Wald vor lauter Bäumen nicht???
Gruss, Ralf