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

pas2js: fixed runnable flags

Browse Source
This commit is contained in:
mattias 2022-04-23 12:13:11 +02:00
parent 41a72eb9a0
commit 288d77f4f6
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/pas2js/pjsdsgnregister.pas
View File

@ -1044,7 +1044,6 @@ begin
Result:=false;
AProject.CustomData.Values[PJSProject]:='1';
AProject.Flags:=AProject.Flags-[pfRunnable];
MainFile:=AProject.CreateProjectFile(PreloadLPR);
MainFile.IsPartOfProject:=true;
@ -1120,7 +1119,6 @@ begin
AProject.ProjectInfoFile:=RenderLPI;
AProject.CustomData.Values[PJSProject]:='1';
AProject.Flags:=AProject.Flags-[pfRunnable];
MainFile:=AProject.CreateProjectFile(RenderLPR);
MainFile.IsPartOfProject:=true;
@ -1182,7 +1180,6 @@ begin
AProject.ProjectInfoFile:=ChangeFileExt(MainSrcFileName,'.lpi');
AProject.CustomData.Values[PJSProject]:='1';
AProject.Flags:=AProject.Flags+[pfRunnable];
MainFile:=AProject.CreateProjectFile(MainSrcFileName);
MainFile.IsPartOfProject:=true;
@ -1313,7 +1310,7 @@ var
CompOpts: TLazCompilerOptions;
RunMode: TAbstractRunParamsOptionsMode;
begin
AProject.Flags:=DefaultProjectNoApplicationFlags-[pfRunnable];
AProject.Flags:=DefaultProjectNoApplicationFlags;
AProject.CustomData.Values[PJSProject]:='1';
// start with the preload project
@ -1868,7 +1865,7 @@ end;
procedure TProjectPas2JSWebApp.Clear;
begin
// Reset options
Flags:=DefaultProjectNoApplicationFlags-[pfRunnable];
Flags:=DefaultProjectNoApplicationFlags;
FMainSrcName:='Project1';
FOptions:=[baoCreateHtml,baoMaintainHTML,baoStartServer];
ProjectPort:=0;
@ -2284,7 +2281,6 @@ begin
end;
end;
constructor TProjectPas2JSModuleApp.Create;
begin
inherited Create;