Zitat von SneakyBagels:

Daher auch meine Idee das mit einer VirtualStringList nachzubauen aber das Grundwissen fehlt.

Das sollte das geringere Problem darstellen. Beim VST sind diverse gute Demos dabei um wenigstens mal die Basics zu erlernen.

Wenn ich heute abend noch Zeit habe, dann bastele ich dir mal etwas ganz kleines zusammen bei dem du wenigstens mal die Nodes erstellen und die Texte anzeigen lassen kannst.

Den CheckSupport (also Anzeige von CheckBoxen) kann man dann noch nachträglich hinzufügen.

Woher kommen denn deine Daten? Kannst du evtl. mal eine kleine Struktur aufzeigen, wie die Daten aussehen? Welche Properties gibt es?

Ich würde dir auf jeden Fall empfehlen, dir den VST anzuschauen und dir das Wissen darüber anzueignen. Die Komponente ist Gold wert und um ein Vielfaches schneller als andere Komponenten. Ich benutze sie nur noch und bin seit dem Umstieg begeistert. Allerdings arbeite ich mittlerweile schon seit bestimmt 3 Jahren damit. Da kennt man so ziemlich alles vom VST und hat auch schon fast alles damit gemacht.

Und ich denke, dass es bestimmt noch einige andere User hier im Forum gibt, die dir ebenfalls gerne beim Lernen im Umgang mit dem VST helfen werden.

Das mit den Daten ist ganz einfach. Es gibt ein Root-Verzeichnis welches man angeben kann und das wird dann eingelesen.
Wenn man dann neben einem Verzeichnis auf den kleinen Pfeil klickt, wird der Eintrag expandiert und ich sehe den Inhalt der dann erst eingelesen wird, wenn man expandiert.
Es gibt demnach keine speziellen Daten. Es ist einfach nur eine Anzeige für eine Verzeichnisstruktur.
Soweit ich sehen kann gibt es hier keine speziellen Properties auf dass man einstellen kann, ob man Verzeichnisse, Daten und versteckte Inhalte sehen möchte.

Also könnte man das Beispiel mit dem Aufbau eines Verzeichnisbaumes vom Laufwerk C: durchführen? Ich schau mal ob ich die Zeit dazu finde und poste dementsprechend mal etwas.

Ja ganz genau. Wenn das mit einem Verzeichnis funktioniert dann funktioniert das auch mit allen anderen.
Was ich meine entspricht etwa dem auf dem Bild hier. Nur mit CheckBoxen und Dateien. Ordnergröße wäre toll ist aber kein Muss.
http://www.soft-gems.net/images/stor...ts/RidNacs.gif
Das kann die Komponente hier aus dem Forum ja gut nur sie ist sehr, sehr langsam.

Für eine Anzeige der enthaltenen Dateien und Ordnergrößen muß auf jeden Fall das komplette Verzeichnis eingelesen werden und das Dauert definitiv etwas.
Will man nur erstmal das Rootverzeichnis anzeigen und lädt die Unterknoten nach, wenn man aufklappt, dann muß man nur das eine Verzeichnis komplett einlesen und in den Unterzeichnissen nur je die erste Datei/Unterverzeichnis einlesen, um zu wissen, ob man das [+] vor der ersten Ebene der jeweiligen Unterverzeichnissen darstellen muß.

Allerdings kann man das Einlesen auch in einem Thread oder notfalls Stückchenweise in einem Timer erledigen und dann regelmäßig die Daten im Baum/TreeView aktualisieren.
Ist der TreeView zu langsam, vorallem bei vielen Daten, dann den Baum intern komplett einlesen und nur den jeweils sichbaren Teil in den TreeView laden, also nur die aufgeklappten Teile.
http://www.delphipraxis.net/45366-wi...g-visuell.html
https://www.heise.de/download/product/windirstat-15041

Hallo zusammen,

ich habe jetzt mal ein kleines Demo-Projekt zusammengebastelt und auch mit ein paar Kommentaren versehen. Natürlich wird hier nur ein ganz kleiner Teil der Funktionen des VST gezeigt. Aber für den Einstieg sollte das erst einmal reichen.

Wenn du das problemlos programmieren kannst, dann kannst du dich an die tieferen Funktionen des VST wagen.

Ich habe in dem Beispiel jetzt keinen Wert darauf gelegt alles in einen Thread auszulagern. In meinem Fall hat das alles sehr schnell funktioniert, sodass ich nicht die Notwendigkeit dafür gesehen habe. Zudem ist es ja erstmal nur ein kleines Projekt zum Testen. Das Auslagern in einen Thread sollte das kleinste Problem sein.

Auch ist der Code vielleicht nicht zu 100% optimiert, aber auch hier ... es ist ein Demo-Projekt.

Im Anhang habe ich jetzt mal die Release Variante des Projekts als Exe dringelassen falls das jemand nicht kompilieren kann. Erstellt wurde das Projekt mit Delphi 10 Seattle.

Viel Spaß beim Probieren @SneakyBagels und auch alle Anderen die sich mal mit dem VST beschäftigen wollen. Wenn Rückfragen aufkommen, dann einfach fragen. Ich denke es gibt auch noch divere andere User die hier weiterhelfen können wenn ich mal keine Zeit habe.

Verzeichnis-Browser.jpg

Ich habe gerade mal versucht hiermit ShellIcons anzeigen zu lassen. Klappt auch aber das zieht die Performance total in den Keller

zusammenfalten · markieren

Delphi-Quellcode:

procedure TfrmDirectoryBrowser.FormCreate(Sender: TObject);
var
 SysIL: HIMAGELIST;
 Info: TSHFileInfo;
 SmallImages: TImageList;
begin
 SmallImages := TImageList.Create(Self);
 SysIL := SHGetFileInfo('', 0, Info, SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);

 if SysIL <> 0 then
  begin
   SmallImages.Handle := SysIL;
   SmallImages.ShareImages := True;
   vstDirectoryBrowser.Images := SmallImages;
  end;
.....
end;

procedure TfrmDirectoryBrowser.vstDirectoryBrowserGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);
var
 NodeData: PDirectory;
 Info: TSHFileInfo;
begin
 NodeData := Sender.GetNodeData(Node);

 if NodeData^.iIconIndex = -1 then
  begin
   SHGetFileInfo(PChar(NodeData^.FullPath), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
   NodeData^.iIconIndex := Info.iIcon;
  end;

 ImageIndex := NodeData^.iIconIndex;
end;