Beispiel für FileTree

[Michl]

Ein fröhliches Hallo in die Runde,

da ich eine Komponente brauchte, die Dateien und Ordner übersichtlich darstellen kann, hatte ich mir gestern ein Minimalbeispiel per VirtualStringTree gebaut. Dabei werden vom eingegebenen Verzeichnis alle Verzeichnisse (inkl. ein Unterverzeichnis) und alle Dateien eingelesen. Da nur ein Unterverzeichnis eingelesen wird, ist die Darstellung von Hauptverzeichnissen schnell möglich, es wird bei Verzeichnissen jedoch angezeigt, ob sie einen Inhalt besitzen.

Evtl. braucht dies ja jemand, daher lade ich das mal hier hoch.

Gestern abend habe ich das Projekt noch schnell auf ein TTreeView umgemünzt, dieses zeigt von der fokusierten Node allerdings kein Icon an (siehe Bild). Da ich aber den VST einsetzen werde, habe ich da jetzt nicht weiter gebohrt.

FileTree mit TVirtualStringTree:


FileTree mit TTreeView:


Viel Spaß damit!

[wp_xyz]

Gestern abend habe ich das Projekt noch schnell auf ein TTreeView umgemünzt, dieses zeigt von der fokusierten Node allerdings kein Icon an

TTreeView hat einen ImageIndex auch für den ausgewählten Node, SelectedIndex. So erscheint das Icon auch für den fokussierten TreeNode:

Code: Alles auswählen

 
procedure TForm1.TreeGetSelectedIndex(Sender: TObject; Node: TTreeNode);
begin
  Node.SelectedIndex := Node.ImageIndex;
end; 

[Michl]

Hey danke, wp!!!

Habe es eben getestet, funktioniert prima!