TreeView_Expand - komplett Tree expandieren ?

[mschaefer]

Delphi-Quellcode:

procedure TreeviewFullyExpand(tv: TTreeview);
var
  Node  : TTreeNode;
  IsExp : boolean;
begin
  Assert(Assigned(tv));
  if tv.Items.Count > 0 then
  begin
    Node   := tv.Items[0];
    while Assigned(Node) do
    begin
      IsExp := Node.Expanded or not Node.HasChildren;
      if IsExp = false then Node.Expanded = true;
      Node   := Node.GetNext;
    end; {While}
  end {If}
end;

Das ist jetzt natürlich mit der VCL-Version.
Vielleicht kann man dies Übertragen..

// Martin