Class TMainForm (unit TEST_A1)
Inherits from
TForm
Constructors
Functions
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ThreadActivate(Sender: TObject);
procedure ThreadExecute(Sender: TObject);
procedure ThreadResume(Sender: TObject);
procedure ThreadSuspend(Sender: TObject);
procedure ThreadTerminate(Sender: TObject);
procedure UpdateLights;
Properties
Events
Variables
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button5 : TButton;
cbActive : TCheckBox;
cbSuspended : TCheckBox;
G1 : TAnotherGauge;
G2 : TAnotherGauge;
Panel1 : TPanel;
Thread : TSimpleThread;
Constructors
Functions
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ThreadActivate(Sender: TObject);
procedure ThreadExecute(Sender: TObject);
procedure ThreadResume(Sender: TObject);
procedure ThreadSuspend(Sender: TObject);
procedure ThreadTerminate(Sender: TObject);
procedure UpdateLights;
Properties
Events
Variables
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button5 : TButton;
cbActive : TCheckBox;
cbSuspended : TCheckBox;
G1 : TAnotherGauge;
G2 : TAnotherGauge;
Panel1 : TPanel;
Thread : TSimpleThread;