Class TAnimationControl (unit animationcontrol)

Inherits from

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);

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 : string

Published 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;



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 : string

Published 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;