| Class TClock (unit CClock) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure ClkTime( var H, M, S : word);
destructor Destroy;
procedure SetClkTime( CTime : TDateTime);Set clock time.
procedure Paint;
procedure TickerCall(Sender: TObject);
procedure CalcClockSettings;DrawArrows
procedure DecodeCTime( CTime : TDateTime; var H, M, S : word);
procedure DrawArrows;
procedure DrawClockBkg;
function HourAngle( Hou, Min : word) : real;MinuteAngle
function MinuteAngle( Min : word) : real;
procedure SetArrowColor( Value : TColor);
procedure SetFaceColor( Value : TColor);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);| Properties |
property Align :
property ClkArrowColor : TColor
property ClkFaceColor : TColor
property DifHour : integer
property DifMinute : integer
property Enabled :
property ParentShowHint :
property SecArrow : boolean
property ShowHint :
property Visible : | Events |
event OnHour : TNotifyEvent
event OnMinute : TNotifyEvent
event OnSecond : TNotifyEvent| Variables |
CenterPoint : TPoint;
CHourDiff : integer;
CMinDiff : integer;
FArrowColor : TColor;
FBitMap : TBitMap;
FFaceColor : TColor;
FOnHour : TNotifyEvent;
FOnMinute : TNotifyEvent;
FOnSecond : TNotifyEvent;
FPen : TPen;
LapStepW : integer;
PrevTime : TDateTime;
Radius : integer;
ShowSecond : boolean;
Ticker : TTimer;| Constructors |
constructor Create(AOwner: TComponent);Timer event
| Functions |
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)
| Properties |
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 : | Events |
event OnHour : TNotifyEvent
event OnMinute : TNotifyEvent
event OnSecond : TNotifyEvent| Variables |
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;