Class TClkForm (unit Clkunit)

Inherits from

TForm

Constructors



Functions

procedure CheckBox1Click(Sender: TObject);


procedure ClkTabSetClick(Sender: TObject);


procedure ColorGrid1Change(Sender: TObject);


procedure EvClockMinute(Sender: TObject);


procedure EvClockSecond(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure PWClockMinute(Sender: TObject);

Load main icon into image

procedure SysClockHour(Sender: TObject);

Update dates every hour

procedure TDHSpinDownClick(Sender: TObject);

Set time difference on the "Time difference" clock

procedure TDHSpinUpClick(Sender: TObject);


procedure TDMSpinDownClick(Sender: TObject);


procedure TDMSpinUpClick(Sender: TObject);


procedure UpdateDate;

Update system date on the system clock

Properties

Events

Variables

ACCClock : TClock;


CheckBox1 : TCheckBox;


ClkNotebook : TNotebook;


ClkTabSet : TTabSet;


ColorGrid1 : TColorGrid;


EvClock : TClock;


Image1 : TImage;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


LDay : TLabel;


LMonth : TLabel;


LYear : TLabel;


NBPannel : TPanel;


Panel1 : TPanel;


Panel10 : TPanel;


Panel11 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


Panel7 : TPanel;


Panel8 : TPanel;


Panel9 : TPanel;


PWClock : TClock;


PWLabel1 : TLabel;


PWLabel2 : TLabel;


Shape1 : TShape;


Shape2 : TShape;


SysClock : TClock;


SysLabel : TLabel;


SysPanel : TPanel;


TDClock : TClock;


TDHLabel : TLabel;


TDHSpin : TSpinButton;


TDMLabel : TLabel;


TDMSpin : TSpinButton;


ColorCounter : word;

Private declarations


Constructors


Functions


procedure CheckBox1Click(Sender: TObject);


procedure ClkTabSetClick(Sender: TObject);


procedure ColorGrid1Change(Sender: TObject);


procedure EvClockMinute(Sender: TObject);


procedure EvClockSecond(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure PWClockMinute(Sender: TObject);

Load main icon into image


procedure SysClockHour(Sender: TObject);

Update dates every hour


procedure TDHSpinDownClick(Sender: TObject);

Set time difference on the "Time difference" clock


procedure TDHSpinUpClick(Sender: TObject);


procedure TDMSpinDownClick(Sender: TObject);


procedure TDMSpinUpClick(Sender: TObject);


procedure UpdateDate;

Update system date on the system clock


Properties


Events


Variables


ACCClock : TClock;


CheckBox1 : TCheckBox;


ClkNotebook : TNotebook;


ClkTabSet : TTabSet;


ColorGrid1 : TColorGrid;


EvClock : TClock;


Image1 : TImage;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


LDay : TLabel;


LMonth : TLabel;


LYear : TLabel;


NBPannel : TPanel;


Panel1 : TPanel;


Panel10 : TPanel;


Panel11 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


Panel7 : TPanel;


Panel8 : TPanel;


Panel9 : TPanel;


PWClock : TClock;


PWLabel1 : TLabel;


PWLabel2 : TLabel;


Shape1 : TShape;


Shape2 : TShape;


SysClock : TClock;


SysLabel : TLabel;


SysPanel : TPanel;


TDClock : TClock;


TDHLabel : TLabel;


TDHSpin : TSpinButton;


TDMLabel : TLabel;


TDMSpin : TSpinButton;


ColorCounter : word;

Private declarations