Hi!
Ich habe folgendes Problem: Ich habe eine Funktion, die ein Icon einer Datei in ein Bitmap ausliest. Das verarbeite ich so:
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