| Class TTimingForm (unit TimeForm) |
TForm
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure RunTestsClick(Sender: TObject);
procedure TraceActionClick(Sender: TObject);
Procedure DoTest(TraceType:integer);
Procedure SetFastest(Value:integer);| Properties |
property Fastest : integer| Events |
| Variables |
ActiveLabel : TLabel;
FastestLabel : TLabel;
PassCount : TLabel;
RunTestsBtn : TButton;
TimingBox : TGroupBox;
TraceAction : TRadioGroup;
fFastest : integer;| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure RunTestsClick(Sender: TObject);
procedure TraceActionClick(Sender: TObject);warn if Tracing NOT active
Procedure DoTest(TraceType:integer);
Procedure SetFastest(Value:integer);| Properties |
property Fastest : integer| Events |
| Variables |
ActiveLabel : TLabel;
FastestLabel : TLabel;
PassCount : TLabel;
RunTestsBtn : TButton;
TimingBox : TGroupBox;
TraceAction : TRadioGroup;
fFastest : integer;Private declarations