|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: TimageList und transparenter Hintergrund
21. Jun 2012, 12:20
Delphi-Quellcode:
var
Bmp: TBitmap;
p : TPNGImage;
begin
Bmp:=TBitmap.Create;
p:=TPNGImage.Create;
try
p.LoadFromFile('C:\Icons\IconCollection\ix_ap_all\48x48\shadow\about.png');
Bmp.Assign(p);
ImageList1.Add(Bmp,nil);
finally
Bmp.Free;
p.Free;
end;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|