Image aus ImageList laden

[Ironmaster]

Hallo

Kennt jemand eine Methode zum laden eines Image aus der ImageList außer

ImageList1.GetBitmap(0,Image1.Picture.Bitmap); ???

mein Ziel ist es das Image durch Image1.Picture.Bitmap:=ImageList1. zu laden, was mir aber bisher noch nicht gelungen ist.

vielen dank im voraus

[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;

[ThomasGerstner]

Ich helfe mir immer so, dass ich das Bildchen aud der Imageliste einfach in das Bitmap zeichnen lasse.

Imagelist1.Draw(Image1.Canvas, xpos, ypos, BildIndex, true);

Gruß
Thomas

[Aike]

Mein Problem passt auch unter diese Überschrift, und zwar habe ich ein 32x32 Pixel großes Image. Wenn ich eine 32x32 BMP-Grafik per Imageist hineinlade, ist es aber viel kleiner, vielleicht die Hälfte der Größe oder weniger. Auch wenn ich die Grafik vergrößere, so hat dies keinen Effekt.

Zum Laden habe ich pacmans Code benutzt, Thomas' hat bei mir nicht funktioniert (komisches Bild).

[pacman1986]

du must die width und die height der imagelist umstellen auf deine gewuenschte groesse sonst wir entweder verkleinert oder abgeschnitten

[Aike]

Ah, wunderbar. Jetzt ist nur noch die Frage, wie ich feststellen kann, welches Bild in dem Image geladen ist.

So geht's leider nicht, und mir fällt leider gerade auch nichts anderes ein :-/

Delphi-Quellcode:

var bitmap1 : tbitmap;
begin
  bitmap1 := tbitmap.create;
  getimage(ImageList,2,bitmap1);
  Image1.picture.bitmap.assign(bitmap1);

  if Image.Picture.Bitmap=Bitmap1 then 
    showmessage('');
  freeandnil(bitmap1);
end;