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