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

pas2js: added location on simple webserver

Browse Source
This commit is contained in:
mattias 2022-04-23 14:46:51 +02:00
parent 288d77f4f6
commit bdb7bec118
15 changed files with 802 additions and 558 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
components/pas2js/frmpas2jsbrowserprojectoptions.lfm
View File

@ -1,7 +1,7 @@
object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
Left = 1434 Left = 381
Height = 490 Height = 490
Top = 765 Top = 232
Width = 632 Width = 632
Caption = 'Pas2JS Browser project options' Caption = 'Pas2JS Browser project options'
ClientHeight = 490 ClientHeight = 490
@ -39,7 +39,7 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
end end
object CBUseBrowserConsole: TCheckBox object CBUseBrowserConsole: TCheckBox
AnchorSideLeft.Control = CBCreateHTML AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = cbShowUncaughtExceptions AnchorSideTop.Control = CBShowUncaughtExceptions
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 38 Left = 38
Height = 23 Height = 23
@ -92,7 +92,7 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
Caption = 'Run rtl when all page resources are fully loaded' Caption = 'Run rtl when all page resources are fully loaded'
TabOrder = 5 TabOrder = 5
end end
object cbShowUncaughtExceptions: TCheckBox object CBShowUncaughtExceptions: TCheckBox
AnchorSideLeft.Control = CBCreateHTML AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBRunOnReady AnchorSideTop.Control = CBRunOnReady
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -157,38 +157,38 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 123 Height = 159
Top = 274 Top = 274
Width = 620 Width = 620
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Run' Caption = 'Run'
ClientHeight = 107 ClientHeight = 143
ClientWidth = 618 ClientWidth = 618
TabOrder = 10 TabOrder = 10
object RBRunServerAt: TRadioButton object RBRunServerAt: TRadioButton
AnchorSideLeft.Control = RunGroupBox AnchorSideLeft.Control = RunGroupBox
AnchorSideTop.Control = SEPort AnchorSideTop.Control = SERunPort
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 23 Height = 23
Top = 10 Top = 46
Width = 168 Width = 168
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Start HTTP Server on port' Caption = 'Start HTTP Server on port'
Checked = True
OnChange = RBRunServerAtChange OnChange = RBRunServerAtChange
TabOrder = 4 TabOrder = 4
TabStop = True
end end
object SEPort: TSpinEdit object SERunPort: TSpinEdit
AnchorSideLeft.Control = RBRunServerAt AnchorSideLeft.Control = RBRunServerAt
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RunGroupBox AnchorSideTop.Control = CBRunLocationOnSWS
AnchorSideTop.Side = asrBottom
Left = 180 Left = 180
Height = 30 Height = 30
Top = 6 Top = 42
Width = 76 Width = 76
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -199,26 +199,26 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
end end
object RBRunBrowserWithURL: TRadioButton object RBRunBrowserWithURL: TRadioButton
AnchorSideLeft.Control = RBRunServerAt AnchorSideLeft.Control = RBRunServerAt
AnchorSideTop.Control = CBServerURL AnchorSideTop.Control = CBRunServerURL
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 23 Height = 23
Top = 46 Top = 82
Width = 138 Width = 138
Caption = 'Use URL to start app' Caption = 'Use URL to start app'
OnChange = RBRunBrowserWithURLChange OnChange = RBRunBrowserWithURLChange
TabOrder = 1 TabOrder = 1
end end
object CBServerURL: TComboBox object CBRunServerURL: TComboBox
AnchorSideLeft.Control = RBRunBrowserWithURL AnchorSideLeft.Control = RBRunBrowserWithURL
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SEPort AnchorSideTop.Control = SERunPort
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RunGroupBox AnchorSideRight.Control = RunGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 150 Left = 150
Height = 30 Height = 30
Top = 42 Top = 78
Width = 462 Width = 462
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -229,11 +229,11 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
TabOrder = 2 TabOrder = 2
end end
object RBRunDefault: TRadioButton object RBRunDefault: TRadioButton
AnchorSideTop.Control = CBServerURL AnchorSideTop.Control = CBRunServerURL
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 23
Top = 78 Top = 114
Width = 162 Width = 162
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -242,5 +242,42 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
OnChange = RBRunDefaultChange OnChange = RBRunDefaultChange
TabOrder = 3 TabOrder = 3
end end
object RBRunLocationOnSWS: TRadioButton
AnchorSideLeft.Control = RunGroupBox
AnchorSideTop.Control = CBRunLocationOnSWS
AnchorSideTop.Side = asrCenter
Left = 6
Height = 23
Top = 10
Width = 196
BorderSpacing.Left = 6
Caption = 'Location on Simple Web Server'
Checked = True
OnChange = RBRunLocationOnSWSChange
TabOrder = 6
TabStop = True
end
object CBRunLocationOnSWS: TComboBox
AnchorSideLeft.Control = RBRunLocationOnSWS
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RunGroupBox
AnchorSideRight.Control = RunGroupBox
AnchorSideRight.Side = asrBottom
Left = 208
Height = 30
Top = 6
Width = 404
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'$NameOnly($(ProjFile))'
)
TabOrder = 5
Text = '$NameOnly($(ProjFile))'
end
end end
end end

78
components/pas2js/frmpas2jsbrowserprojectoptions.pp
View File

