paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 11:47:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix some warnings

Browse Source
This commit is contained in:
michael 2019-04-01 08:49:29 +00:00
parent a0351ecfdc
commit f19bd7899d
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
demo/webcompiler/demowebcompiler.lpr
View File

@ -103,8 +103,8 @@ constructor TWebCompilerDemo.Create(aOwner : TComponent);
begin
Inherited;
FCompiler:=TPas2JSWebCompiler.Create;
FCompiler.Log.OnLog:=@DoLog;
FCompiler.WebFS.LoadBaseURL:='sources';
Compiler.Log.OnLog:=@DoLog;
Compiler.WebFS.LoadBaseURL:='sources';
end;
function TWebCompilerDemo.RunClick(aEvent: TJSMouseEvent): boolean;
@ -113,7 +113,8 @@ Var
Src : String;
begin
Src:=FCompiler.WebFS.GetFileContent('main.js');
Result:=True;
Src:=Compiler.WebFS.GetFileContent('main.js');
if Src='' then
begin
Window.Alert('No source available');
@ -131,13 +132,13 @@ end;
function TWebCompilerDemo.LoadDefaultsClick(aEvent: TJSMouseEvent): boolean;
begin
Result:=False;
FCompiler.WebFS.LoadFiles(['rtl.js','system.pas','sysutils.pas','types.pas','typinfo.pas','classes.pas','rtlconsts.pas','js.pas','web.pas','browserconsole.pas'],@OnUnitLoaded);
Compiler.WebFS.LoadFiles(['rtl.js','system.pas','sysutils.pas','types.pas','typinfo.pas','classes.pas','rtlconsts.pas','js.pas','web.pas','browserconsole.pas'],@OnUnitLoaded);
end;
function TWebCompilerDemo.LoadSingleUnitClick(aEvent: TJSMouseEvent): boolean;
begin
Result:=False;
FCompiler.WebFS.LoadFile(EUnitName.Value,@OnUnitLoaded);
Compiler.WebFS.LoadFile(EUnitName.Value,@OnUnitLoaded);
end;
@ -203,7 +204,7 @@ begin
BRun['disabled']:='disabled';
ClearResult;
MLog.Value:='';
FCompiler.WebFS.SetFileContent('main.pp',MSource.value);
Compiler.WebFS.SetFileContent('main.pp',MSource.value);
args:=TStringList.Create;
try
Args.Add('-Tbrowser');
@ -212,8 +213,8 @@ begin
Args.Add('main.pp');
ActivateTab('output');
RFrame.Src:='run.html';
FCompiler.Run('','',Args,True);
Res:=FCompiler.ExitCode=0;
Compiler.Run('','',Args,True);
Res:=Compiler.ExitCode=0;
ShowResult(Res);
if Res then
BRun.removeAttribute('disabled');