Class TDRClock (unit DrClock)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure Paint;


procedure SetMults;


procedure FTimerOnTimer(sender:TObject);


procedure SetBackColor(value:TColor);


procedure SetBorder(Value: TDRBorder);

used to calculate the text position

procedure SetDispPoints(Value: boolean);


procedure SetDispText(value: boolean);


procedure SetEnabled(Value: boolean);


procedure SetPointerColor(value:TColor);


procedure SetScaleColor(value:TColor);


procedure SetSecondsColor(value:TColor);


Properties

property Align :


property Border : TDRBorder


property Color : TColor


property DisplayPoints : boolean


property DisplayText : boolean


property Enabled : boolean


property Font :


property PointerColor : TColor


property ScaleColor : TColor


property SecondsColor : TColor


property ShowHint :


property Visible :


Events

Variables

base : integer;


FBackColor : TColor;


FBorder : TDRBorder;


FDispPoints : boolean;


FDispText : boolean;


FEnabled : boolean;


FPointerColor : TColor;


FScaleColor : TColor;


FSecondsColor : TColor;


FTimer : TTimer;


Hour : Word;


HWidth : integer;


LabelLoc : real;


LineMult1 : real;

used to calculate the size of the hour pointer

LineMult2 : real;

used to calculate the size of the scale points

lx : integer;

xc: width div 2 - yc: heigth div 2

lxH : Word;


lxM : Word;


lxS : Word;


ly : integer;


lyH : Word;


lyM : Word;


lyS : Word;


Min : Word;


MinAnt : Word;


MSec : Word;


MWidth : integer;

Width od the hour pointer

PointerMultH : real;

used to calculate the size of the minute pointer

PointerMultM : real;


radius : integer;

base: radius of the base of the pointer

Sec : Word;


SecAnt : Word;


TextMult : real;

used to calculate the size of the scale points

xc : integer;

Width od the minute pointer

yc : integer;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure Paint;


procedure SetMults;


procedure FTimerOnTimer(sender:TObject);


procedure SetBackColor(value:TColor);


procedure SetBorder(Value: TDRBorder);

used to calculate the text position


procedure SetDispPoints(Value: boolean);


procedure SetDispText(value: boolean);


procedure SetEnabled(Value: boolean);


procedure SetPointerColor(value:TColor);


procedure SetScaleColor(value:TColor);


procedure SetSecondsColor(value:TColor);


Properties


property Align :


property Border : TDRBorder


property Color : TColor


property DisplayPoints : boolean


property DisplayText : boolean


property Enabled : boolean


property Font :


property PointerColor : TColor


property ScaleColor : TColor


property SecondsColor : TColor


property ShowHint :


property Visible :


Events


Variables


base : integer;


FBackColor : TColor;


FBorder : TDRBorder;


FDispPoints : boolean;


FDispText : boolean;


FEnabled : boolean;


FPointerColor : TColor;


FScaleColor : TColor;


FSecondsColor : TColor;


FTimer : TTimer;


Hour : Word;


HWidth : integer;


LabelLoc : real;


LineMult1 : real;

used to calculate the size of the hour pointer


LineMult2 : real;

used to calculate the size of the scale points


lx : integer;

xc: width div 2 - yc: heigth div 2


lxH : Word;


lxM : Word;


lxS : Word;


ly : integer;


lyH : Word;


lyM : Word;


lyS : Word;


Min : Word;


MinAnt : Word;


MSec : Word;


MWidth : integer;

Width od the hour pointer


PointerMultH : real;

used to calculate the size of the minute pointer


PointerMultM : real;


radius : integer;

base: radius of the base of the pointer


Sec : Word;


SecAnt : Word;


TextMult : real;

used to calculate the size of the scale points


xc : integer;

Width od the minute pointer


yc : integer;