Class TForm1 (unit Ledu)

Inherits from

TForm

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);

gauge1.

procedure BitBtn2Click(Sender: TObject);

timer1.

procedure FormCreate(Sender: TObject);


procedure SpinEdit1Change(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


Properties

Events

Variables

BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


Gauge1 : TGauge;


Gauge2 : TGauge;


Gauge3 : TGauge;


Gauge4 : TGauge;


Label1 : TLabel;


LedBarPanel : TPanel;


Panel10 : TPanel;


Panel11 : TPanel;


Panel12 : TPanel;


Panel13 : TPanel;


Panel14 : TPanel;


Panel15 : TPanel;


Panel16 : TPanel;


Panel17 : TPanel;


ProgressBar1 : TProgressBar;


RadioButton1 : TRadioButton;


RadioButton10 : TRadioButton;


RadioButton2 : TRadioButton;


RadioButton3 : TRadioButton;


RadioButton4 : TRadioButton;


RadioButton5 : TRadioButton;


RadioButton6 : TRadioButton;


RadioButton7 : TRadioButton;


RadioButton8 : TRadioButton;


RadioButton9 : TRadioButton;


RadioPanel : TPanel;


SpinEdit1 : TSpinEdit;


Timer1 : TTimer;



Constructors


Functions


procedure BitBtn1Click(Sender: TObject);

gauge1.progress := (gauge1.progress+1) mod gauge1.maxvalue; gauge2.progress := (gauge2.progress+1) mod gauge2.maxvalue; gauge3.progress := (gauge3.progress+1) mod gauge3.maxvalue; gauge4.progress := (gauge4.progress+1) mod gauge4.maxvalue;


procedure BitBtn2Click(Sender: TObject);

timer1.enabled := true;


procedure FormCreate(Sender: TObject);


procedure SpinEdit1Change(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


Properties


Events


Variables


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


Gauge1 : TGauge;


Gauge2 : TGauge;


Gauge3 : TGauge;


Gauge4 : TGauge;


Label1 : TLabel;


LedBarPanel : TPanel;


Panel10 : TPanel;


Panel11 : TPanel;


Panel12 : TPanel;


Panel13 : TPanel;


Panel14 : TPanel;


Panel15 : TPanel;


Panel16 : TPanel;


Panel17 : TPanel;


ProgressBar1 : TProgressBar;


RadioButton1 : TRadioButton;


RadioButton10 : TRadioButton;


RadioButton2 : TRadioButton;


RadioButton3 : TRadioButton;


RadioButton4 : TRadioButton;


RadioButton5 : TRadioButton;


RadioButton6 : TRadioButton;


RadioButton7 : TRadioButton;


RadioButton8 : TRadioButton;


RadioButton9 : TRadioButton;


RadioPanel : TPanel;


SpinEdit1 : TSpinEdit;


Timer1 : TTimer;