Class TClock (unit CClock)

Inherits from

TGraphicControl

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.


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)

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;



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;