Bild aus ImageList laden

[Daniel B]

Delphi-Quellcode:

procedure TWindow.FormCreate(Sender: TObject); 
var 
  Bitmap : TBitmap; 
begin 
  Bitmap := TBitmap.Create; 
  try 
    ImageList.GetBitmap(0, Bitmap); 
    Window.Canvas.Draw(0, 0, Bitmap); 
  finally 
    FreeAndNil(Bitmap); 
  end; 
end;

Von Christian Seehase!

Grüsse, Daniel