Class TCirclingImage (unit CircImg)

Inherits from

TCustomControl

Constructors


constructor Create(aOwner : TComponent);



Functions

destructor Destroy;


procedure CMColorChanged(var Message : TMessage);


procedure CMIconChanged(var Message : TMessage);


function GetPalette : HPALETTE;


procedure InvalidateGraphic;

Invalidate the rectangle containing the graphic

procedure Paint;


function GetDelay : Cardinal;


function GetVersion : String;


procedure PictureChanged(Sender : TObject);

At design-time, draw a dashed line around the component

procedure Progress(Sender : TObject; Stage : TProgressStage; PercentDone : Byte; RedrawNow : Boolean; const R : TRect; const Msg : String);


procedure SetAnimate(const Value : Boolean);


procedure SetDelay(const Value : Cardinal);


procedure SetInitialCorner(const Value : TInitialCorner);


procedure SetPicture(const Value : TPicture);


procedure SetUseApplicationIcon(const Value : Boolean);


procedure TimerFired(Sender : TObject);


Properties

property Align :


property Animate : Boolean


property Color :


property Delay : Cardinal


property DragCursor :


property DragMode :


property Enabled :


property Granularity : Integer


property Height :


property IncrementalDisplay : Boolean


property InitialCorner : TInitialCorner


property ParentColor :


property ParentShowHint :


property Picture : TPicture


property PopupMenu :


property ShowHint :


property UseApplicationIcon : Boolean


property Visible :


property Width :


property Version : String


Events

event OnAnimate : TAnimationEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnProgress : TProgressEvent


event OnStartDrag :


Variables

FAnimate : Boolean;


FGranularity : Integer;


FImageOffset : TPoint;


FIncrementalDisplay : Boolean;


FInitialCorner : TInitialCorner;


FOnAnimate : TAnimationEvent;


FOnProgress : TProgressEvent;


FPicture : TPicture;


FPictureCache : Graphics.TBitmap;


FTimer : TTimer;


FUseApplicationIcon : Boolean;



Constructors


constructor Create(aOwner : TComponent);


Functions


destructor Destroy;


procedure CMColorChanged(var Message : TMessage);


procedure CMIconChanged(var Message : TMessage);


function GetPalette : HPALETTE;


procedure InvalidateGraphic;

Invalidate the rectangle containing the graphic


procedure Paint;


function GetDelay : Cardinal;


function GetVersion : String;


procedure PictureChanged(Sender : TObject);

At design-time, draw a dashed line around the component


procedure Progress(Sender : TObject; Stage : TProgressStage; PercentDone : Byte; RedrawNow : Boolean; const R : TRect; const Msg : String);


procedure SetAnimate(const Value : Boolean);


procedure SetDelay(const Value : Cardinal);


procedure SetInitialCorner(const Value : TInitialCorner);


procedure SetPicture(const Value : TPicture);


procedure SetUseApplicationIcon(const Value : Boolean);


procedure TimerFired(Sender : TObject);


Properties


property Align :


property Animate : Boolean


property Color :


property Delay : Cardinal


property DragCursor :


property DragMode :


property Enabled :


property Granularity : Integer


property Height :


property IncrementalDisplay : Boolean


property InitialCorner : TInitialCorner


property ParentColor :


property ParentShowHint :


property Picture : TPicture


property PopupMenu :


property ShowHint :


property UseApplicationIcon : Boolean


property Visible :


property Width :


property Version : String


Events


event OnAnimate : TAnimationEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnProgress : TProgressEvent


event OnStartDrag :


Variables


FAnimate : Boolean;


FGranularity : Integer;


FImageOffset : TPoint;


FIncrementalDisplay : Boolean;


FInitialCorner : TInitialCorner;


FOnAnimate : TAnimationEvent;


FOnProgress : TProgressEvent;


FPicture : TPicture;


FPictureCache : Graphics.TBitmap;


FTimer : TTimer;


FUseApplicationIcon : Boolean;