| Class TAnimatedIcons (unit AniIcons) |
TPersistent
| Constructors |
constructor Create(Size: TIconSize);TAnimatedIcons
| Functions |
function Add(const Icon: TAnimatedIcon): Integer;
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);
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);
procedure WriteData(Stream: TStream);
procedure WriteString(Stream: TStream; Value: String);| Properties |
property Author : String
property Playing : Boolean
property Title : String
property Count : Integer
property IconIndex : Integer
property Icons : TAnimatedIcon
property IconSize : TIconSize| Events |
event OnNewFrame : TNewFrameEvent
event OnStopped : TNotifyEvent| Variables |
FAuthor : String;
FBrush : TBrush;
FCurrentLoop : Integer;
FCurrentTiming : Integer;
FDrawSize : Integer;
FIconIndex : Integer;
FIcons : TList;
FIconSize : TIconSize;
FOnNewFrame : TNewFrameEvent;
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 : Integerproperties
property IconIndex : Integer
property Icons : TAnimatedIcon
property IconSize : TIconSize| Events |
event OnNewFrame : TNewFrameEventanimation 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;