Class TAnimatedImage (unit Animate)

Inherits from

TRxImageControl

TAnimatedImage

Constructors


constructor Create(AOwner: TComponent);

Public declarations

TAnimatedImage



Functions

destructor Destroy;


procedure DoPaintImage;


procedure FrameChanged;


function GetPalette: HPALETTE;

Protected declarations

procedure Loaded;


procedure Paint;

if Orientation = goVertical then

procedure Start;


procedure Stop;


procedure AdjustBounds;

if Orientation = goVertical then

procedure DefineBitmapSize;


function GetInterval: Cardinal;


procedure ImageChanged(Sender: TObject);


procedure ResetImageBounds;


procedure SetActive(Value: Boolean);


procedure SetAutoSize(Value: Boolean);


procedure SetGlyph(Value: TBitmap);


procedure SetGlyphNum(Value: Integer);


procedure SetInactiveGlyph(Value: Integer);


procedure SetInterval(Value: Cardinal);


procedure SetNumGlyphs(Value: Integer);


procedure SetOpaque(Value: Boolean);


procedure SetOrientation(Value: TGlyphOrientation);


procedure SetStretch(Value: Boolean);


procedure SetTransparentColor(Value: TColor);


procedure TimerExpired(Sender: TObject);


function TransparentStored: Boolean;


procedure UpdateInactive;


procedure WMSize(var Message: TWMSize);


Properties

property Active : Boolean

Published declarations

property Align :


property AutoSize : Boolean


property Color :


property Cursor :


property DragCursor :


property DragMode :


property Glyph : TBitmap


property GlyphNum : Integer


property InactiveGlyph : Integer


property Interval : Cardinal


property NumGlyphs : Integer


property Opaque : Boolean


property Orientation : TGlyphOrientation


property ParentColor :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Stretch : Boolean


property TransparentColor : TColor


property Visible :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnFrameChanged : TNotifyEvent


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStart : TNotifyEvent


event OnStartDrag :


event OnStop : TNotifyEvent


Variables

FActive : Boolean;

Private declarations

FAutoSize : Boolean;


FGlyph : TBitmap;


FGlyphNum : Integer;


FImageHeight : Integer;


FImageWidth : Integer;


FInactiveGlyph : Integer;


FNumGlyphs : Integer;


FOnFrameChanged : TNotifyEvent;


FOnStart : TNotifyEvent;


FOnStop : TNotifyEvent;


FOpaque : Boolean;


FOrientation : TGlyphOrientation;


FStretch : Boolean;


FTimer : TTimer;


FTimerRepaint : Boolean;


FTransparentColor : TColor;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

TAnimatedImage


Functions


destructor Destroy;


procedure DoPaintImage;


procedure FrameChanged;


function GetPalette: HPALETTE;

Protected declarations


procedure Loaded;


procedure Paint;

if Orientation = goVertical then


procedure Start;


procedure Stop;


procedure AdjustBounds;

if Orientation = goVertical then


procedure DefineBitmapSize;


function GetInterval: Cardinal;


procedure ImageChanged(Sender: TObject);


procedure ResetImageBounds;


procedure SetActive(Value: Boolean);


procedure SetAutoSize(Value: Boolean);


procedure SetGlyph(Value: TBitmap);


procedure SetGlyphNum(Value: Integer);


procedure SetInactiveGlyph(Value: Integer);


procedure SetInterval(Value: Cardinal);


procedure SetNumGlyphs(Value: Integer);


procedure SetOpaque(Value: Boolean);


procedure SetOrientation(Value: TGlyphOrientation);


procedure SetStretch(Value: Boolean);


procedure SetTransparentColor(Value: TColor);


procedure TimerExpired(Sender: TObject);


function TransparentStored: Boolean;


procedure UpdateInactive;


procedure WMSize(var Message: TWMSize);


Properties


property Active : Boolean

Published declarations


property Align :


property AutoSize : Boolean


property Color :


property Cursor :


property DragCursor :


property DragMode :


property Glyph : TBitmap


property GlyphNum : Integer


property InactiveGlyph : Integer


property Interval : Cardinal


property NumGlyphs : Integer


property Opaque : Boolean


property Orientation : TGlyphOrientation


property ParentColor :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Stretch : Boolean


property TransparentColor : TColor


property Visible :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnFrameChanged : TNotifyEvent


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStart : TNotifyEvent


event OnStartDrag :


event OnStop : TNotifyEvent


Variables


FActive : Boolean;

Private declarations


FAutoSize : Boolean;


FGlyph : TBitmap;


FGlyphNum : Integer;


FImageHeight : Integer;


FImageWidth : Integer;


FInactiveGlyph : Integer;


FNumGlyphs : Integer;


FOnFrameChanged : TNotifyEvent;


FOnStart : TNotifyEvent;


FOnStop : TNotifyEvent;


FOpaque : Boolean;


FOrientation : TGlyphOrientation;


FStretch : Boolean;


FTimer : TTimer;


FTimerRepaint : Boolean;


FTransparentColor : TColor;