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;
constructor Create(AOwner: TComponent);
- Public declarations
reset the window if we need to
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
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 :
event OnEnter :
event OnExit :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
fAutoplay : Boolean;
favifilename : string;
fCenter : Boolean;
Private declarations
fTransparent : Boolean;
constructor Create(AOwner: TComponent);
Public declarations
reset the window if we need to
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
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 :
event OnEnter :
event OnExit :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
fAutoplay : Boolean;
favifilename : string;
fCenter : Boolean;
Private declarations
fTransparent : Boolean;