Speciel angivet ikon til bestemt filtype i TListView

Er det de ikoner Windows benytter i Exploren du er interesseret i?

Nej det var lige så meget fordi jeg godt kunne tænke mig at der var sådan at den viste nogle andre ikoner end de som computeren var sat til, fx at ikonet for en wav fil blev bestemt i koden til fx. ikon.ico...

Kort fortalt: TListView'en viser specielle ikoner (uafhængig af computeren og explorer)

Jamen du bestemmer jo fuldstændig selv hvilke ikoner der skal vises?

Tilføj ikonerne til en ImageList og sæt Item.ImageIndex...

Det har jeg gjort, men synes ikke helt jeg kan finde noget hvor man kan sætte det bestemte ikon i ImageListen til alle filer med fx. *.wav???

Her er noget lignende men alligevel ikke: http://eksperten.dk/spm/228120..??

Jeg går ud fra vi taler om en TListView? Den ved intet om filer eller filtyper.

Når du tilføjer en fil til din ListView skal du selv finde ud af hvilket icon index der skal bruges - f.eks. med ExtractFileExt()

Eksempel...

Du har en form med en TEdit, en TListView, en TImageList og en TButton.

I din ImageList har du tilføjet ikoner for PDF,DOC og BMP filer.

Så kan du lave noget lignende dette:


procedure TForm1.Button1Click(Sender: TObject);
const
  cExts : array[0..2] of string = ('.pdf','.doc','.bmp');
var
  Ext : string;
  idx : integer;
  Item : TListItem;
begin
  Ext := ExtractFileExt(Edit1.Text);
  idx := AnsiIndexText(Ext,cExts);
  Item := ListView1.Items.Add;
  Item.Caption := Edit1.Text;
  if idx <> -1 then
    Item.ImageIndex := idx
  else
    Item.ImageIndex := -1;
end;

Den sidste Item.ImageIndex := -1 skal erstattes af et eller andet default icon index.

Den siger fejl ved idx := AnsiIndexText(Ext,cExts);???
men både Ext og cEXTs er jo indikerede???

Hvad er fejlmeddelelsen? Husk at inklude StrUtils

Hej undskyld jeg har været så længe om at svare... Er i praktik så har en del at se til....
Men jeg forstår ikke helt ListView... Hvis jeg ønsker at have et "View komponent" som ved hjælp af Button1 viser den mappe som er specificeret i Edit1 fx. C:\
I "View komponentet" viser den så mappen, hvor ikonerne er erstattet til det som jeg gerne vil have dem til at være...
Igen undskyld doc404!

Doc404 kommer du ikke lige med et svar