Class TDRClock (unit DrClock) |
Inherits from
TGraphicControl
constructor Create(AOwner: TComponent);
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);
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 :
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;
constructor Create(AOwner: TComponent);
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);
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 :
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;