TIpAnimatedGraphic

type TIpAnimatedGraphic = class(TGraphic)

protected

  procedure ChangeFrame(); virtual;

  procedure ClearFrame(); virtual;

  procedure Draw(); override;

  procedure FreeAnimationFrames; virtual;

  function GetAnimate;

  function GetEmpty; override;

  function GetHeight; override;

  function GetWidth; override;

  procedure Initialize; virtual;

  procedure SetAggressiveDrawing();

  procedure SetAnimate();

  procedure SetBitmap();

  procedure SetDelayTime();

  procedure SetDestinationCanvas();

  procedure SetDestinationRect();

  procedure SetDisposalMethod();

  procedure SetDrawingCanvas();

  procedure SetDrawingRect();

  procedure SetFrameChangeNotify();

  procedure SetHeight(); override;

  procedure SetImages();

  procedure SetNumFrames();

  procedure SetWidth(); override;

  procedure TimerTimeoutHandler(); virtual;

public

  constructor Create; override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure AssignTo(); override;

  procedure LoadFromStream(); override;

  function StartAnimation; virtual;

  procedure StopAnimation; virtual;

  property AggressiveDrawing: Boolean; [rw]

  property Animate: Boolean; [rw]

  property BackgroundColor: TColor; [rw]

  property Bitmap: TBitmap; [rw]

  property CurrentFrameIndex: Integer; [rw]

  property DelayTime: Integer; [rw]

  property DestinationCanvas: TCanvas; [rw]

  property DestinationRect: TRect; [rw]

  property DrawingCanvas: TCanvas; [rw]

  property DrawingRect: TRect; [rw]

  property DisposalMethod: TDisposalMethod; [rw]

  property FrameChangeNotify: Boolean; [rw]

  property Height: Integer; [rw]

  property Images: TIpAnimationFrameList; [rw]

  property NumFrames: Integer; [rw]

  property Transparent: Boolean; [rw]

  property TransparentColor: TColor; [rw]

  property Width: Integer; [rw]

  property OnAfterFrameChange: TOnAfterFrameChange; [rw]

  property OnBeforeFrameChange: TOnBeforeFrameChange; [rw]

end;

TIpAnimatedGraphic

TObject