| Class TAnimatedCursorImage (unit AniFile) |
TPersistent
| Constructors |
constructor Create;| 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);
function ReadCreateIcon(Stream: TStream; ASize: Longint;
var HotSpot: TPoint; var IsIcon: Boolean): TIcon;
procedure ReadStream(Size: Longint; Stream: TStream);
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( while } { Update the frame count incase we coalesced some frames while reading
in the file. Properties Events Variables
function ReadCreateIcon(Stream: TStream; ASize: Longint;
var HotSpot: TPoint; var IsIcon: Boolean): TIcon;
procedure ReadStream(Size: Longint; Stream: TStream);
procedure RiffReadError;
procedure WriteStream(Stream: TStream; WriteSize: Boolean);
property Creator : string
property DefaultRate : Longint
property Frames : TIconFrame
property IconCount : Integer
property Icons : TIcon
property OriginalColors : Word
property Title : string
FCreator : TANINAME;
FHeader : TAniHeader;
FIcons : TList;
FOriginalColors : Word;
FTitle : TANINAME;