Icon aus Exe in Imagelist verliert Transparenz

[MacGuyver]

Nein, genau anders herum. Es ist in 32 x 32 in der Exe gespeichert und er tut so, als ob das 16 x 16 durch die Funktion ExtractIconEx ist:

Delphi-Quellcode:

  iFound := ExtractIconEx (PChar (s), 0, IconLarge, IconSmall, 1);

  if iFound = 0 then Exit;

  Icon := TIcon.Create;
  try
    Icon.Handle := IconSmall;


    ImageList.AddIcon (Icon);

Die ImageList skaliert das dann brutal runter, da sie auf 16 x 16 eingestellt ist.