Image aus ImageList laden

[pacman1986]

naja bisse kompletzierter isset schon

Delphi-Quellcode:

procedure getimage(imglst:TimageList; Id:Integer; var bitmap:tbitmap);
var bit : TBitmap;
begin
  bit := TBitmap.Create;
  try
    imglst.GetBitmap(id, Bit);
    bitmap.Assign(bit);
  finally
    FreeAndNil(Bit);
  end;
end;

Aufruf

Delphi-Quellcode:

var bitmap : tbitmap;
begin
  bitmap := tbitmap.create;
  getimage(ImageList1,0,bitmap);
  Image1.picture.bitmap.assign(bitmap);
  freeandnil(bitmap);
end;