| Class Tprofiler (unit Z_prof) |
TForm
| Constructors |
| Functions |
procedure ClearbuttonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure mark(nr:integer;aactive:boolean);
procedure RadioGroup1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure calibrateCPU;
procedure CorrectForOverhead;
procedure gettime(nr:integer);
function gettimediff(nr:integer):extended;
procedure tablecontent(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);| Properties |
| Events |
| Variables |
Clearbutton : TSpeedButton;
DrawGrid1 : TDrawGrid;
fdvisible : boolean;
frvisible : boolean;
Label1 : TLabel;
Panel1 : TPanel;
RadioGroup1 : TRadioGroup;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
rmark : array[1..nmarks] of markrecord;| Constructors |
| Functions |
procedure ClearbuttonClick(Sender: TObject);MHz
procedure FormCreate(Sender: TObject);keep a copy for the overhead time subtraction
procedure mark(nr:integer;aactive:boolean);
procedure RadioGroup1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure calibrateCPU;
procedure CorrectForOverhead;
procedure gettime(nr:integer);
function gettimediff(nr:integer):extended;
procedure tablecontent(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);| Properties |
| Events |
| Variables |
Clearbutton : TSpeedButton;
DrawGrid1 : TDrawGrid;
fdvisible : boolean;
frvisible : boolean;
Label1 : TLabel;
Panel1 : TPanel;
RadioGroup1 : TRadioGroup;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
rmark : array[1..nmarks] of markrecord;