Dateitypen icons in listview

[ErazerZ]

Du ladest einfach alles in einer TImageList. Im Objekt-Inspektor änderst SmallImages von dem TListView mit deiner TImageList.
Danach machst einen code wie z.B.

Delphi-Quellcode:

var ListItem: TListItem;
begin
  ListItem := ListView1.Items.Add;
  ListItem.ImageIndex := 0; // oder den Index von der TImageList
  ListItem.Caption := 'Erste Spalte';
  ListItem.SubItems.Add('Zweite..');
end;

Jedoch, nehmen wir an du speicherst jedes einzelne Icon in der TImageList, bei 1.000 Dateien frisst das viel Speicher.