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