Ah More's blog: simply loading an animated gif

Wednesday, 9 August 2017

simply loading an animated gif

this is simply loading an animated gif and not making one

procedure TForm1.FormCreate(Sender: TObject);

begin

  ( Image1.Picture.Graphic as TGIFImage ).Animate := True;// gets it goin'

  ( Image1.Picture.Graphic as TGIFImage ).AnimationSpeed:= 500;// adjust your speed

  Form1.DoubleBuffered := True;// stops flickering

end;

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)