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;