paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

pas2js: started lpg

Browse Source
This commit is contained in:
mattias 2022-04-13 10:03:04 +02:00
parent b9a490a3e1
commit 3d6bf3c2c1
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/pas2js/pjscontroller.pp
View File

@ -322,7 +322,7 @@ begin
ServerPort:=StrToIntDef(aProject.CustomData[PJSProjectPort],-1); ServerPort:=StrToIntDef(aProject.CustomData[PJSProjectPort],-1);
URL:=aProject.CustomData[PJSProjectURL]; URL:=aProject.CustomData[PJSProjectURL];
if (ServerPort<0) and (URL='') then if (ServerPort<0) and (URL='') then
exit; exit; // compile normally and run the run-parameters
// Run webproject with Debug: build, start webserver, open browser // Run webproject with Debug: build, start webserver, open browser

10
components/pas2js/pjsdsgnregister.pas
View File

@ -131,6 +131,7 @@ type
function InteractiveForceDir(Dir: string; AutoDelete: boolean): boolean; virtual; function InteractiveForceDir(Dir: string; AutoDelete: boolean): boolean; virtual;
function InteractiveSaveFile(aFilename: string): boolean; virtual; function InteractiveSaveFile(aFilename: string): boolean; virtual;
function InteractiveCopyFile(Src, Dest: string): boolean; virtual; function InteractiveCopyFile(Src, Dest: string): boolean; virtual;
function CreateProjectGroup(AProject: TLazProject): boolean; virtual;
public public
constructor Create; override; constructor Create; override;
procedure Clear; override; procedure Clear; override;
@ -584,6 +585,12 @@ begin
Result:=false; Result:=false;
end; end;
function TProjectPas2JSProgressiveWebApp.CreateProjectGroup(
AProject: TLazProject): boolean;
begin
Result:=true;
end;
constructor TProjectPas2JSProgressiveWebApp.Create; constructor TProjectPas2JSProgressiveWebApp.Create;
begin begin
inherited Create; inherited Create;
@ -715,6 +722,9 @@ begin
// save lpi // save lpi
if LazarusIDE.DoSaveProject([sfQuietUnitCheck])<>mrOk then exit; if LazarusIDE.DoSaveProject([sfQuietUnitCheck])<>mrOk then exit;
// project group
if not CreateProjectGroup(AProject) then exit;
Result:=mrOk; Result:=mrOk;
end; end;