Unit AMClock |
TAMClock version 1.0 for Delphi 2.x and 3.x Copyright © October 1997 by Alexander Meeder This analog clock is highly configurable. You can use a picture as the face of the clock (*.bmp, *.ico, *.emf and *.wmf). You can also configure the hour-, minute- and secondhand (backradius, radius, width, color). Additional you can set the interval (of the thread, no timer is used with this clock), the Priority and the center of the clock. This clock also has several events to trigger hour, minute and second events and a global timer event (every interval). TCenter properties (see also Center and AutoCenter properties of TAMClock) X : default 50 except when Autocenter Y : default 50 " " " THand properties (see also Hours-, Minutes- and SecondsHand properties of TAMClock) BackRadius : backradius of the hour, minute or second hand Color : color of " " " " " " Radius : radius of " " " " " " Width : width of " " " " " " TAMClock properties AutoCenter : default True, centers clock on canvas Center : TCenter-object with X,Y value HoursHand : THand-object see description above Interval : Update interval (and interval of OnTimer-event) Interactive : default False, when true you can click at runtime on clock to move the center MinutesHand : THand-object see description above Picture : default SAMPLECLOCK.BMP, every *.bmp, *.emf, *.ico or *.wmf-file Priority : default tpNormal, Thread priority (tpNormal, tpHight etc.) SecondsHand : THand-object see description above Transparent : default True TransparentColor : default clOlive, the picture-color to replace with the color property of this component (default the form, panel etc. color) TAMClocl events OnHour : every hour OnMinute : every minute OnSecond : every second OnTimer : triggered every X milisecond (X = interval property), just like in Delphi's TTimer-object OnMouseEnter : when the mouse enters the control OnMouseLeave : when the mouse leaves the control
Classes |
TAMClock -
TCenter -
THand -
TThrdTimer -
TTimerThread -
Functions |
Register -
Types |
TCmMouseEnter
TCmMouseLeave
THour
TMinute
TMouseEnterLeave
TSecond
Constants |
Variables |
Functions |
Types |
TCmMouseEnter = record
Msg : Cardinal;
Unused : Integer;
Sender : TControl;
Result : LongInt;
end;
TCmMouseLeave = TCmMouseEnter
THour = procedure (Sender: TObject; Hour: word) of object
TMinute = procedure (Sender: TObject; Minute: word) of object
TMouseEnterLeave = procedure (Sender: TObject) of object
TSecond = procedure (Sender: TObject; Second: word) of object
Constants |
Variables |