Class TAMClock (unit AMClock)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure CmEnabledChanged(var Message: TWmNoParams);


procedure CmMouseEnter(var Message: TCmMouseEnter);


procedure CmMouseLeave(var Message: TCmMouseLeave);


procedure CmVisibleChanged(var Message: TWmNoParams);


procedure DrawHand(XCenter, YCenter, Radius, BackRadius, HandWidth: integer; HandColor: TColor; Angle: Real);


procedure Loaded;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure UpdateClock(Sender: TObject);


function GetPriority: TThreadPriority;


procedure SetAutoCenter(Value: boolean);


procedure SetInterval(Value: word);


procedure SetPicture(Value: TPicture);


procedure SetPriority(Value: TThreadPriority);


procedure SetTransparent(Value: boolean);


procedure SetTransparentColor(Value: TColor);


Properties

property AutoCenter : boolean


property Center : TCenter


property Color :


property DragCursor :


property DragMode :


property Enabled :


property Hint :


property HoursHand : THand


property Interactive : boolean


property Interval : word


property MinutesHand : THand


property ParentColor :


property ParentShowHint :


property Picture : TPicture


property PopupMenu :


property Priority : TThreadPriority


property SecondsHand : THand


property ShowHint :


property Transparent : boolean


property TransparentColor : TColor


property Visible :


property Canvas :


Events

event OnClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnHour : THour


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMinute : TMinute


event OnMouseDown :


event OnMouseEnter : TMouseEnterLeave


event OnMouseLeave : TMouseEnterLeave


event OnMouseMove :


event OnMouseUp :


event OnSecond : TSecond


event OnStartDrag :


event OnTimer : TNotifyEvent


Variables

Buffer : TBitmap;


FAutoCenter : boolean;


FCenter : TCenter;


FHour : THour;


FHoursHand : THand;


FInteractive : boolean;


FInterval : word;


FMinute : TMinute;


FMinutesHand : THand;


FMouseEnter : TMouseEnterLeave;


FMouseLeave : TMouseEnterLeave;


FOnTimer : TNotifyEvent;


FPicture : TPicture;


FPriority : TThreadPriority;


FSecond : TSecond;


FSecondsHand : THand;


FTransparent : boolean;


FTransparentColor : TColor;


h : word;


m : word;


OldHour : word;


OldMinute : word;


OldSecond : word;


s : word;


Timer : TThrdTimer;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure CmEnabledChanged(var Message: TWmNoParams);


procedure CmMouseEnter(var Message: TCmMouseEnter);


procedure CmMouseLeave(var Message: TCmMouseLeave);


procedure CmVisibleChanged(var Message: TWmNoParams);


procedure DrawHand(XCenter, YCenter, Radius, BackRadius, HandWidth: integer; HandColor: TColor; Angle: Real);


procedure Loaded;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure UpdateClock(Sender: TObject);


function GetPriority: TThreadPriority;


procedure SetAutoCenter(Value: boolean);


procedure SetInterval(Value: word);


procedure SetPicture(Value: TPicture);


procedure SetPriority(Value: TThreadPriority);


procedure SetTransparent(Value: boolean);


procedure SetTransparentColor(Value: TColor);


Properties


property AutoCenter : boolean


property Center : TCenter


property Color :


property DragCursor :


property DragMode :


property Enabled :


property Hint :


property HoursHand : THand


property Interactive : boolean


property Interval : word


property MinutesHand : THand


property ParentColor :


property ParentShowHint :


property Picture : TPicture


property PopupMenu :


property Priority : TThreadPriority


property SecondsHand : THand


property ShowHint :


property Transparent : boolean


property TransparentColor : TColor


property Visible :


property Canvas :


Events


event OnClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnHour : THour


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMinute : TMinute


event OnMouseDown :


event OnMouseEnter : TMouseEnterLeave


event OnMouseLeave : TMouseEnterLeave


event OnMouseMove :


event OnMouseUp :


event OnSecond : TSecond


event OnStartDrag :


event OnTimer : TNotifyEvent


Variables


Buffer : TBitmap;


FAutoCenter : boolean;


FCenter : TCenter;


FHour : THour;


FHoursHand : THand;


FInteractive : boolean;


FInterval : word;


FMinute : TMinute;


FMinutesHand : THand;


FMouseEnter : TMouseEnterLeave;


FMouseLeave : TMouseEnterLeave;


FOnTimer : TNotifyEvent;


FPicture : TPicture;


FPriority : TThreadPriority;


FSecond : TSecond;


FSecondsHand : THand;


FTransparent : boolean;


FTransparentColor : TColor;


h : word;


m : word;


OldHour : word;


OldMinute : word;


OldSecond : word;


s : word;


Timer : TThrdTimer;