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.

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;

Hallo SneakyBagel,

letzter Beitrag für heute

Du machst da noch etwas falsch. Du darfst die ShellIcons nur 1x laden. Also z.B. in der LoadDirectories Methode. Spendiere der TDirectory Klasse dann zusätzlich noch eine Property ImageIndex. Beim Auslesen der Verzeichnisse lädtst du dann nur noch 1x das Icon.

Im GetImageIndex Event gibst du dem Tree immer nur noch den Index des Icons in der ImageList aus dem NodeData Object. Das dürfte die Performance erheblich verbessern.

EDIT: Wohoo. Passt gerade als Abschluss für heute (oh Moment, wir haben ja schon "morgen"). Der 1000. Beitrag ist gefallen.

Ok dann für morgen

zusammenfalten · markieren

Delphi-Quellcode:

if (FindFirst(FFullPath + '*', faAnyFile, SR) = 0) then
    begin
     try
      repeat
       if ((SR.Name <> '.') and (SR.Name <> '..')) then // and ((SR.Attr and faDirectory) = faDirectory)) then
        begin
         Dir := TDirectory.Create(Format('%s%s\', [FFullPath, SR.Name]));
         Dir.FDirName := SR.Name;

         // An dieser Stelle müssen wir prüfen, ob das Verzeichnis Unterverzeichnisse besitzt
         // Dies wird benötigt, damit das "+" Symbol vor der Node angezeigt wird
         // Self.HasSubDirectories := CheckHasSubDirectories;

         Self.SubDirectories.Add(Dir);

         SHGetFileInfo(PChar(FFullPath + SR.Name), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
         Self.iIconIndex := Info.iIcon;
        end;
      until (FindNext(SR) <> 0);
     finally
      FindClose(SR);
      FAlreadyLoaded := True;
     end;
    end;

Angezeigt bekomme ich zwar ein Icon, aber für alle Nodes dasselbe. Ein ganz komisches, teils grünes mit Anführungszeichen.

Allgemein zum VST:
Ich kann nur dazu raten das ganze generisch anzugehen und die Pointerspielerei nicht überall selbst zu machen...

zusammenfalten · markieren

Delphi-Quellcode:

  TBaseVirtualTreeHelper = class helper for TBaseVirtualTree
  public
    function Get<T: class>(Node: PVirtualNode): T;
  end;

{ TBaseVirtualTreeHelper }

function TBaseVirtualTreeHelper.Get<T>(Node: PVirtualNode): T;
var
  ResultData: Pointer;
begin
  ResultData := GetNodeData(Node);
  if Assigned(ResultData) and (TObject(ResultData^) is T) then
    Result := T(ResultData^)
  else
    Result := nil;
end;

Und dann in der Anwendung:

markieren

Delphi-Quellcode:

procedure TfrmDirectoryBrowser.vstDirectoryBrowserExpanding(Sender: TBaseVirtualTree; Node: PVirtualNode;
  var Allowed: Boolean);
var
  NodeData: TDirectory;
begin
  Allowed := True;

  NodeData := Sender.Get<TDirectory>(Node);
  NodeData.LoadSubDirectories; // ggf. auf Assigned prüfen
end;

Ein weiterer großer Vorteil ist, dass du im Debugger sofort den Inhalt sehen kannst ohne aufzuklappen:

Zitat von SneakyBagels:

Angezeigt bekomme ich zwar ein Icon, aber für alle Nodes dasselbe. Ein ganz komisches, teils grünes mit Anführungszeichen.

Moin,

ich habe mir deinen Code zwar jetzt nicht eingebaut, aber du solltest beim OnGetImageIndex() Event folgendes beachten:

Prüfe immer den ImageKind der übergeben wird. Es gibt insgesamt 4 (?) Typen. (Habe den Source gerade nicht vorliegen, daher aus dem Kopf)

markieren

Delphi-Quellcode:

ikNormal, // Wird angezeigt wenn die Node keinen speziellen Zustand hat
ikSelected, // Wird angezeigt wenn die Node ausgewählt ist (Sei es durch FocusedNode oder das die Node in einer Selection enthalten ist)
ikState, // Habe ich bisher nie verwendet. Gibt aber wohl einen speziellen Status der Node an den man wohl wieder abfragen kann (bspw. wird gerade editiert oder so) (genauere Infos im SourceCode des VST)
ikOverlay // Das Image, dass nochmal über das eigentliche Image drübergepinselt werden soll (auch hier genauere Infos im SourceCode des VST)

In der Regel sind ikNormal und ikSelected die beiden meist benötigten Typen. Deshalb solltest du in dein OnGetImageIndex() Event die folgende Abfrage mit aufnehmen. Eventuell ist dadurch dein Problem schon behoben. Wenn nicht, dann solltest du dir die Images in der ImageList eventuell mal alle in einer PaintBox nebeneinander malen und sie dir anschauen.

markieren

Delphi-Quellcode:

procedure TfrmDirectoryBrowser.vstDirectoryBrowserGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);
var
 NodeData: PDirectory;
 Info: TSHFileInfo;
begin
  if (Kind in [ikNormal, ikSelected]) then begin // Die Zeile hinzufügen (es sei denn du wolltest die speziellen Typen behandeln)
    NodeData := Sender.GetNodeData(Node);
    ImageIndex := NodeData^.iIconIndex;
  end;
end;

@Jaenicke: Ja kann man so machen.
Ich konnte mich allerdings bisher nicht an die Umstellung auf Generics in Bezug auf den VST gewöhnen. Überall anders im Programm wird massiv mit Generics gearbeitet. Die Einführung kam ja irgendwann mit Version 6.X. Ich bin dabei seit den frühereren 4.X Versionen als er noch von Mike Lischke programmiert wurde. Und da war das alles noch ganz anders