Class TForm1 (unit lcd1)

Inherits from

TForm

Constructors



Functions

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);


Properties

Events

Variables

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


Constructors


Functions


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);


Properties


Events


Variables


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