Hallo
Ich moechte in einem VST alle Knoten expandieren, welche Unter-Knoten haben,
die anderen Knoten sollen geloescht werden.
Delphi-Quellcode:
var
Node, PrevNode: PVirtualNode;
begin
// Erster Node ermitteln
Node := VST.TopNode;
repeat
PrevNode := Node;
// Falls Node Kinder hat
if Node.FirstChild <> nil then
begin
// expandieren
Node.States := Node.States + [vsExpanded];
Node := Node.NextSibling;
end else
// sonst Node loeschen
begin
Node := Node.NextSibling;
VST.DeleteNode(PrevNode);
end;
until Node = nil;
Im TreeView hat's problemlos funktioniert. Nur der VST wird nach dem Expandieren nicht mehr
richtig gezeichnet (reagiert nicht mehr) und beim Beenden der Applikation erhalte ich eine
EIntOverFlow
Exception.
Im Anhang findet Ihr ein Demoprojekt, welches das Problem verdeutlicht.