TplGifAnimator

type TplGifAnimator = class(TGraphicControl)

protected

  BufferImg: TPicture;

  CurrentView: TPicture;

  procedure CalculatePreferredSize(); override;

  procedure DoAutoSize; override;

  procedure DoStartAnim;

  procedure DoStopAnim;

  class function GetControlClassDefaultSize; override;

  procedure GifChanged;

  procedure LoadFromFile(); virtual;

  procedure Paint; override;

  procedure ResetImage;

  procedure SetColor(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure NextFrame;

  procedure PriorFrame;

  property Empty: Boolean; [r]

  property GifBitmaps: TGifList; [r]

  property GifIndex: Integer; [r]

  function LoadFromTyphonResource();

published

  property Anchors;

  property AutoSize;

  property Animate: Boolean; [rw]

  property BorderSpacing;

  property Color;

  property Constraints;

  property FileName: string; [rw]

  property Height;

  property ParentShowHint;

  property ShowHint;

  property Visible;

  property Width;

  property OnStartAnim: TNotifyEvent; [rw]

  property OnStopAnim: TNotifyEvent; [rw]

  property OnFrameChanged: TNotifyEvent; [rw]

  property OnClick;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDock;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnStartDock;

  property OnStartDrag;

end;

TplGifAnimator

TObject