Virtual Tree - Nodes prüfen

[BenniP]

Hallo,

ich habe in meinem Programm einen Virtual String Tree eingebaut, funktioniert auch.
In diesem Tree kann der Anwender Daten auswählen die er übernehmen möchte, per CheckBoxs.

"If PVirtualNode.CheckState = csCheckedNormal Then"
-Das ist mir bekannt, nur wie kann ich einzeln durch den Virtual Tree gehen?
-ListBox.Items.Strings[i], sowas in der Art bräuchte ich.

[OG Karotte]

IterateSubtree müsste das Zauberwort sein:

In etwa so müsste es gehen (ungetestet):

Delphi-Quellcode:

Procedure TForm1.MyCallBack(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean);
Begin
   If Sender.CheckState[Node] = csCheckedNormal Then DoAnything

End;

Procedure TForm1.ButtonClick(Sender: TObject);
Begin
   VST.IterateSubTree(nil, MyCallBack, nil);
End;

Weitere Info's z.B. unter http://support.soft-gems.net/forums/viewforum.php

[BenniP]

Vielen Dank! Ich werde es mal versuchen.

[Prototypjack]

Moin,

Du kannst auch ohne dieses Callback (welches für diesen Zweck nicht unbedingt geeignet sein muss) durch den Tree iterieren, das tust du so:

Delphi-Quellcode:

procedure Foo;
var
  lNode: PVirtualNode;
begin
  lNode := vstTree.GetFirst;
  while Assigned(lNode) do
  begin
    vstTree.Selected[lNode] := True; // zum Beispiel

    // Next Node
    lNode := vstTree.GetNext(lNode);
  end;
  // Hier ist die Schleife beendet
end;

Der Tree biete auch funktionen wie GetNextSelected, GetFirstSelected, GetNextSibling (um auf einer Tree-Ebene zu bleiben), etc.

Grüße,
Max

[BenniP]

@Prototypjack
Ahh vielen Dank! Es klappt! :)