Icon in ImageList laden & in einer Listview anzeigen lassen

**Yheeky**

Hi!

Ich habe folgendes Problem: Ich habe eine Funktion, die ein Icon einer Datei in ein Bitmap ausliest. Das verarbeite ich so:

markieren

Code:

			if (SpieleDialog.Execute) and (SpieleDialog.FileName <> '') then

   begin

   SpielePfad.Text := SpieleDialog.FileName;

   Dummy := 1;

   Icon := TIcon.Create;

   Icon.Handle := ExtractAssociatedIcon(Handle, PChar(SpieleDialog.FileName), Dummy);

   SpieleIcon.Canvas.Draw(0, 0, Icon);

   SpieleList.AddIcon(Icon);

   Icon.Free;

   end;

Wenn ich nun die Imagelist (in die das Icon reingeladen wird) mit der ListView verknüpfe (wo das Icon schließlich angezeigt werden soll), wird dies nicht transparent, sondern mit einem schwarzen Hintergrund angezeigt. Woran liegt das und wie kann ich das transparent anzeigen lassen?

Gruß Yheeky

Icon in ImageList laden & in einer Listview anzeigen lassen

Icon in ImageList laden & in einer Listview anzeigen las

Forumregeln