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

* Fix saving of options for using http server

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-02-06 12:43:11 +01:00
parent 28dc8193a3
commit 257cf10762
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/pas2js/pjsdsgnregister.pas
View File

@ -373,16 +373,16 @@ begin
SO(UseRunOnReady,baoRunOnReady);
SO(ShowUncaughtExceptions,baoShowException);
SO(UseWASI,baoUseWASI);
DebugLN(['Start server:', CO(baoStartServer)]);
if CO(baoStartServer) then
SO(StartHTTPServer,baoStartServer);
Self.ProjectPort:=ServerPort;
SO(UseURL,baoUseURL);
if baoStartServer in FOptions then
begin
Self.ProjectPort:=ServerPort;
DebugLN(['Start server port: ', Self.ProjectPort,'from: ',ServerPort]);
end
else
begin
UseURL:=CO(baoUseURL);
if UseURL then
if baoUseURL in Options then
FProjectURL:=URL;
end;
end;