paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-11 09:53:03 +01:00
Code Issues Packages Projects Releases Wiki Activity

pas2jsdsgn: fixed compile

Browse Source 
git-svn-id: trunk@56790 -
This commit is contained in:
mattias 2017-12-19 09:55:40 +00:00
parent d802e5bb5f
commit effc623ed8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/pas2js/pjsdsgnregister.pas
View File

@ -247,8 +247,8 @@ begin
CompOpts.SetAlternativeCompile( CompOpts.SetAlternativeCompile(
'$MakeExe(pas2js) -Jc -Jminclude -Tnodejs "-Fu$(ProjUnitPath)" $Name($(ProjFile))',true); '$MakeExe(pas2js) -Jc -Jminclude -Tnodejs "-Fu$(ProjUnitPath)" $Name($(ProjFile))',true);
RunParams:=AProject.RunParameters; RunParams:=AProject.RunParameters;
RunParams.UseLaunchingApplication:=True; //RunParams.UseLaunchingApplication:=True;
RunParams.LaunchingApplicationPathPlusParams:='$(Pas2JSNodeJS) "$MakeDir($(ProjPath))$NameOnly($(ProjFile)).js"'; //RunParams.LaunchingApplicationPathPlusParams:='$(Pas2JSNodeJS) "$MakeDir($(ProjPath))$NameOnly($(ProjFile)).js"';
// create program source // create program source
NewSource:=CreateProjectSource; NewSource:=CreateProjectSource;
@ -499,8 +499,8 @@ begin
CompOpts.SetAlternativeCompile( CompOpts.SetAlternativeCompile(
'$MakeExe(pas2js) -Jirtl.js -Jc -Jminclude -Tbrowser "-Fu$(ProjUnitPath)" $Name($(ProjFile))',true); '$MakeExe(pas2js) -Jirtl.js -Jc -Jminclude -Tbrowser "-Fu$(ProjUnitPath)" $Name($(ProjFile))',true);
RunParams:=AProject.RunParameters; RunParams:=AProject.RunParameters;
RunParams.UseLaunchingApplication:=True; //RunParams.UseLaunchingApplication:=True;
RunParams.LaunchingApplicationPathPlusParams:=GetBrowserCommand(CompOpts.TargetFileName); //RunParams.LaunchingApplicationPathPlusParams:=GetBrowserCommand(CompOpts.TargetFileName);
AProject.MainFile.SetSourceText(CreateProjectSource,true); AProject.MainFile.SetSourceText(CreateProjectSource,true);
AProject.CustomData.Values[PJSProjectWebBrowser]:='1'; AProject.CustomData.Values[PJSProjectWebBrowser]:='1';
if baoUseURL in Options then if baoUseURL in Options then