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

[chaosben]

Ach so ... na dann ist es ja ganz einfach.

An der Stelle, wo das "blättern" stattfindet, setzt du den aktuellen Parent auf unsichtbar und den nächsten auf sichtbar.
Und das GetText-Event bekommt keine spezielle Logik ... einfach nur den Text rausgeben.

[ernschd]

Hmm, wenn ich das so versuche, werden seltsamerweise die Nodes 1-5 nicht angezeigt, alle anderen schon. GetText gibt nur die Daten aus.

Delphi-Quellcode:

procedure zeigeNode(Index: Integer);
var Node : PVirtualNode;
begin
    Node := VST.GetFirst();
    while (Node.Index <> Index) do begin
        VST.IsVisible[Node] := False;
        Node := VST.GetNext(Node);
    end;
    VST.IsVisible[Node] := True;
end;

Nachtrag:
Wenn ich in der Methode, in der ich die Daten in den VST lade, die untere Schleife zum Erstellen und Befüllen der Child-Nodes weglasse, kann ich mit zeigeNode problemlos durchblättern.

Delphi-Quellcode:

Node := VST.AddChild(nil);              // Node erstellen
VST.IsVisible[Node] := False;           // ausblenden
Data := VST.GetNodeData(Node);
Data^.Nummer := WO_N^.Nummer;

while G <> NIL do begin   
    fChild := VST.AddChild(Node);       // Child-Node erstellen
    GerData := VST.GetNodeData(fChild); // Daten in Node eintragen
    GerData^.Text := G^.Text;           // Einträge kopieren
    G := G^.GNext;                      // nächster Eintrag
end;

[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;

[ernschd]

So funktionierts!

Danke