Class TTimingForm (unit TimeForm)

Inherits from

TForm

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


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