Bild aus ImageList laden?

[Nonsense]

Hideliho,
ich würde gerne ein Bild aus der ImageList laden und auf die Canvas zeichnen. Problem: Es funzt net:

Code:

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

Danke im Voraus!
Greetings

[Nonsense]

Hat sich erledigt, hab es anders gelöst.
Danke trotzdem!
Greetings

[Christian Seehase]

Moin Nonsense,

trotzdem noch ein Kommentar zu Deinem Beispiel:

Du belegst durch TBitmap.Create Resourcen (in diesem Falle Speicher), und gibst diese nicht wieder frei.

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;

So könntest Du sicherstellen, das der belegte Speicher wieder freigegeben wird.

[edit=Daniel B]Code-Formatierung; MfG Daniel B.[/edit]