VirtualStringTree: wie kann ich nur Children von einem Parent anzeigen lassen?

[chaosben]

Der Code ist etwas unschön (birgt AV's) und unlogisch.
Probiers mal so:

Delphi-Quellcode:

procedure ShowNodes(AIndex : Integer);
var 
  Node : PVirtualNode;
begin
  Node := VST.GetFirst;
  while Assigned(Node) do
  begin
    VST.IsVisible[Node] := Node.Index = AIndex;
    Node := VST.GetNextSibling(Node); //so bleibst du in der obersten Ebene
  end;
end;