Class TAnimatedIconPlayer (unit AniPlay)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations

Published declarations



Functions

destructor Destroy;


procedure Play;


procedure Stop;


procedure AutoSizeComponent;


procedure CMCtl3DChanged(var Msg: TMessage);


procedure CreateParams(var Params: TCreateParams);

Protected declarations

procedure DisplayFrame;


procedure NewFrame(Sender: TObject; Frame: Integer);


procedure Paint;


procedure Stopped(Sender: TObject);


procedure wmSize(var Msg: TWMSize);


function GetPlaying: Boolean;


procedure SetActiveFrame(Value: Integer);


procedure SetAnimation(Value: TAnimatedIcons);


procedure SetAutoSize(Value: Boolean);


procedure SetBorderStyle(Value: TBorderStyle);


procedure SetCentered(Value: Boolean);


procedure SetPlaying(Value: Boolean);


Properties

property ActiveFrame : Integer


property Animation : TAnimatedIcons


property AutoSize : Boolean


property BorderStyle : TBorderStyle


property Centered : Boolean


property Color :


property Ctl3D :


property Enabled :


property ParentColor :


property ParentCtl3D :


property Playing : Boolean


property RepeatCount : TRepeatCount


property TabOrder :


property TabStop :


property Visible :


Events

event OnClick :


event OnDblClick :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStopped : TNotifyEvent


Variables

FActiveFrame : Integer;


FAnimation : TAnimatedIcons;


FAutoSize : Boolean;


FBorderStyle : TBorderStyle;


FCentered : Boolean;


FOnStopped : TNotifyEvent;


FRepeatCount : TRepeatCount;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

Published declarations


Functions


destructor Destroy;


procedure Play;


procedure Stop;


procedure AutoSizeComponent;


procedure CMCtl3DChanged(var Msg: TMessage);


procedure CreateParams(var Params: TCreateParams);

Protected declarations


procedure DisplayFrame;


procedure NewFrame(Sender: TObject; Frame: Integer);


procedure Paint;


procedure Stopped(Sender: TObject);


procedure wmSize(var Msg: TWMSize);


function GetPlaying: Boolean;


procedure SetActiveFrame(Value: Integer);


procedure SetAnimation(Value: TAnimatedIcons);


procedure SetAutoSize(Value: Boolean);


procedure SetBorderStyle(Value: TBorderStyle);


procedure SetCentered(Value: Boolean);


procedure SetPlaying(Value: Boolean);


Properties


property ActiveFrame : Integer


property Animation : TAnimatedIcons


property AutoSize : Boolean


property BorderStyle : TBorderStyle


property Centered : Boolean


property Color :


property Ctl3D :


property Enabled :


property ParentColor :


property ParentCtl3D :


property Playing : Boolean


property RepeatCount : TRepeatCount


property TabOrder :


property TabStop :


property Visible :


Events


event OnClick :


event OnDblClick :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStopped : TNotifyEvent


Variables


FActiveFrame : Integer;


FAnimation : TAnimatedIcons;


FAutoSize : Boolean;


FBorderStyle : TBorderStyle;


FCentered : Boolean;


FOnStopped : TNotifyEvent;


FRepeatCount : TRepeatCount;