Animation

jeg havde dette eksempel liggende, der ligger 18
billeder i Timagelist som roterer om sin egen akse, som det gamle logo i netscape.
Timerinterval:100

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ImgList;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Timer1: TTimer;
    ImageList1: TImageList;
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    ImageListIndex: integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
ImageListIndex := 0;
Image1.Canvas.Brush.Color := clBtnFace;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
ImageList1.Draw(Image1.Canvas,0,0,0,true);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Canvas.Brush.Color := clBtnFace;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
ImageList1.Draw(Image1.Canvas,0,0,ImageListIndex,true);

Inc(ImageListIndex);

if ImageListIndex > ImageList1.Count -1 then
  ImageListIndex := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := not Timer1.Enabled;

if Timer1.Enabled then
  Button1.Caption := \'Stop\'
else
  Button1.Caption := \'Start\';
end;

end.

gider du ikk prøve at lave det om?

lave det om til hva?
Bliver den stadig grå mellem billederne?

det eksempel virker fint nok til billeder der ikke er så store men det der er meningen er at jeg har et billede puttet ind i en TBitmapvariebel som lad oos sige den hedder cautoo og så vil jeg gerne skifte image1\'s billede ud med cautoobilledet!!! altså uden imagelist!!!!!!!

lukker