Class TAnimation (unit Ani95)

Inherits from

TWinControl

TAnimation Component

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 : 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


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


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 : 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


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