Class TClock (unit CClock) |
Inherits from
TGraphicControl
constructor Create(AOwner: TComponent);
- Timer event
procedure ClkTime( var H, M, S : word);
destructor Destroy;
procedure SetClkTime( CTime : TDateTime);
Get clock time Set clock time.
procedure Paint;
Decode Clk.
procedure TickerCall(Sender: TObject);
HourAngle
procedure CalcClockSettings;
Hour arrow angle DrawArrows
procedure DecodeCTime( CTime : TDateTime; var H, M, S : word);
Decode current clock time
procedure DrawArrows;
Draw clock background on FBitMap
procedure DrawClockBkg;
CalcClockSettings} { Draw clock background on FBitMap
function HourAngle( Hou, Min : word) : real;
Minute arrow angle MinuteAngle
function MinuteAngle( Min : word) : real;
procedure SetArrowColor( Value : TColor);
procedure SetFaceColor( Value : TColor);
Hour & Min difference between system time Create and set timer
procedure SetHourDiff( Value : integer);
procedure SetMinDiff( Value : integer);
procedure SetShowSecond( Value : boolean);
procedure TimeDiff( GTime, DTime : TDateTime; var dHour, dMin : integer);
Draw clock arrows} { Time difference ( GTime - DTime)
property Align :
Set clock time
property ClkArrowColor : TColor
property ClkFaceColor : TColor
property DifHour : integer
property DifMinute : integer
property Enabled :
property ParentShowHint :
property SecArrow : boolean
property ShowHint :
property Visible :
event OnHour : TNotifyEvent
event OnMinute : TNotifyEvent
event OnSecond : TNotifyEvent
CenterPoint : TPoint;
Clock variables
CHourDiff : integer;
Clock face color
CMinDiff : integer;
FArrowColor : TColor;
Show or not second arrow
FBitMap : TBitMap;
Arrows pen
FFaceColor : TColor;
Arrows color
FOnHour : TNotifyEvent;
FOnMinute : TNotifyEvent;
FOnSecond : TNotifyEvent;
Background BitMap} { OnSecond, OnMinute, OnHour events
FPen : TPen;
LapStepW : integer;
Radius of clock
PrevTime : TDateTime;
Width of lap steps rectangles
Radius : integer;
Center of arrows
ShowSecond : boolean;
Ticker : TTimer;
constructor Create(AOwner: TComponent);
Timer event
procedure ClkTime( var H, M, S : word);
destructor Destroy;
procedure SetClkTime( CTime : TDateTime);
Get clock time
Set clock time. Seconds are set to system clock
procedure Paint;
Decode Clk. time
procedure TickerCall(Sender: TObject);
HourAngle
procedure CalcClockSettings;
Hour arrow angle
DrawArrows
procedure DecodeCTime( CTime : TDateTime; var H, M, S : word);
Decode current clock time
procedure DrawArrows;
Draw clock background on FBitMap
procedure DrawClockBkg;
CalcClockSettings} { Draw clock background on FBitMap
function HourAngle( Hou, Min : word) : real;
Minute arrow angle
MinuteAngle
function MinuteAngle( Min : word) : real;
procedure SetArrowColor( Value : TColor);
procedure SetFaceColor( Value : TColor);
Hour & Min difference between system time
Create and set timer
procedure SetHourDiff( Value : integer);
procedure SetMinDiff( Value : integer);
procedure SetShowSecond( Value : boolean);
procedure TimeDiff( GTime, DTime : TDateTime; var dHour, dMin : integer);
Draw clock arrows} { Time difference ( GTime - DTime)
property Align :
Set clock time
property ClkArrowColor : TColor
property ClkFaceColor : TColor
property DifHour : integer
property DifMinute : integer
property Enabled :
property ParentShowHint :
property SecArrow : boolean
property ShowHint :
property Visible :
event OnHour : TNotifyEvent
event OnMinute : TNotifyEvent
event OnSecond : TNotifyEvent
CenterPoint : TPoint;
Clock variables
CHourDiff : integer;
Clock face color
CMinDiff : integer;
FArrowColor : TColor;
Show or not second arrow
FBitMap : TBitMap;
Arrows pen
FFaceColor : TColor;
Arrows color
FOnHour : TNotifyEvent;
FOnMinute : TNotifyEvent;
FOnSecond : TNotifyEvent;
Background BitMap} { OnSecond, OnMinute, OnHour events
FPen : TPen;
LapStepW : integer;
Radius of clock
PrevTime : TDateTime;
Width of lap steps rectangles
Radius : integer;
Center of arrows
ShowSecond : boolean;
Ticker : TTimer;