Class TDCAVIPlay (unit AviPlay) |
Inherits from
TCustomControl
constructor Create (AOwner : TComponent);
- -----------------------------------------------------------------------
destructor Destroy;
------------------------------------------------------------------
procedure Play (FromFrame, ToFrame: Word; Count: Integer);
------------------------------------------------------------------
procedure Reset;
------------------------------------------------------------------
procedure Seek (Frame : integer);
------------------------------------------------------------------
procedure Stop;
------------------------------------------------------------------
procedure CloseFile;
------------------------------------------------------------------
procedure CreateParams (var Params: TCreateParams);
------------------------------------------------------------------
procedure DoClose;
------------------------------------------------------------------
procedure DoOpen;
------------------------------------------------------------------
procedure DoStart;
------------------------------------------------------------------
procedure DoStop;
------------------------------------------------------------------
procedure Loaded;
------------------------------------------------------------------
procedure OpenFile;
------------------------------------------------------------------
procedure SetActive (val : boolean);
------------------------------------------------------------------
procedure SetAutoSize (val : boolean);
------------------------------------------------------------------
procedure SetCenter (val : boolean);
------------------------------------------------------------------
procedure SetFileName (val : string);
------------------------------------------------------------------
procedure SetPlaySound(val : boolean);
------------------------------------------------------------------
procedure SetRepetitions (val : integer);
------------------------------------------------------------------
procedure SetStartFrame (val : integer);
------------------------------------------------------------------
procedure SetStopFrame (val : integer);
------------------------------------------------------------------
procedure SetStretch (val : boolean);
------------------------------------------------------------------
procedure SetTransparent (val : boolean);
------------------------------------------------------------------
procedure ShowFrame;
------------------------------------------------------------------
procedure WMEraseBkgnd(var Msg : TMessage);
------------------------------------------------------------------
procedure WMMove (var Msg : TMessage);
------------------------------------------------------------------
procedure WMPaint(var Msg : TMessage);
------------------------------------------------------------------
procedure WMSize (var Msg : TMessage);
------------------------------------------------------------------
procedure AdjustSize;
------------------------------------------------------------------
procedure CalcFrameLayout;
------------------------------------------------------------------
procedure DisplayChange(var Msg : TMessage);
------------------------------------------------------------------
procedure HookWndProc;
------------------------------------------------------------------
procedure KillTempDC;
------------------------------------------------------------------
procedure MMWOM_DONE(var M:TMessage);
------------------------------------------------------------------
procedure PlayAudio(startframe, endframe : integer);
------------------------------------------------------------------
procedure PlayNextFrame(var Msg : TMessage);
------------------------------------------------------------------
procedure SaveBackground;
------------------------------------------------------------------
procedure ShowRect;
------------------------------------------------------------------
procedure UnHookWndProc;
------------------------------------------------------------------
procedure UpdateFrameNumber;
------------------------------------------------------------------
procedure ValidateFrameNumber(var val : integer);
------------------------------------------------------------------
property Active : boolean
property Align :
property AutoSize : boolean
property Center : boolean
property Color :
property FileName : string
property ParentColor :
property ParentShowHint :
property PlaySound : boolean
property Repetitions : integer
property ShowHint :
property StartFrame : integer
property StopFrame : integer
property Stretch : boolean
property Transparent : boolean
property Visible :
property FrameCount : integer
property FrameHeight : Integer
property FrameWidth : Integer
property Open : boolean
property Position : integer
event OnClose : TNotifyEvent
event OnOpen : TNotifyEvent
event OnStart : TNotifyEvent
event OnStop : TNotifyEvent
fActive : boolean;
faudioplay : TAudioPlay;
faudiostream : pointer;
fAutoSize : boolean;
favifile : pointer;
fbackchanged : boolean;
fBlockChanges : boolean;
fCenter : boolean;
fdelay : integer;
fdrawing : boolean;
fFileName : string;
fFrame : integer;
fFrameHeight : integer;
fFrameWidth : integer;
fgetframe : pointer;
fiheight : integer;
fiwidth : integer;
fLength : integer;
fofs : integer;
foldbitmap : THandle;
fOnClose : TNotifyEvent;
fOnOpen : TNotifyEvent;
fOnStart : TNotifyEvent;
fOnStop : TNotifyEvent;
fOpen : boolean;
fPlaySound : boolean;
frepeatcount : integer;
fRepetitions : integer;
fSkipFrames : boolean;
fStartFrame : integer;
fStopFrame : integer;
fStretch : boolean;
ftempbitmap : THandle;
ftempdc : THandle;
fTimer : THandle;
fTransparent : boolean;
fvideostream : pointer;
fxofs : integer;
fxstart : integer;
fyofs : integer;
fystart : integer;
hdrawdib : THandle;
constructor Create (AOwner : TComponent);
-----------------------------------------------------------------------
destructor Destroy;
------------------------------------------------------------------
procedure Play (FromFrame, ToFrame: Word; Count: Integer);
------------------------------------------------------------------
procedure Reset;
------------------------------------------------------------------
procedure Seek (Frame : integer);
------------------------------------------------------------------
procedure Stop;
------------------------------------------------------------------
procedure CloseFile;
------------------------------------------------------------------
procedure CreateParams (var Params: TCreateParams);
------------------------------------------------------------------
procedure DoClose;
------------------------------------------------------------------
procedure DoOpen;
------------------------------------------------------------------
procedure DoStart;
------------------------------------------------------------------
procedure DoStop;
------------------------------------------------------------------
procedure Loaded;
------------------------------------------------------------------
procedure OpenFile;
------------------------------------------------------------------
procedure SetActive (val : boolean);
------------------------------------------------------------------
procedure SetAutoSize (val : boolean);
------------------------------------------------------------------
procedure SetCenter (val : boolean);
------------------------------------------------------------------
procedure SetFileName (val : string);
------------------------------------------------------------------
procedure SetPlaySound(val : boolean);
------------------------------------------------------------------
procedure SetRepetitions (val : integer);
------------------------------------------------------------------
procedure SetStartFrame (val : integer);
------------------------------------------------------------------
procedure SetStopFrame (val : integer);
------------------------------------------------------------------
procedure SetStretch (val : boolean);
------------------------------------------------------------------
procedure SetTransparent (val : boolean);
------------------------------------------------------------------
procedure ShowFrame;
------------------------------------------------------------------
procedure WMEraseBkgnd(var Msg : TMessage);
------------------------------------------------------------------
procedure WMMove (var Msg : TMessage);
------------------------------------------------------------------
procedure WMPaint(var Msg : TMessage);
------------------------------------------------------------------
procedure WMSize (var Msg : TMessage);
------------------------------------------------------------------
procedure AdjustSize;
------------------------------------------------------------------
procedure CalcFrameLayout;
------------------------------------------------------------------
procedure DisplayChange(var Msg : TMessage);
------------------------------------------------------------------
procedure HookWndProc;
------------------------------------------------------------------
procedure KillTempDC;
------------------------------------------------------------------
procedure MMWOM_DONE(var M:TMessage);
------------------------------------------------------------------
procedure PlayAudio(startframe, endframe : integer);
------------------------------------------------------------------
procedure PlayNextFrame(var Msg : TMessage);
------------------------------------------------------------------
procedure SaveBackground;
------------------------------------------------------------------
procedure ShowRect;
------------------------------------------------------------------
procedure UnHookWndProc;
------------------------------------------------------------------
procedure UpdateFrameNumber;
------------------------------------------------------------------
procedure ValidateFrameNumber(var val : integer);
------------------------------------------------------------------
property Active : boolean
property Align :
property AutoSize : boolean
property Center : boolean
property Color :
property FileName : string
property ParentColor :
property ParentShowHint :
property PlaySound : boolean
property Repetitions : integer
property ShowHint :
property StartFrame : integer
property StopFrame : integer
property Stretch : boolean
property Transparent : boolean
property Visible :
property FrameCount : integer
property FrameHeight : Integer
property FrameWidth : Integer
property Open : boolean
property Position : integer
event OnClose : TNotifyEvent
event OnOpen : TNotifyEvent
event OnStart : TNotifyEvent
event OnStop : TNotifyEvent
fActive : boolean;
faudioplay : TAudioPlay;
faudiostream : pointer;
fAutoSize : boolean;
favifile : pointer;
fbackchanged : boolean;
fBlockChanges : boolean;
fCenter : boolean;
fdelay : integer;
fdrawing : boolean;
fFileName : string;
fFrame : integer;
fFrameHeight : integer;
fFrameWidth : integer;
fgetframe : pointer;
fiheight : integer;
fiwidth : integer;
fLength : integer;
fofs : integer;
foldbitmap : THandle;
fOnClose : TNotifyEvent;
fOnOpen : TNotifyEvent;
fOnStart : TNotifyEvent;
fOnStop : TNotifyEvent;
fOpen : boolean;
fPlaySound : boolean;
frepeatcount : integer;
fRepetitions : integer;
fSkipFrames : boolean;
fStartFrame : integer;
fStopFrame : integer;
fStretch : boolean;
ftempbitmap : THandle;
ftempdc : THandle;
fTimer : THandle;
fTransparent : boolean;
fvideostream : pointer;
fxofs : integer;
fxstart : integer;
fyofs : integer;
fystart : integer;
hdrawdib : THandle;