| Class TAnimationControl (unit animationcontrol) |
TWinControl
just incase Borland have moved it... const ANIMATE_CLASS = 'SysAnimate32'; const ACS_CENTER = $0001; ACS_TRANSPARENT = $0002; ACS_AUTOPLAY = $0004; ACM_OPENA = WM_USER + 100; ACM_OPENW = WM_USER + 103; ACM_OPEN = ACM_OPENA; ACM_PLAY = WM_USER + 101; ACM_STOP = WM_USER + 102; ACN_START = 1; ACN_STOP = 2;
| Constructors |
constructor Create(AOwner: TComponent);reset the window if we need to
| Functions |
function AnimatePlay(playfrom: Word; playto: Integer; repeatfor: Integer):Boolean;
function AnimatePlayCont:Boolean;
function AnimateSeek(Frame:Integer):boolean;
function AnimateStop:Boolean;
function Display:Boolean;
Function Loop(RepeatFor,FromFrame,ToFrame:Integer):Boolean;
function OpenFile(Filename:String):boolean;
function OpenResource(Resource:Integer):boolean;
function Play:Boolean;
function SeekFrame(Count:Integer):boolean;
procedure setAviName(value:string);
function Stop:Boolean;
procedure CreateParams(var Params: TCreateParams);
procedure SetAutoplay(value:boolean);
procedure SetCenter(value:boolean);
procedure SetTransparent(value:boolean);| Properties |
property Align :
property Autoplay : Boolean
property AviFileName : string
property Center : Boolean
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Hint :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Transparent : Boolean
property Visible : | Events |
event OnEnter :
event OnExit :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
fAutoplay : Boolean;
favifilename : string;
fCenter : Boolean;
fTransparent : Boolean;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
reset the window if we need to
| Functions |
function AnimatePlay(playfrom: Word; playto: Integer; repeatfor: Integer):Boolean;play it count times
function AnimatePlayCont:Boolean;play the avi
function AnimateSeek(Frame:Integer):boolean;show frame number 'count'
function AnimateStop:Boolean;stop the avi
function Display:Boolean;show the first fram, if not running
Function Loop(RepeatFor,FromFrame,ToFrame:Integer):Boolean;
function OpenFile(Filename:String):boolean;set up defaults
function OpenResource(Resource:Integer):boolean;
function Play:Boolean;
function SeekFrame(Count:Integer):boolean;
procedure setAviName(value:string);
function Stop:Boolean;
procedure CreateParams(var Params: TCreateParams);Protected declarations
procedure SetAutoplay(value:boolean);reset the window if we need to
procedure SetCenter(value:boolean);reset all options
procedure SetTransparent(value:boolean);reset the window if we need to
| Properties |
property Align :
property Autoplay : Boolean
property AviFileName : stringPublished declarations
property Center : Boolean
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Hint :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Transparent : Boolean
property Visible : | Events |
event OnEnter :
event OnExit :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
fAutoplay : Boolean;
favifilename : string;
fCenter : Boolean;Private declarations
fTransparent : Boolean;