Icon aus Exe in Imagelist verliert Transparenz

[MacGuyver]

Moin Leute :hi:

Ich möchte das kleine Icon aus Exe-Dateien auslesen und in einem Menü anzeigen. Wenn ich die Icon-Datei in die Imageliste lade (con der IDE aus), klappt das wunderbar. Wenn ich mit ExtractIconEx arbeite und das dann der Liste hinzufüge, sehen die Bilder dann schlimm aus. Ich habe einige Ansätze probiert, hat aber nicht gefunzt.

[Blup]

Das liegt wahrscheinlich daran, dass IconSmall nur 16x16 Pixel groß ist.
Es ist fraglich ob die Datei wirklich ein Image in dieser Größe enthält.
Beim Skalieren geht natürlich die Qualität verloren, insbesondere die Maske für transparente Pixel kann schlecht verkleinert werden.

Wird das Icon direkt in eine leere ImageList geladen, wird wahrscheinlich die Größe mit SetSize() an die tatsächliche Icon-Größe angepasst.

[MacGuyver]

Ich habe mal einen Haltepunkt gesetzt und "Image.Picture.Width" abgefragt. Siehe da, das Bild ist 32 x 32 Pixel groß. Wenn ich das Icon speicher, sehe ich bei den Eigenschaften, dass das Bild 16 x 16 groß ist. Lade ich die Datei wieder, ist die Größe wieder 32 x 32.

Hä?

Was passiert denn, wenn ich diese Datei der Imagelist (16 x 16) über die IDE hinzufüge? Dort wird es dann korrekt angezeigt.

Ich habe das Bild mal angehängt.

[himitsu]

Es ist wohl als 16x16 vorhanden, aber da du 32x32 willst, wird es sofort hochskaliert.

[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.

[himitsu]

Du fragst auch explizit SMALL ab ... hätte gedachte es wäre 32 aber vielleicht ist SMALL ja 16
MEDIUM 32 und LARGE sonstwas, oder so

Oft haben wir in der EXE ja ein MultiResIcon, also eine ICO, wo mehrere Icons drin sind.

[MacGuyver]

Bliebt die spannende Frage: Was macht denn die IDE, wenn ich auf der ImageList einen Doppelklick mache und im Editor dann das Bild lade? So sieht es dann super aus. Klar, ich könnte alle Icons per Hand in die Liste einfügen, geht dann aber leider nicht, wenn eine neue Exe hinzukommt.