| Class TAnimation (unit Ani95) |
TWinControl
TAnimation Component
| Constructors |
constructor Create(AOwner: TComponent);**************************************************************************** TAnimation.
| Functions |
procedure Play;---------------------------------------------------------------------------- Public methods ----------------------------------------------------------------------------
procedure Stop;
procedure CreateParams(var Params: TCreateParams);---------------------------------------------------------------------------- Creation of window ----------------------------------------------------------------------------
procedure DestroyWnd;
procedure LaunchOnStartEvent;
procedure LaunchOnStopEvent;
procedure Loaded;
procedure CMColorChanged(var Msg: TMessage);
procedure CNCommand(var Msg: TWMCommand);---------------------------------------------------------------------------- Eventhandlers ----------------------------------------------------------------------------
function GetDesiredAVI: Integer;
function GetDesiredModuleHandle: THandle;---------------------------------------------------------------------------- Internal utility methods ----------------------------------------------------------------------------
procedure OpenAnimation;
procedure SetAVIFile(Value: String);---------------------------------------------------------------------------- Property methods ----------------------------------------------------------------------------
procedure SetAVIResHandle(Value: THandle);
procedure SetAVIResID(Value: Integer);
procedure SetAVIResName(Value: String);
procedure SetCenter(Value: Boolean);
procedure SetEndFrame(Value: SmallInt);
procedure SetOnStart(Value: TNotifyEvent);
procedure SetOnStop(Value: TNotifyEvent);
procedure SetPlaying(Value: Boolean);
procedure SetRepeatCount(Value: Integer);
procedure SetStartFrame(Value: SmallInt);
procedure SetTransparent(Value: Boolean);
procedure UpdateAnimation;
procedure WMWindowPosChanging(var Msg: TWMWindowPosChanging);| Properties |
property AVIFile : String
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
property Opened : Boolean| Events |
event OnStart : TNotifyEvent
event OnStop : TNotifyEvent| Variables |
FAVIFile : String;
FAVIResHandle : THandle;
FAVIResID : Integer;
FAVIResName : String;
FCenter : Boolean;
FCH : Integer;
FCW : Integer;
FEndFrame : SmallInt;
FOnStart : TNotifyEvent;
FOnStop : TNotifyEvent;
FOpened : Boolean;
FPlaying : Boolean;
FRepeatCount : Integer;
FStartFrame : SmallInt;
FTransparent : Boolean;| Constructors |
constructor Create(AOwner: TComponent);Creating the class
**************************************************************************** TAnimation... ****************************************************************************
| Functions |
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!)
| Properties |
property AVIFile : StringPublished 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 : StringPublic properties
property Opened : Boolean| Events |
event OnStart : TNotifyEvent
event OnStop : TNotifyEvent| Variables |
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