Icon zu Bitmap - Problem mit Bildgröße

[ManuMF]

Hallo,

ich möchte mit diesem Code (abgewandelt aus der CodeLib)

Delphi-Quellcode:

TmpI := TIcon.Create;
try
  GetIconFromEXE('[Programmdatei]', TmpI);

  with MCRegButton.Glyph do
  begin
    Width := TmpI.Width;
    Height := TmpI.Height;
    Canvas.Draw(0, 0, TmpI);
  end;
finally
  FreeAndNil(TmpI);
end;

ein Programmicon auslesen und für einen Button verwenden. Das Bild ist zwar richtigerweise 16x16 groß, aber nur der sichtbare Teil. Insgesamt ist es 32x32 groß (dadurch hängt das Bild oben links in der Ecke).

Die Funktion GetIconFromEXE verwendet SHGetFileInfo (mit dem Flag für das kleine Icon).

Wenn ich die Größe des Glyphs nachträglich ändere oder gleich mit 16x16 festlege, sieht das Bild merkwürdig aus.

Woran kann's liegen?

Danke,
ManueMF

[ManuMF]

Inzwischen hab ich nochmal einen Zwischenschritt über einen "normalen" TBitmap probiert, ebenfalls ohne Erfolg. Weiß jemand Rat?

[ManuMF]

*push* (letzter Versuch)