123456789101112131415161718192021222324252627282930313233343536373839404142 |
- unit frmrtlrun;
- {$mode objfpc}
- interface
- uses
- Classes, fpcunitreport, BrowserConsole, web;
- Type
- { TConsoleRunner }
- TConsoleRunner = Class(TRunForm)
- Private
- FRun : TJSHTMLButtonElement;
- function DoRunTest(aEvent: TJSMouseEvent): boolean;
- public
- procedure initialize; override;
- end;
- implementation
- { TConsoleRunner }
- function TConsoleRunner.DoRunTest(aEvent: TJSMouseEvent): boolean;
- begin
- Result:=False;
- ResetConsole;
- If Assigned(OnRun) then
- OnRun(Self);
- end;
- procedure TConsoleRunner.initialize;
- begin
- FRun:=TJSHTMLButtonElement(document.getElementById('RunTest'));
- FRun.onClick:=@DoRunTest;
- ResetConsole;
- end;
- end.
|