in einem TListview Verzeichnisse und Dateien anzeigen ?

[Hawkeye219]

Hallo Heike,

die empfohlenen Komponenten VirtualTreeView bzw. VirtualShellTree sind sicher keine schlechte Wahl, allerdings ist deren Einsatz auch mit einem recht großen Lernaufwand verbunden.

Ein TShellListView ist letztlich nur eine erweiterte TCustomListView-Komponente und erbt damit deren Eigenschaften. Die von dir benötigten Eigenschaften sind aber lediglich protected, man muß sich also zunächst einen Zugriff verschaffen:

Delphi-Quellcode:

type
  TShellListViewCracker = class (TShellListView);

procedure TForm1.GetImageIndex (Sender: TObject; Item: TListItem);
begin
  if Odd(Item.Index) then
    Item.ImageIndex := 0
  else
    Item.ImageIndex := 1;
end;

procedure TForm1.FormCreate (Sender: TObject);
begin
  TShellListViewCracker(ShellListView1).SmallImages := ImageList1;
  TShellListViewCracker(ShellListView1).OnGetImageIndex := GetImageIndex;
end;

Den Inhalt der Routine GetImageIndex mußt du natürlich an deine Bedürfnisse anpassen.

Gruß Hawkeye