AnimationEnable Example for Delphi

This example loads and plays an animated file. It assumes that the LEAD control has already been sized to the aspect ratio of the image.

{ Load all pages of an animated gif file. }
Lead1.Load('d:\ltwin10\images\eye.gif ', 0, 1, -1);
{ Set properties for a scaled animation. }
Lead1.AutoRepaint := True;
Lead1.AutoSetRects := False; 
{ Set the image display size to match the LEAD control. }
Lead1.SetDstRect(0, 0, Lead1.Width, Lead1.Height);
Lead1.SetDstClipRect(0, 0, Lead1.Width, Lead1.Height); 
{ Allow a continuous loop. }
Lead1.AnimationLoop := True; 
{ Start the animation. }
Lead1.AnimationEnable := True;