Timagelist -> Timage

[TheAn00bis]

Zitat von Hawkeye219:

Ok, hier noch ein Versuch:

Delphi-Quellcode:

var 
  i : Integer;
begin
  with ImageList1 do
    begin
      Image1.Width := Count * Width;
      Image1.Height := Height;
      for i := 0 to Count - 1 do
        Draw (Image1.Canvas, i * Width, 0, i);
    end;
end;

Gruß Hawkeye

Inwiefern das ein animiertes Gif wiederspiegelt verstehe ich ehrlich gesagt auch nicht.

Ich würde einfach folgenden Code in einen Timer packen:

Delphi-Quellcode:

    ImageList1.GetBitmap(i, Image1.Picture.Bitmap);
    if i<ImageList1.count then inc(i) 
    else i:=0;