Einzelnen Beitrag anzeigen

pacman1986

Registriert seit: 11. Feb 2005
Ort: Kirchhain
498 Beiträge
 
Delphi 2005 Personal
 
#5

Re: Bilder aus ImageList auswählen

  Alt 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
Christian N.
Designed to make a difference

najjaronline.de
  Mit Zitat antworten Zitat