Registriert seit: 11. Feb 2005
Ort: Kirchhain
498 Beiträge
Delphi 2005 Personal
|
Re: Bilder aus ImageList auswählen
17. Mai 2006, 23:57
Delphi-Quellcode:
procedure getimage(imglst:TimageList; Id:Integer;bitmap:tbitmap);
var bit : TBitmap;
begin
bit := TBitmap.Create;
try
imglst.GetBitmap(id, Bit);
bitmap.Assign(bit);
finally
FreeAndNil(Bit);
end;
end;
besser ?
ups :
so wird aufgerufen
Delphi-Quellcode:
var bitmap : tbitmap;
begin
bitmap := tbitmap.create;
getimage(ImageList1,0,bitmap);
Image1.picture.bitmap.assign(bitmap);
freeandnil(bitmap);
end;
edit2 : var entfernt
|