hoi,
ich lade hiermit icons aus der imagelist in ein image:
Delphi-Quellcode:
procedure GetIco(ImL: TImageList; Im: Timage; i: integer);
var
ico: TIcon;
begin
ico := TIcon.Create;
Try
Iml.GetIcon(i, ico);
Im.Picture.Icon.Assign(ico);
finally
ico.Free;
end;
end;
rufe es dann mit:
GetIco(Form2.ImageList1, Form2.image1, 0);
auf...
http://www.angelfire.com/bug/delphi/icon.JPG
aber irgendwie ist die transparenz weg und wird durch weiss ersetzt.... gibts ne möglichkeit das mit transparenz hinzubekommen?