Class TDCAVIPlay (unit AviPlay)

Inherits from

TCustomControl

Constructors


constructor Create (AOwner : TComponent);

-----------------------------------------------------------------------


Functions

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

------------------------------------------------------------------

Properties

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


Events

event OnClose : TNotifyEvent


event OnOpen : TNotifyEvent


event OnStart : TNotifyEvent


event OnStop : TNotifyEvent


Variables

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;



Constructors


constructor Create (AOwner : TComponent);

-----------------------------------------------------------------------


Functions


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

------------------------------------------------------------------


Properties


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


Events


event OnClose : TNotifyEvent


event OnOpen : TNotifyEvent


event OnStart : TNotifyEvent


event OnStop : TNotifyEvent


Variables


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;