Class TAnimatedIcons (unit AniIcons)

Inherits from

TPersistent

Constructors


constructor Create(Size: TIconSize);

constructor / destructor

TAnimatedIcons



Functions

function Add(const Icon: TAnimatedIcon): Integer;

public methods

procedure AddIcons(Icons: TAnimatedIcons);


procedure Assign(Source: TPersistent);


procedure Clear;


procedure Delete(Index: Integer);


destructor Destroy;


procedure DrawIcon(Canvas: TCanvas; X, Y, Index: Integer; MaskColor: TColor);


function Equals(Icons: TAnimatedIcons): Boolean;


procedure Exchange(Index1, Index2: Integer);


procedure Insert(Index: Integer; const Icon: TAnimatedIcon);


procedure LoadFromFile(const FileName: string);


procedure LoadFromStream(Stream: TStream);


procedure Move(CurIndex, NewIndex: Integer);


procedure Play(NrOfTimes: Integer);


procedure SaveToFile(const FileName: string);


procedure SaveToStream(Stream: TStream);


procedure Stop;


procedure cmTimerElapsed(var Msg: TCMTimerElapsed);

Protected routines

procedure DefineProperties(Filer: TFiler);


function Get(Index: Integer): TAnimatedIcon;


function GetCount: Integer;


procedure Put(Index: Integer; const Icon: TAnimatedIcon);


procedure SetDrawSize;


procedure ReadData(Stream: TStream);


function ReadString(Stream: TStream): String;


procedure SetIconIndex(Value: Integer);

Private routines (property get/set)

procedure WriteData(Stream: TStream);


procedure WriteString(Stream: TStream; Value: String);

Private routines (object streaming)

Properties

property Author : String


property Playing : Boolean


property Title : String


property Count : Integer

properties

property IconIndex : Integer


property Icons : TAnimatedIcon


property IconSize : TIconSize


Events

event OnNewFrame : TNewFrameEvent

animation event

event OnStopped : TNotifyEvent


Variables

FAuthor : String;

property variables

FBrush : TBrush;

Private variables

FCurrentLoop : Integer;


FCurrentTiming : Integer;


FDrawSize : Integer;


FIconIndex : Integer;


FIcons : TList;


FIconSize : TIconSize;


FOnNewFrame : TNewFrameEvent;

Event variables

FOnStopped : TNotifyEvent;


FPlaying : Boolean;


FTitle : String;


FTotalLoops : Integer;



Constructors


constructor Create(Size: TIconSize);

constructor / destructor

TAnimatedIcons


Functions


function Add(const Icon: TAnimatedIcon): Integer;

public methods


procedure AddIcons(Icons: TAnimatedIcons);


procedure Assign(Source: TPersistent);


procedure Clear;


procedure Delete(Index: Integer);


destructor Destroy;


procedure DrawIcon(Canvas: TCanvas; X, Y, Index: Integer; MaskColor: TColor);


function Equals(Icons: TAnimatedIcons): Boolean;


procedure Exchange(Index1, Index2: Integer);


procedure Insert(Index: Integer; const Icon: TAnimatedIcon);


procedure LoadFromFile(const FileName: string);


procedure LoadFromStream(Stream: TStream);


procedure Move(CurIndex, NewIndex: Integer);


procedure Play(NrOfTimes: Integer);


procedure SaveToFile(const FileName: string);


procedure SaveToStream(Stream: TStream);


procedure Stop;


procedure cmTimerElapsed(var Msg: TCMTimerElapsed);

Protected routines


procedure DefineProperties(Filer: TFiler);


function Get(Index: Integer): TAnimatedIcon;


function GetCount: Integer;


procedure Put(Index: Integer; const Icon: TAnimatedIcon);


procedure SetDrawSize;


procedure ReadData(Stream: TStream);


function ReadString(Stream: TStream): String;


procedure SetIconIndex(Value: Integer);

Private routines (property get/set)


procedure WriteData(Stream: TStream);


procedure WriteString(Stream: TStream; Value: String);

Private routines (object streaming)


Properties


property Author : String


property Playing : Boolean


property Title : String


property Count : Integer

properties


property IconIndex : Integer


property Icons : TAnimatedIcon


property IconSize : TIconSize


Events


event OnNewFrame : TNewFrameEvent

animation event


event OnStopped : TNotifyEvent


Variables


FAuthor : String;

property variables


FBrush : TBrush;

Private variables


FCurrentLoop : Integer;


FCurrentTiming : Integer;


FDrawSize : Integer;


FIconIndex : Integer;


FIcons : TList;


FIconSize : TIconSize;


FOnNewFrame : TNewFrameEvent;

Event variables


FOnStopped : TNotifyEvent;


FPlaying : Boolean;


FTitle : String;


FTotalLoops : Integer;