@ -17,9 +17,10 @@ const
WBBoolUseWASI = 5; WBBoolUseWASI = 5;
WBBoolUseBrowserConsole = 6; WBBoolUseBrowserConsole = 6;
WBBoolUseModule = 7; WBBoolUseModule = 7;
WBBoolRunServerAtPort = 8; WBBoolRunLocation = 8;
WBBoolRunBrowserWithURL = 9; WBBoolRunServerAtPort = 9;
WBBoolRunDefault = 10; WBBoolRunBrowserWithURL = 10;
WBBoolRunDefault = 11;
type type
{ TWebBrowserProjectOptionsForm } { TWebBrowserProjectOptionsForm }
@ -27,33 +28,38 @@ type
TWebBrowserProjectOptionsForm = class(TForm) TWebBrowserProjectOptionsForm = class(TForm)
BPHelpOptions: TButtonPanel; BPHelpOptions: TButtonPanel;
CBCreateHTML: TCheckBox; CBCreateHTML: TCheckBox;
CBServerURL: TComboBox; CBMaintainPage: TCheckBox;
CBRunLocationOnSWS: TComboBox;
CBRunOnReady: TCheckBox;
CBRunServerURL: TComboBox;
CBShowUncaughtExceptions: TCheckBox;
CBUseBrowserApp: TCheckBox; CBUseBrowserApp: TCheckBox;
CBUseBrowserConsole: TCheckBox;
CBUseModule: TCheckBox; CBUseModule: TCheckBox;
CBUseWASI: TCheckBox; CBUseWASI: TCheckBox;
CBUseBrowserConsole: TCheckBox;
CBMaintainPage: TCheckBox;
CBRunOnReady: TCheckBox;
cbShowUncaughtExceptions: TCheckBox;
edtWasmProgram: TEdit; edtWasmProgram: TEdit;
RBRunLocationOnSWS: TRadioButton;
RBRunBrowserWithURL: TRadioButton;
RBRunDefault: TRadioButton; RBRunDefault: TRadioButton;
RBRunServerAt: TRadioButton; RBRunServerAt: TRadioButton;
RBRunBrowserWithURL: TRadioButton;
RunGroupBox: TGroupBox; RunGroupBox: TGroupBox;
SEPort: TSpinEdit; SERunPort: TSpinEdit;
procedure CBCreateHTMLChange(Sender: TObject); procedure CBCreateHTMLChange(Sender: TObject);
procedure CBUseBrowserAppChange(Sender: TObject); procedure CBUseBrowserAppChange(Sender: TObject);
procedure CBUseHTTPServerChange(Sender: TObject); procedure CBUseHTTPServerChange(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure RBRunLocationOnSWSChange(Sender: TObject);
procedure RBRunDefaultChange(Sender: TObject); procedure RBRunDefaultChange(Sender: TObject);
procedure RBRunServerAtChange(Sender: TObject); procedure RBRunServerAtChange(Sender: TObject);
procedure RBRunBrowserWithURLChange(Sender: TObject); procedure RBRunBrowserWithURLChange(Sender: TObject);
private private
function GetB(AIndex: Integer): Boolean; function GetB(AIndex: Integer): Boolean;
function GetLocation: string;
function GetServerPort: Word; function GetServerPort: Word;
function GetURL: String; function GetURL: String;
function GetWasmProgramURL: String; function GetWasmProgramURL: String;
procedure SetB(AIndex: Integer; AValue: Boolean); procedure SetB(AIndex: Integer; AValue: Boolean);
procedure SetLocation(const AValue: string);
procedure SetServerPort(AValue: Word); procedure SetServerPort(AValue: Word);
procedure SetURL(AValue: String); procedure SetURL(AValue: String);
procedure SetWasmProgramURL(AValue: String); procedure SetWasmProgramURL(AValue: String);
@ -66,6 +72,7 @@ type
procedure HideRunOnReady; virtual; procedure HideRunOnReady; virtual;
procedure HideUseBrowserApp; virtual; procedure HideUseBrowserApp; virtual;
procedure HideRunHTTPServer; virtual; procedure HideRunHTTPServer; virtual;
procedure HideRunLocation; virtual;
property CreateHTML : Boolean Index WBBoolCreateHTML read GetB Write SetB; property CreateHTML : Boolean Index WBBoolCreateHTML read GetB Write SetB;
property MaintainHTML : Boolean Index WBBoolMainHTML read GetB Write SetB; property MaintainHTML : Boolean Index WBBoolMainHTML read GetB Write SetB;
@ -79,6 +86,8 @@ type
property UseBrowserConsole : Boolean Index WBBoolUseBrowserConsole read GetB Write SetB; property UseBrowserConsole : Boolean Index WBBoolUseBrowserConsole read GetB Write SetB;
property UseModule : Boolean Index WBBoolUseModule read GetB Write SetB; property UseModule : Boolean Index WBBoolUseModule read GetB Write SetB;
property RunLocation : Boolean Index WBBoolRunLocation read GetB Write SetB;
property Location : string Read GetLocation Write SetLocation;
property RunServerAtPort : Boolean Index WBBoolRunServerAtPort read GetB Write SetB; property RunServerAtPort : Boolean Index WBBoolRunServerAtPort read GetB Write SetB;
property ServerPort : Word Read GetServerPort Write SetServerPort; property ServerPort : Word Read GetServerPort Write SetServerPort;
property RunBrowserWithURL : Boolean Index WBBoolRunBrowserWithURL read GetB Write SetB; property RunBrowserWithURL : Boolean Index WBBoolRunBrowserWithURL read GetB Write SetB;
@ -135,7 +144,7 @@ begin
CBCreateHTML.Caption:=pjsdCreateInitialHTMLPage; CBCreateHTML.Caption:=pjsdCreateInitialHTMLPage;
CBMaintainPage.Caption:=pjsdMaintainHTMLPage; CBMaintainPage.Caption:=pjsdMaintainHTMLPage;
CBRunOnReady.Caption:=pjsdRunRTLWhenAllPageResourcesAreFullyLoaded; CBRunOnReady.Caption:=pjsdRunRTLWhenAllPageResourcesAreFullyLoaded;
cbShowUncaughtExceptions.Caption:=pjsdLetRTLShowUncaughtExceptions; CBShowUncaughtExceptions.Caption:=pjsdLetRTLShowUncaughtExceptions;
CBUseBrowserApp.Caption:=pjsdUseBrowserApplicationObject; CBUseBrowserApp.Caption:=pjsdUseBrowserApplicationObject;
CBUseWASI.Caption:=pjsdUseWASIApplicationObject; CBUseWASI.Caption:=pjsdUseWASIApplicationObject;
@ -145,13 +154,22 @@ begin
CBUseModule.Caption:=pjsCreateAJavascriptModuleInsteadOfAScript; CBUseModule.Caption:=pjsCreateAJavascriptModuleInsteadOfAScript;
RunGroupBox.Caption:=pjsdRun; RunGroupBox.Caption:=pjsdRun;
RBRunLocationOnSWS.Caption:=pjsdLocationOnSimpleWebServer;
RBRunLocationOnSWS.Hint:=pjsdTheSimpleWebServerIsAutomaticallyStartedOnRunTheLo;
RBRunServerAt.Caption:=pjsdStartHTTPServerOnPort; RBRunServerAt.Caption:=pjsdStartHTTPServerOnPort;
RBRunBrowserWithURL.Caption:=pjsdUseThisURLToStartApplication; RBRunBrowserWithURL.Caption:=pjsdUseThisURLToStartApplication;
RBRunBrowserWithURL.Hint:=pjsdUseThisWhenYouStartYourOwnHttpServer;
RBRunDefault.Caption:=pjsExecuteRunParameters; RBRunDefault.Caption:=pjsExecuteRunParameters;
CBCreateHTMLChange(self); CBCreateHTMLChange(self);
end; end;
procedure TWebBrowserProjectOptionsForm.RBRunLocationOnSWSChange(
Sender: TObject);
begin
UpdateRunControls;
end;
procedure TWebBrowserProjectOptionsForm.RBRunDefaultChange(Sender: TObject); procedure TWebBrowserProjectOptionsForm.RBRunDefaultChange(Sender: TObject);
begin begin
UpdateRunControls; UpdateRunControls;
@ -173,11 +191,12 @@ begin
WBBoolCreateHTML : Result:=CBCreateHTML.Checked; WBBoolCreateHTML : Result:=CBCreateHTML.Checked;
WBBoolMainHTML : Result:=CBMaintainPage.Checked; WBBoolMainHTML : Result:=CBMaintainPage.Checked;
WBBoolRunOnReady : Result:=CBRunOnReady.Checked; WBBoolRunOnReady : Result:=CBRunOnReady.Checked;
WBBoolShowUncaughtExceptions : Result:=cbShowUncaughtExceptions.Checked; WBBoolShowUncaughtExceptions : Result:=CBShowUncaughtExceptions.Checked;
WBBoolUseBrowserApp : Result:=CBUseBrowserApp.Checked; WBBoolUseBrowserApp : Result:=CBUseBrowserApp.Checked;
WBBoolUseWASI : Result:=cbUseWASI.Checked; WBBoolUseWASI : Result:=cbUseWASI.Checked;
WBBoolUseBrowserConsole : Result:=CBUseBrowserConsole.Checked; WBBoolUseBrowserConsole : Result:=CBUseBrowserConsole.Checked;
WBBoolUseModule : Result:=cbUseModule.Checked; WBBoolUseModule : Result:=cbUseModule.Checked;
WBBoolRunLocation : Result:=RBRunLocationOnSWS.Checked;
WBBoolRunServerAtPort : Result:=RBRunServerAt.Checked; WBBoolRunServerAtPort : Result:=RBRunServerAt.Checked;
WBBoolRunBrowserWithURL : Result:=RBRunBrowserWithURL.Checked; WBBoolRunBrowserWithURL : Result:=RBRunBrowserWithURL.Checked;
WBBoolRunDefault : Result:=RBRunDefault.Checked; WBBoolRunDefault : Result:=RBRunDefault.Checked;
@ -186,14 +205,19 @@ begin
end; end;
end; end;
function TWebBrowserProjectOptionsForm.GetLocation: string;
begin
Result:=CBRunLocationOnSWS.Text;
end;
function TWebBrowserProjectOptionsForm.GetServerPort: Word; function TWebBrowserProjectOptionsForm.GetServerPort: Word;
begin begin
Result:=SEPort.Value; Result:=SERunPort.Value;
end; end;
function TWebBrowserProjectOptionsForm.GetURL: String; function TWebBrowserProjectOptionsForm.GetURL: String;
begin begin
Result:=CBServerURL.Text; Result:=CBRunServerURL.Text;
end; end;
function TWebBrowserProjectOptionsForm.GetWasmProgramURL: String; function TWebBrowserProjectOptionsForm.GetWasmProgramURL: String;
@ -207,25 +231,31 @@ begin
WBBoolCreateHTML : begin CBCreateHTML.Checked:=AValue; UpdateHTMLControls; end; WBBoolCreateHTML : begin CBCreateHTML.Checked:=AValue; UpdateHTMLControls; end;
WBBoolMainHTML : CBMaintainPage.Checked:=AValue; WBBoolMainHTML : CBMaintainPage.Checked:=AValue;
WBBoolRunOnReady : CBRunOnReady.Checked:=AValue; WBBoolRunOnReady : CBRunOnReady.Checked:=AValue;
WBBoolShowUncaughtExceptions : cbShowUncaughtExceptions.Checked:=AValue; WBBoolShowUncaughtExceptions : CBShowUncaughtExceptions.Checked:=AValue;
WBBoolUseBrowserConsole : CBUseBrowserConsole.Checked:=AValue; WBBoolUseBrowserConsole : CBUseBrowserConsole.Checked:=AValue;
WBBoolUseBrowserApp : begin CBUseBrowserApp.Checked:=AValue; UpdateBrowserAppControls; end; WBBoolUseBrowserApp : begin CBUseBrowserApp.Checked:=AValue; UpdateBrowserAppControls; end;
WBBoolUseWASI : begin cbUseWASI.Checked:=AValue; UpdateBrowserAppControls; end; WBBoolUseWASI : begin cbUseWASI.Checked:=AValue; UpdateBrowserAppControls; end;
WBBoolUseModule : cbUseModule.Checked:=AValue; WBBoolUseModule : cbUseModule.Checked:=AValue;
WBBoolRunLocation : begin RBRunLocationOnSWS.Checked:=AValue; UpdateRunControls; end;
WBBoolRunServerAtPort : begin RBRunServerAt.Checked:=AValue; UpdateRunControls; end; WBBoolRunServerAtPort : begin RBRunServerAt.Checked:=AValue; UpdateRunControls; end;
WBBoolRunBrowserWithURL : begin RBRunBrowserWithURL.Checked:=AValue; UpdateRunControls; end; WBBoolRunBrowserWithURL : begin RBRunBrowserWithURL.Checked:=AValue; UpdateRunControls; end;
WBBoolRunDefault : begin RBRunDefault.Checked:=AValue; UpdateRunControls; end; WBBoolRunDefault : begin RBRunDefault.Checked:=AValue; UpdateRunControls; end;
end; end;
end; end;
procedure TWebBrowserProjectOptionsForm.SetLocation(const AValue: string);
begin
CBRunLocationOnSWS.Text:=AValue;
end;
procedure TWebBrowserProjectOptionsForm.SetServerPort(AValue: Word); procedure TWebBrowserProjectOptionsForm.SetServerPort(AValue: Word);
begin begin
SEPort.Value:=AValue; SERunPort.Value:=AValue;
end; end;
procedure TWebBrowserProjectOptionsForm.SetURL(AValue: String); procedure TWebBrowserProjectOptionsForm.SetURL(AValue: String);
begin begin
CBServerURL.Text:=AValue; CBRunServerURL.Text:=AValue;
end; end;
procedure TWebBrowserProjectOptionsForm.SetWasmProgramURL(AValue: String); procedure TWebBrowserProjectOptionsForm.SetWasmProgramURL(AValue: String);
@ -240,14 +270,15 @@ begin
aEnabled:=CBCreateHTML.Checked; aEnabled:=CBCreateHTML.Checked;
CBMaintainPage.Enabled:=aEnabled; CBMaintainPage.Enabled:=aEnabled;
CBRunOnReady.Enabled:=aEnabled; CBRunOnReady.Enabled:=aEnabled;
cbShowUncaughtExceptions.Enabled:=aEnabled; CBShowUncaughtExceptions.Enabled:=aEnabled;
CBUseBrowserConsole.Enabled:=aEnabled; CBUseBrowserConsole.Enabled:=aEnabled;
end; end;
procedure TWebBrowserProjectOptionsForm.UpdateRunControls; procedure TWebBrowserProjectOptionsForm.UpdateRunControls;
begin begin
SEPort.Enabled:=RBRunServerAt.Enabled and RBRunServerAt.Checked; CBRunLocationOnSWS.Enabled:=RBRunLocationOnSWS.Enabled and RBRunLocationOnSWS.Checked;
CBServerURL.Enabled:=RBRunBrowserWithURL.Enabled and RBRunBrowserWithURL.Checked; SERunPort.Enabled:=RBRunServerAt.Enabled and RBRunServerAt.Checked;
CBRunServerURL.Enabled:=RBRunBrowserWithURL.Enabled and RBRunBrowserWithURL.Checked;
end; end;
procedure TWebBrowserProjectOptionsForm.HideWASM; procedure TWebBrowserProjectOptionsForm.HideWASM;
@ -276,5 +307,12 @@ begin
RunGroupBox.Visible:=false; RunGroupBox.Visible:=false;
end; end;
procedure TWebBrowserProjectOptionsForm.HideRunLocation;
begin
RBRunServerAt.Checked:=true;
RBRunLocationOnSWS.Visible:=false;
CBRunLocationOnSWS.Visible:=false;
end;
end. end.

12
components/pas2js/languages/strpas2jsdesign.fr.po
View File

@ -86,6 +86,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions" msgid "Let RTL show uncaught exceptions"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage #: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page" msgid "Maintain HTML page"
msgstr "Gérer la page HTML" msgstr "Gérer la page HTML"
@ -266,6 +270,10 @@ msgstr ""
msgid "Start HTTP Server on port" msgid "Start HTTP Server on port"
msgstr "Démarrer le serveur HTTP sur le port" msgstr "Démarrer le serveur HTTP sur le port"
#: strpas2jsdesign.pjsdthesimplewebserverisautomaticallystartedonrunthelo
msgid "The Simple Web Server is automatically started on Run. The location is like a sub folder in the URL serving the disk folder of the html file."
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject #: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object" msgid "Use Browser Application object"
msgstr "Utiliser l'objet application du navigateur" msgstr "Utiliser l'objet application du navigateur"
@ -284,6 +292,10 @@ msgstr "Utiliser l'objet application NodeJS"
msgid "Use this URL to start application" msgid "Use this URL to start application"
msgstr "Utiliser cette URL pour démarrer l'application" msgstr "Utiliser cette URL pour démarrer l'application"
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject #: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:" msgid "Run WebAssembly program:"
msgstr "" msgstr ""

12
components/pas2js/languages/strpas2jsdesign.hu.po
View File

@ -86,6 +86,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions" msgid "Let RTL show uncaught exceptions"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage #: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page" msgid "Maintain HTML page"
msgstr "HTML lap karbantartása" msgstr "HTML lap karbantartása"
@ -268,6 +272,10 @@ msgstr ""
msgid "Start HTTP Server on port" msgid "Start HTTP Server on port"
msgstr "HTTP kiszolgáló indítása ezen a porton" msgstr "HTTP kiszolgáló indítása ezen a porton"
#: strpas2jsdesign.pjsdthesimplewebserverisautomaticallystartedonrunthelo
msgid "The Simple Web Server is automatically started on Run. The location is like a sub folder in the URL serving the disk folder of the html file."
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject #: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object" msgid "Use Browser Application object"
msgstr "Webböngésző alkalmazásobjektum használata" msgstr "Webböngésző alkalmazásobjektum használata"
@ -286,6 +294,10 @@ msgstr "NodeJS alkalmazásobjektum használata"
msgid "Use this URL to start application" msgid "Use this URL to start application"
msgstr "Az alkalmazás indításához ezt az URL-t használja" msgstr "Az alkalmazás indításához ezt az URL-t használja"
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject #: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:" msgid "Run WebAssembly program:"
msgstr "" msgstr ""

12
components/pas2js/languages/strpas2jsdesign.pot
View File

@ -76,6 +76,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions" msgid "Let RTL show uncaught exceptions"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage #: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page" msgid "Maintain HTML page"
msgstr "" msgstr ""
@ -256,6 +260,10 @@ msgstr ""
msgid "Start HTTP Server on port" msgid "Start HTTP Server on port"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdthesimplewebserverisautomaticallystartedonrunthelo
msgid "The Simple Web Server is automatically started on Run. The location is like a sub folder in the URL serving the disk folder of the html file."
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject #: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object" msgid "Use Browser Application object"
msgstr "" msgstr ""
@ -272,6 +280,10 @@ msgstr ""
msgid "Use this URL to start application" msgid "Use this URL to start application"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject #: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:" msgid "Run WebAssembly program:"
msgstr "" msgstr ""

12
components/pas2js/languages/strpas2jsdesign.pt_BR.po
View File

@ -86,6 +86,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions" msgid "Let RTL show uncaught exceptions"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage #: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page" msgid "Maintain HTML page"
msgstr "Manter página HTML" msgstr "Manter página HTML"
@ -267,6 +271,10 @@ msgstr ""
msgid "Start HTTP Server on port" msgid "Start HTTP Server on port"
msgstr "Iniciar servidor HTTP na porta" msgstr "Iniciar servidor HTTP na porta"
#: strpas2jsdesign.pjsdthesimplewebserverisautomaticallystartedonrunthelo
msgid "The Simple Web Server is automatically started on Run. The location is like a sub folder in the URL serving the disk folder of the html file."
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject #: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object" msgid "Use Browser Application object"
msgstr "Usar objeto \"Browser Application\"" msgstr "Usar objeto \"Browser Application\""
@ -285,6 +293,10 @@ msgstr "Usar objeto \"NodeJS Application\""
msgid "Use this URL to start application" msgid "Use this URL to start application"
msgstr "Usar esta URL para iniciar a aplicação" msgstr "Usar esta URL para iniciar a aplicação"
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject #: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:" msgid "Run WebAssembly program:"
msgstr "" msgstr ""

12
components/pas2js/languages/strpas2jsdesign.ru.po
View File

@ -89,6 +89,10 @@ msgstr "Не найден исходный текст HTML"
msgid "Let RTL show uncaught exceptions" msgid "Let RTL show uncaught exceptions"
msgstr "Разрешать RTL показывать необработанные исключения" msgstr "Разрешать RTL показывать необработанные исключения"
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage #: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page" msgid "Maintain HTML page"
msgstr "Поддерживать страницу HTML" msgstr "Поддерживать страницу HTML"
@ -269,6 +273,10 @@ msgstr "Программа pas2js, использующаяся в качест
msgid "Start HTTP Server on port" msgid "Start HTTP Server on port"
msgstr "Запускать сервер HTTP на порту" msgstr "Запускать сервер HTTP на порту"
#: strpas2jsdesign.pjsdthesimplewebserverisautomaticallystartedonrunthelo
msgid "The Simple Web Server is automatically started on Run. The location is like a sub folder in the URL serving the disk folder of the html file."
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject #: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object" msgid "Use Browser Application object"
msgstr "Использовать объект приложения для браузера" msgstr "Использовать объект приложения для браузера"
@ -285,6 +293,10 @@ msgstr "Использовать объект приложения для NodeJS
msgid "Use this URL to start application" msgid "Use this URL to start application"
msgstr "Использовать следующий адрес для запуска приложения" msgstr "Использовать следующий адрес для запуска приложения"
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject #: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:" msgid "Run WebAssembly program:"
msgstr "Запускать программу WebAssembly:" msgstr "Запускать программу WebAssembly:"

12
components/pas2js/languages/strpas2jsdesign.tr.po
View File

@ -86,6 +86,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions" msgid "Let RTL show uncaught exceptions"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage #: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page" msgid "Maintain HTML page"
msgstr "" msgstr ""
@ -268,6 +272,10 @@ msgstr ""
msgid "Start HTTP Server on port" msgid "Start HTTP Server on port"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdthesimplewebserverisautomaticallystartedonrunthelo
msgid "The Simple Web Server is automatically started on Run. The location is like a sub folder in the URL serving the disk folder of the html file."
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject #: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object" msgid "Use Browser Application object"
msgstr "" msgstr ""
@ -284,6 +292,10 @@ msgstr ""
msgid "Use this URL to start application" msgid "Use this URL to start application"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject #: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:" msgid "Run WebAssembly program:"
msgstr "" msgstr ""

12
components/pas2js/languages/strpas2jsdesign.uk.po
View File

@ -88,6 +88,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions" msgid "Let RTL show uncaught exceptions"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage #: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page" msgid "Maintain HTML page"
msgstr "Підтримувати HTML-сторінку" msgstr "Підтримувати HTML-сторінку"
@ -268,6 +272,10 @@ msgstr ""
msgid "Start HTTP Server on port" msgid "Start HTTP Server on port"
msgstr "Запустити HTTP-сервер на порті" msgstr "Запустити HTTP-сервер на порті"
#: strpas2jsdesign.pjsdthesimplewebserverisautomaticallystartedonrunthelo
msgid "The Simple Web Server is automatically started on Run. The location is like a sub folder in the URL serving the disk folder of the html file."
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject #: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object" msgid "Use Browser Application object"
msgstr "Використати об'єкт програми-оглядача" msgstr "Використати об'єкт програми-оглядача"
@ -286,6 +294,10 @@ msgstr "Використати об'єкт застосунку NodeJS"
msgid "Use this URL to start application" msgid "Use this URL to start application"
msgstr "Для запуску застосунку використати цей URL" msgstr "Для запуску застосунку використати цей URL"
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject #: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:" msgid "Run WebAssembly program:"
msgstr "" msgstr ""

12
components/pas2js/languages/strpas2jsdesign.zh_CN.po
View File

@ -87,6 +87,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions" msgid "Let RTL show uncaught exceptions"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage #: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page" msgid "Maintain HTML page"
msgstr "" msgstr ""
@ -269,6 +273,10 @@ msgstr ""
msgid "Start HTTP Server on port" msgid "Start HTTP Server on port"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdthesimplewebserverisautomaticallystartedonrunthelo
msgid "The Simple Web Server is automatically started on Run. The location is like a sub folder in the URL serving the disk folder of the html file."
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject #: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object" msgid "Use Browser Application object"
msgstr "" msgstr ""
@ -285,6 +293,10 @@ msgstr ""
msgid "Use this URL to start application" msgid "Use this URL to start application"
msgstr "" msgstr ""
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject #: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:" msgid "Run WebAssembly program:"
msgstr "" msgstr ""

1
components/pas2js/pjscontroller.pp
View File

@ -66,6 +66,7 @@ Const
PJSProjectMaintainHTML = 'MaintainHTML'; PJSProjectMaintainHTML = 'MaintainHTML';
PJSProjectUseBrowserConsole = 'BrowserConsole'; PJSProjectUseBrowserConsole = 'BrowserConsole';
PJSProjectRunAtReady = 'RunAtReady'; PJSProjectRunAtReady = 'RunAtReady';
PJSProjectLocation = 'PasJSLocation';
PJSProjectPort = 'PasJSPort'; PJSProjectPort = 'PasJSPort';
PJSProjectURL = 'PasJSURL'; PJSProjectURL = 'PasJSURL';
PJSProjectHTMLBaseDir = 'HTMLDir'; PJSProjectHTMLBaseDir = 'HTMLDir';

999
components/pas2js/pjsdsgnregister.pas
View File

File diff suppressed because it is too large Load Diff

77
components/pas2js/pjsprojectoptions.lfm
View File

@ -6,8 +6,8 @@ object Pas2JSProjectOptionsFrame: TPas2JSProjectOptionsFrame
ClientHeight = 423 ClientHeight = 423
ClientWidth = 750 ClientWidth = 750
TabOrder = 0 TabOrder = 0
DesignLeft = 1404 DesignLeft = 261
DesignTop = 244 DesignTop = 222
object CBWebProject: TCheckBox object CBWebProject: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
@ -144,25 +144,25 @@ object Pas2JSProjectOptionsFrame: TPas2JSProjectOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 161 Height = 155
Top = 175 Top = 175
Width = 738 Width = 738
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Run' Caption = 'Run'
ClientHeight = 145 ClientHeight = 139
ClientWidth = 736 ClientWidth = 736
TabOrder = 8 TabOrder = 8
object RBStartServerAt: TRadioButton object RBStartServerAt: TRadioButton
AnchorSideLeft.Control = RunGroupBox AnchorSideLeft.Control = RunGroupBox
AnchorSideTop.Control = RunGroupBox AnchorSideTop.Control = SEPort
AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 23 Height = 23
Top = 2 Top = 42
Width = 168 Width = 168
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 2
Caption = 'Start HTTP Server on port' Caption = 'Start HTTP Server on port'
Checked = True Checked = True
OnChange = RBStartServerAtChange OnChange = RBStartServerAtChange
@ -171,14 +171,15 @@ object Pas2JSProjectOptionsFrame: TPas2JSProjectOptionsFrame
end end
object SEPort: TSpinEdit object SEPort: TSpinEdit
AnchorSideLeft.Control = RBStartServerAt AnchorSideLeft.Control = RBStartServerAt
AnchorSideTop.Control = RBStartServerAt AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CBLocation
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 38 Left = 180
Height = 30 Height = 30
Top = 27 Top = 38
Width = 82 Width = 82
BorderSpacing.Left = 32 BorderSpacing.Left = 6
BorderSpacing.Top = 2 BorderSpacing.Top = 6
MaxValue = 65354 MaxValue = 65354
MinValue = 1024 MinValue = 1024
TabOrder = 1 TabOrder = 1
@ -186,29 +187,28 @@ object Pas2JSProjectOptionsFrame: TPas2JSProjectOptionsFrame
end end
object RBUseURL: TRadioButton object RBUseURL: TRadioButton
AnchorSideLeft.Control = RBStartServerAt AnchorSideLeft.Control = RBStartServerAt
AnchorSideTop.Control = SEPort AnchorSideTop.Control = CBServerURL
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 23 Height = 23
Top = 59 Top = 78
Width = 161 Width = 161
BorderSpacing.Top = 2
Caption = 'Use this URL to start app' Caption = 'Use this URL to start app'
OnChange = RBUseURLChange OnChange = RBUseURLChange
TabOrder = 2 TabOrder = 2
end end
object CBServerURL: TComboBox object CBServerURL: TComboBox
AnchorSideLeft.Control = SEPort AnchorSideLeft.Control = SEPort
AnchorSideTop.Control = RBUseURL AnchorSideTop.Control = SEPort
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RunGroupBox AnchorSideRight.Control = RunGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 38 Left = 180
Height = 30 Height = 30
Top = 84 Top = 74
Width = 692 Width = 550
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2 BorderSpacing.Top = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 0 ItemHeight = 0
TabOrder = 3 TabOrder = 3
@ -218,14 +218,45 @@ object Pas2JSProjectOptionsFrame: TPas2JSProjectOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 23
Top = 116 Top = 110
Width = 162 Width = 162
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 2 BorderSpacing.Top = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'Execute Run Parameters' Caption = 'Execute Run Parameters'
OnChange = RBStartServerAtChange OnChange = RBStartServerAtChange
TabOrder = 4 TabOrder = 4
end end
object CBLocation: TComboBox
AnchorSideLeft.Control = RBLocation
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RunGroupBox
AnchorSideRight.Control = RunGroupBox
AnchorSideRight.Side = asrBottom
Left = 208
Height = 30
Top = 2
Width = 522
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Right = 6
ItemHeight = 0
TabOrder = 5
end
object RBLocation: TRadioButton
AnchorSideLeft.Control = RunGroupBox
AnchorSideTop.Control = CBLocation
AnchorSideTop.Side = asrCenter
Left = 6
Height = 23
Top = 6
Width = 196
BorderSpacing.Left = 6
BorderSpacing.Top = 2
Caption = 'Location on Simple Web Server'
OnChange = RBLocationChange
TabOrder = 6
end
end end
end end

26
components/pas2js/pjsprojectoptions.pp
View File

@ -23,13 +23,16 @@ type
BMakePas2jsPoject: TButton; BMakePas2jsPoject: TButton;
BResetRunCommand: TButton; BResetRunCommand: TButton;
BResetCompileCommand: TButton; BResetCompileCommand: TButton;
CBLocation: TComboBox;
CBRunOnReady: TCheckBox; CBRunOnReady: TCheckBox;
CBServerURL: TComboBox; CBServerURL: TComboBox;
CBUseBrowserConsole: TCheckBox; CBUseBrowserConsole: TCheckBox;
CBWebProject: TCheckBox; CBWebProject: TCheckBox;
CBHTMLFile: TComboBox; CBHTMLFile: TComboBox;
CBMaintainHTMLFile: TCheckBox; CBMaintainHTMLFile: TCheckBox;
ComboBoxRunLocation: TComboBox;
LCBProjectHTMLFile: TLabel; LCBProjectHTMLFile: TLabel;
RBLocation: TRadioButton;
RBRunDefault: TRadioButton; RBRunDefault: TRadioButton;
RBStartServerAt: TRadioButton; RBStartServerAt: TRadioButton;
RBUseURL: TRadioButton; RBUseURL: TRadioButton;
@ -40,6 +43,7 @@ type
procedure BResetRunCommandClick(Sender: TObject); procedure BResetRunCommandClick(Sender: TObject);
procedure CBMaintainHTMLFileChange(Sender: TObject); procedure CBMaintainHTMLFileChange(Sender: TObject);
procedure CBWebProjectChange(Sender: TObject); procedure CBWebProjectChange(Sender: TObject);
procedure RBLocationChange(Sender: TObject);
procedure RBStartServerAtChange(Sender: TObject); procedure RBStartServerAtChange(Sender: TObject);
procedure RBUseURLChange(Sender: TObject); procedure RBUseURLChange(Sender: TObject);
private private
@ -172,8 +176,11 @@ begin
CBRunOnReady.Caption:=pjsdRunRTLWhenAllPageResourcesAreFullyLoaded; CBRunOnReady.Caption:=pjsdRunRTLWhenAllPageResourcesAreFullyLoaded;
RunGroupBox.Caption:=pjsdRun; RunGroupBox.Caption:=pjsdRun;
RBLocation.Caption:=pjsdLocationOnSimpleWebServer;
RBLocation.Hint:=pjsdTheSimpleWebServerIsAutomaticallyStartedOnRunTheLo;
RBStartServerAt.Caption:=pjsdStartHTTPServerOnPort; RBStartServerAt.Caption:=pjsdStartHTTPServerOnPort;
RBUseURL.Caption:=pjsdUseThisURLToStartApplication; RBUseURL.Caption:=pjsdUseThisURLToStartApplication;
RBUseURL.Hint:=pjsdUseThisWhenYouStartYourOwnHttpServer;
RBRunDefault.Caption:=pjsExecuteRunParameters; RBRunDefault.Caption:=pjsExecuteRunParameters;
BResetRunCommand.Caption:=pjsdResetRunCommand; BResetRunCommand.Caption:=pjsdResetRunCommand;
@ -186,6 +193,11 @@ begin
CheckAllControls(CBWebProject.Checked); CheckAllControls(CBWebProject.Checked);
end; end;
procedure TPas2JSProjectOptionsFrame.RBLocationChange(Sender: TObject);
begin
UpdateRunControls;
end;
procedure TPas2JSProjectOptionsFrame.RBStartServerAtChange(Sender: TObject); procedure TPas2JSProjectOptionsFrame.RBStartServerAtChange(Sender: TObject);
begin begin
UpdateRunControls; UpdateRunControls;
@ -291,6 +303,7 @@ end;
procedure TPas2JSProjectOptionsFrame.UpdateRunControls; procedure TPas2JSProjectOptionsFrame.UpdateRunControls;
begin begin
CBLocation.Enabled:=CBWebProject.Enabled and RBLocation.Enabled and RBLocation.Checked;
SEPort.Enabled:=CBWebProject.Enabled and RBStartServerAt.Enabled and RBStartServerAt.Checked; SEPort.Enabled:=CBWebProject.Enabled and RBStartServerAt.Enabled and RBStartServerAt.Checked;
CBServerURL.Enabled:=CBWebProject.Enabled and RBUseURL.Enabled and RBUseURL.Checked; CBServerURL.Enabled:=CBWebProject.Enabled and RBUseURL.Enabled and RBUseURL.Checked;
end; end;
@ -302,7 +315,7 @@ Var
HFN : String; HFN : String;
HTMLIdx : Integer; HTMLIdx : Integer;
Port : Word; Port : Word;
URL : String; URL , Location: String;
begin begin
if AOptions=nil then ; if AOptions=nil then ;
@ -320,11 +333,15 @@ begin
CBUseBrowserConsole.Checked:=Prj.CustomData[PJSProjectUseBrowserConsole]='1'; CBUseBrowserConsole.Checked:=Prj.CustomData[PJSProjectUseBrowserConsole]='1';
CBRunOnReady.Checked:=Prj.CustomData[PJSProjectRunAtReady]='1'; CBRunOnReady.Checked:=Prj.CustomData[PJSProjectRunAtReady]='1';
Location:=Prj.CustomData[PJSProjectLocation];
Port:=StrToIntDef(Prj.CustomData[PJSProjectPort],0); Port:=StrToIntDef(Prj.CustomData[PJSProjectPort],0);
URL:=Prj.CustomData[PJSProjectURL]; URL:=Prj.CustomData[PJSProjectURL];
CBLocation.AddHistoryItem(Location,10,True,False);
SEPort.Value:=Min(Max(0,Port),65535); SEPort.Value:=Min(Max(0,Port),65535);
CBServerURL.AddHistoryItem(URL,10,True,False); CBServerURL.AddHistoryItem(URL,10,True,False);
if Prj.CustomData.Contains(PJSProjectPort) then if Prj.CustomData.Contains(PJSProjectLocation) then
RBLocation.Checked:=true
else if Prj.CustomData.Contains(PJSProjectPort) then
RBStartServerAt.Checked:=true RBStartServerAt.Checked:=true
else if Prj.CustomData.Contains(PJSProjectURL) then else if Prj.CustomData.Contains(PJSProjectURL) then
RBUseURL.Checked:=true RBUseURL.Checked:=true
@ -356,6 +373,7 @@ begin
Remove(PJSProjectMaintainHTML); Remove(PJSProjectMaintainHTML);
Remove(PJSProjectUseBrowserConsole); Remove(PJSProjectUseBrowserConsole);
Remove(PJSProjectRunAtReady); Remove(PJSProjectRunAtReady);
Remove(PJSProjectLocation);
Remove(PJSProjectPort); Remove(PJSProjectPort);
Remove(PJSProjectURL); Remove(PJSProjectURL);
end; end;
@ -373,7 +391,9 @@ begin
DoBool(PJSProjectUseBrowserConsole,CBUseBrowserConsole.Checked); DoBool(PJSProjectUseBrowserConsole,CBUseBrowserConsole.Checked);
DoBool(PJSProjectRunAtReady,CBRunOnReady.Checked); DoBool(PJSProjectRunAtReady,CBRunOnReady.Checked);
if RBStartServerAt.Checked and (SEPort.Value>=0) then if RBLocation.Checked and (CBLocation.Text<>'') then
Prj.CustomData[PJSProjectLocation]:=CBLocation.Text
else if RBStartServerAt.Checked and (SEPort.Value>=0) then
Prj.CustomData[PJSProjectPort]:=IntToStr(SEPort.Value) Prj.CustomData[PJSProjectPort]:=IntToStr(SEPort.Value)
else if RBUseURL.Checked and (CBServerURL.Text<>'') then else if RBUseURL.Checked and (CBServerURL.Text<>'') then
Prj.CustomData[PJSProjectURL]:=CBServerURL.Text; Prj.CustomData[PJSProjectURL]:=CBServerURL.Text;

6
components/pas2js/strpas2jsdesign.pp
View File

@ -68,10 +68,16 @@ Resourcestring
+'resources are fully loaded'; +'resources are fully loaded';
pjsdRun = 'Run'; pjsdRun = 'Run';
pjsdStartHTTPServerOnPort = 'Start HTTP Server on port'; pjsdStartHTTPServerOnPort = 'Start HTTP Server on port';
pjsdTheSimpleWebServerIsAutomaticallyStartedOnRunTheLo = 'The Simple Web '
+'Server is automatically started on Run. The location is like a sub '
+'folder in the URL serving the disk folder of the html file.';
pjsdLocationOnSimpleWebServer = 'Location on Simple Web Server';
pjsCreateAJavascriptModuleInsteadOfAScript = 'Create a javascript module ' pjsCreateAJavascriptModuleInsteadOfAScript = 'Create a javascript module '
+'instead of a script'; +'instead of a script';
pjsdUseThisURLToStartApplication = 'Use this URL to start application'; pjsdUseThisURLToStartApplication = 'Use this URL to start application';
pjsExecuteRunParameters = 'Execute Run Parameters'; pjsExecuteRunParameters = 'Execute Run Parameters';
pjsdUseThisWhenYouStartYourOwnHttpServer = 'Use this when you start your own'
+' http server';
pjsdResetRunCommand = 'Reset Run command'; pjsdResetRunCommand = 'Reset Run command';
pjsdResetCompileCommand = 'Reset Compile command'; pjsdResetCompileCommand = 'Reset Compile command';
pjsMakePas2jsProject = 'Make pas2js project'; pjsMakePas2jsProject = 'Make pas2js project';