Inherits from
TForm
procedure BitBtn1Click(Sender: TObject);
gauge1.
procedure BitBtn2Click(Sender: TObject);
timer1.
procedure FormCreate(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
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;
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);
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;