Timagelist -> Timage

[danku]

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

was hat das für einen sinn wenn nebeneinander die bilder angeordnet werden?
kennst du nicht das prinzip einer imagelist?
ist doch vom prinzip her wie ein animiertes gif.
(okay ist weit hergeholt aber dient zum verstehen des sachverhaltes)