Welche uses braucht GetSubDirectories?

[ruewa]

Hätt'st auch was sagen können, Theo! Ich hatte ja extra danach gefragt. Es ist doch so: Vier Augen sehen mehr als zwei, aber dazu müßte man halt unverkrampft miteinander reden...

Ich habe meine Änderungen nun auch reingegeben: http://bugs.freepascal.org/view.php?id=27439

Ich denke, das ist die konsistentere Lösung.

Gruß Rüdiger

[Lion]

Hallo Jungs,

ich bin's wieder... ich möchte meine ShellTreeView immer aufgeklappt haben, das funktioniert auch gut, aber mit der Zeile "Node.Expand(True); " lässt sich die View nicht anklicken. Also ob Enabled auf False steht. Ich verstehe nicht wieso...

Code: Alles auswählen

 
procedure TMainForm.ShellTreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  lvSL: TStringList;
begin
  try
    //if Node.Expanded or (not Node.HasChildren) then Exit;
    lvSL := FindAllDirectories(TShellTreeView(Sender).GetPathFromNode(Node), False);
    Node.HasChildren := lvSL.Count > 0;
 
    if Node.HasChildren then
    begin
      Node.Expand(True); // <-- Hier...
      Node.ImageIndex := 1;
      Node.SelectedIndex := 4;
    end else
    begin
      Node.ImageIndex := 0;
      Node.SelectedIndex := 3;
    end;
 
  finally
    lvSL.Free;
  end;
end; 
 

[Warf]

Unter Misc findest du die TShellTreeView Komponente, setze die Root Eigenschaft auf deinen Ordner und Tada er listet dir das gesammte Verzeichnis auf

Edit sry habe die Anderen seiten übersehen

Das Forum ist ein wenig unübersichtlich