Class TAnimatedCursorImage (unit AniFile)

Inherits from

TPersistent

Constructors


constructor Create;

TAnimatedCursorImage


Functions

procedure Assign(Source: TPersistent);


procedure AssignToBitmap(Bitmap: TBitmap; BackColor: TColor; DecreaseColors, Vertical: Boolean);


procedure Clear;


destructor Destroy;


procedure LoadFromFile(const Filename: string);


procedure LoadFromStream(Stream: TStream);


procedure SaveToStream(Stream: TStream);


procedure AssignTo(Dest: TPersistent);


procedure Draw(ACanvas: TCanvas; const ARect: TRect);


function GetCreator: string;


function GetDefaultRate: Longint;


function GetFrame(Index: Integer): TIconFrame;


function GetIcon(Index: Integer): TIcon;


function GetIconCount: Integer;


function GetTitle: string;


procedure NewImage;


procedure ReadAniStream(Stream: TStream);

Loads an animatied cursor from a RIFF file.

function ReadCreateIcon(Stream: TStream; ASize: Longint; var HotSpot: TPoint; var IsIcon: Boolean): TIcon;


procedure ReadStream(Size: Longint; Stream: TStream);

while } { Update the frame count incase we coalesced some frames while reading in the file.

procedure RiffReadError;


procedure WriteStream(Stream: TStream; WriteSize: Boolean);


Properties

property Creator : string


property DefaultRate : Longint


property Frames : TIconFrame


property IconCount : Integer


property Icons : TIcon


property OriginalColors : Word


property Title : string


Events

Variables

FCreator : TANINAME;


FHeader : TAniHeader;


FIcons : TList;


FOriginalColors : Word;


FTitle : TANINAME;



Constructors


constructor Create;

TAnimatedCursorImage


Functions


procedure Assign(Source: TPersistent);


procedure AssignToBitmap(Bitmap: TBitmap; BackColor: TColor; DecreaseColors, Vertical: Boolean);


procedure Clear;


destructor Destroy;


procedure LoadFromFile(const Filename: string);


procedure LoadFromStream(Stream: TStream);


procedure SaveToStream(Stream: TStream);


procedure AssignTo(Dest: TPersistent);


procedure Draw(ACanvas: TCanvas; const ARect: TRect);


function GetCreator: string;


function GetDefaultRate: Longint;


function GetFrame(Index: Integer): TIconFrame;


function GetIcon(Index: Integer): TIcon;


function GetIconCount: Integer;


function GetTitle: string;


procedure NewImage;


procedure ReadAniStream(Stream: TStream);

Loads an animatied cursor from a RIFF file. The RIFF file format for animated cursors looks like this: RIFF('ACON' LIST('INFO' INAM() IART()) anih() [rate()] ['seq '( )] LIST('fram' icon()))


function ReadCreateIcon(Stream: TStream; ASize: Longint; var HotSpot: TPoint; var IsIcon: Boolean): TIcon;


procedure ReadStream(Size: Longint; Stream: TStream);

while } { Update the frame count incase we coalesced some frames while reading in the file.


procedure RiffReadError;


procedure WriteStream(Stream: TStream; WriteSize: Boolean);


Properties


property Creator : string


property DefaultRate : Longint


property Frames : TIconFrame


property IconCount : Integer


property Icons : TIcon


property OriginalColors : Word


property Title : string


Events


Variables


FCreator : TANINAME;


FHeader : TAniHeader;


FIcons : TList;


FOriginalColors : Word;


FTitle : TANINAME;