Inherits from
TForm
procedure bar1Click(Sender: TObject);
procedure bar2Click(Sender: TObject);
procedure bar3Click(Sender: TObject);
procedure bar4Click(Sender: TObject);
procedure bar5Click(Sender: TObject);
procedure bar6Click(Sender: TObject);
procedure bar7Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure diag1Click(Sender: TObject);
procedure diag2Click(Sender: TObject);
procedure diag3Click(Sender: TObject);
procedure diag4Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure pointClick(Sender: TObject);
procedure SpinButton1DownClick(Sender: TObject);
procedure SpinButton1UpClick(Sender: TObject);
procedure Swap(bar:TDigitBars);
procedure Timer1Timer(Sender: TObject);
bar1 : TSpeedButton;
bar2 : TSpeedButton;
bar3 : TSpeedButton;
bar4 : TSpeedButton;
bar5 : TSpeedButton;
bar6 : TSpeedButton;
bar7 : TSpeedButton;
diag1 : TSpeedButton;
diag2 : TSpeedButton;
diag3 : TSpeedButton;
diag4 : TSpeedButton;
DigitLed1 : TDigitLed;
Edit1 : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
LedCounter : TLedGroup;
LedGroup1 : TLedGroup;
ledhour : TLedGroup;
LedMin : TLedGroup;
LedSec : TLedGroup;
point : TSpeedButton;
Shape1 : TShape;
Shape2 : TShape;
Shape3 : TShape;
Shape4 : TShape;
SpinButton1 : TSpinButton;
Timer1 : TTimer;
Counter : Byte;
Private declarations
procedure bar1Click(Sender: TObject);
procedure bar2Click(Sender: TObject);
procedure bar3Click(Sender: TObject);
procedure bar4Click(Sender: TObject);
procedure bar5Click(Sender: TObject);
procedure bar6Click(Sender: TObject);
procedure bar7Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure diag1Click(Sender: TObject);
procedure diag2Click(Sender: TObject);
procedure diag3Click(Sender: TObject);
procedure diag4Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure pointClick(Sender: TObject);
procedure SpinButton1DownClick(Sender: TObject);
procedure SpinButton1UpClick(Sender: TObject);
procedure Swap(bar:TDigitBars);
procedure Timer1Timer(Sender: TObject);
bar1 : TSpeedButton;
bar2 : TSpeedButton;
bar3 : TSpeedButton;
bar4 : TSpeedButton;
bar5 : TSpeedButton;
bar6 : TSpeedButton;
bar7 : TSpeedButton;
diag1 : TSpeedButton;
diag2 : TSpeedButton;
diag3 : TSpeedButton;
diag4 : TSpeedButton;
DigitLed1 : TDigitLed;
Edit1 : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
LedCounter : TLedGroup;
LedGroup1 : TLedGroup;
ledhour : TLedGroup;
LedMin : TLedGroup;
LedSec : TLedGroup;
point : TSpeedButton;
Shape1 : TShape;
Shape2 : TShape;
Shape3 : TShape;
Shape4 : TShape;
SpinButton1 : TSpinButton;
Timer1 : TTimer;
Counter : Byte;
Private declarations