Class TAnimation (unit Ani95) |
Inherits from
TWinControl
TAnimation Component
constructor Create(AOwner: TComponent);
- Creating the class
****************************************************************************
TAnimation.
procedure Play;
Public methods ----------------------------------------------------------------------------
Public methods
----------------------------------------------------------------------------
procedure Stop;
procedure CreateParams(var Params: TCreateParams);
Creating the window ----------------------------------------------------------------------------
Creation of window
----------------------------------------------------------------------------
procedure DestroyWnd;
Transparent display
procedure LaunchOnStartEvent;
restore state
procedure LaunchOnStopEvent;
procedure Loaded;
procedure CMColorChanged(var Msg: TMessage);
When RepeatCount > 0!
procedure CNCommand(var Msg: TWMCommand);
Eventhandlers ----------------------------------------------------------------------------
Eventhandlers
----------------------------------------------------------------------------
function GetDesiredAVI: Integer;
Return the module handle of the module where AVI is to be loaded from
function GetDesiredModuleHandle: THandle;
Internal utility methods ----------------------------------------------------------------------------
Internal utility methods
----------------------------------------------------------------------------
procedure OpenAnimation;
Return the ID of the AVI to be loaded
procedure SetAVIFile(Value: String);
Called when playback stops { Property methods ----------------------------------------------------------------------------
Property methods
----------------------------------------------------------------------------
procedure SetAVIResHandle(Value: THandle);
procedure SetAVIResID(Value: Integer);
procedure SetAVIResName(Value: String);
procedure SetCenter(Value: Boolean);
procedure SetEndFrame(Value: SmallInt);
When playing: stop and start with new frame, otherwise display StartFrame
procedure SetOnStart(Value: TNotifyEvent);
When playing: stop and start with new frame, otherwise display StartFrame
procedure SetOnStop(Value: TNotifyEvent);
procedure SetPlaying(Value: Boolean);
procedure SetRepeatCount(Value: Integer);
When playing: stop and start with new frame, otherwise display StartFrame
procedure SetStartFrame(Value: SmallInt);
Either play or stop and display StartFrame
procedure SetTransparent(Value: Boolean);
procedure UpdateAnimation;
Load new AVI and display FStartFrame
procedure WMWindowPosChanging(var Msg: TWMWindowPosChanging);
Recreate all when the color property is changed (transparency!)
property AVIFile : String
Published properties
property Center : Boolean
property Color :
property EndFrame : SmallInt
property ParentColor :
property ParentShowHint :
property Playing : Boolean
property RepeatCount : Integer
property ShowHint :
property StartFrame : SmallInt
property Transparent : Boolean
property Visible :
property AVIResHandle : Integer
property AVIResID : Integer
property AVIResName : String
Public properties
property Opened : Boolean
event OnStart : TNotifyEvent
event OnStop : TNotifyEvent
FAVIFile : String;
Width and Height if Center is False
FAVIResHandle : THandle;
ResourceID of AVI resource
FAVIResID : Integer;
Resourcename of AVI resource
FAVIResName : String;
Filename of AVI file
FCenter : Boolean;
Handle of module containing resource
FCH : Integer;
FCW : Integer;
FEndFrame : SmallInt;
Frame to start with
FOnStart : TNotifyEvent;
Number of repetitions
FOnStop : TNotifyEvent;
Called when playback starts
FOpened : Boolean;
Play the clip
FPlaying : Boolean;
Display clip transparently
FRepeatCount : Integer;
Frame to end with
FStartFrame : SmallInt;
True if clip was opened successfully
FTransparent : Boolean;
Center clip in control
constructor Create(AOwner: TComponent);
Creating the class
****************************************************************************
TAnimation...
****************************************************************************
procedure Play;
Public methods
----------------------------------------------------------------------------
Public methods
----------------------------------------------------------------------------
procedure Stop;
procedure CreateParams(var Params: TCreateParams);
Creating the window
----------------------------------------------------------------------------
Creation of window
----------------------------------------------------------------------------
procedure DestroyWnd;
Transparent display
procedure LaunchOnStartEvent;
restore state
procedure LaunchOnStopEvent;
procedure Loaded;
procedure CMColorChanged(var Msg: TMessage);
When RepeatCount > 0!
procedure CNCommand(var Msg: TWMCommand);
Eventhandlers
----------------------------------------------------------------------------
Eventhandlers
----------------------------------------------------------------------------
function GetDesiredAVI: Integer;
Return the module handle of the module where AVI is to be loaded from
function GetDesiredModuleHandle: THandle;
Internal utility methods
----------------------------------------------------------------------------
Internal utility methods
----------------------------------------------------------------------------
procedure OpenAnimation;
Return the ID of the AVI to be loaded
procedure SetAVIFile(Value: String);
Called when playback stops { Property methods
----------------------------------------------------------------------------
Property methods
----------------------------------------------------------------------------
procedure SetAVIResHandle(Value: THandle);
procedure SetAVIResID(Value: Integer);
procedure SetAVIResName(Value: String);
procedure SetCenter(Value: Boolean);
procedure SetEndFrame(Value: SmallInt);
When playing: stop and start with new frame, otherwise display StartFrame
procedure SetOnStart(Value: TNotifyEvent);
When playing: stop and start with new frame, otherwise display StartFrame
procedure SetOnStop(Value: TNotifyEvent);
procedure SetPlaying(Value: Boolean);
procedure SetRepeatCount(Value: Integer);
When playing: stop and start with new frame, otherwise display StartFrame
procedure SetStartFrame(Value: SmallInt);
Either play or stop and display StartFrame
procedure SetTransparent(Value: Boolean);
procedure UpdateAnimation;
Load new AVI and display FStartFrame
procedure WMWindowPosChanging(var Msg: TWMWindowPosChanging);
Recreate all when the color property is changed (transparency!)
property AVIFile : String
Published properties
property Center : Boolean
property Color :
property EndFrame : SmallInt
property ParentColor :
property ParentShowHint :
property Playing : Boolean
property RepeatCount : Integer
property ShowHint :
property StartFrame : SmallInt
property Transparent : Boolean
property Visible :
property AVIResHandle : Integer
property AVIResID : Integer
property AVIResName : String
Public properties
property Opened : Boolean
event OnStart : TNotifyEvent
event OnStop : TNotifyEvent
FAVIFile : String;
Width and Height if Center is False
FAVIResHandle : THandle;
ResourceID of AVI resource
FAVIResID : Integer;
Resourcename of AVI resource
FAVIResName : String;
Filename of AVI file
FCenter : Boolean;
Handle of module containing resource
FCH : Integer;
FCW : Integer;
FEndFrame : SmallInt;
Frame to start with
FOnStart : TNotifyEvent;
Number of repetitions
FOnStop : TNotifyEvent;
Called when playback starts
FOpened : Boolean;
Play the clip
FPlaying : Boolean;
Display clip transparently
FRepeatCount : Integer;
Frame to end with
FStartFrame : SmallInt;
True if clip was opened successfully
FTransparent : Boolean;
Center clip in control