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;