|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Alpha-PNG zur Laufzeit in eine TImageList laden (XE2)
11. Feb 2013, 23:57
einen Versuch hätte ich noch anzubieten
Delphi-Quellcode:
var
ico:TIcon;
begin
ico:=TIcon.Create;
try
LoadPNGAsIcon('C:\Bilder\IconCollection\ix_ap_all\32x32\shadow\about.png',ico);
imagelist1.AddIcon(ico);
Action1.ImageIndex := 0;
Speedbutton1.Action := Action1;
finally
ico.Free;
end;
end;
mit der Routine von  hier
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|