paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:38:25 +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
Left = 1434
Left = 381
Height = 490
Top = 765
Top = 232
Width = 632
Caption = 'Pas2JS Browser project options'
ClientHeight = 490
@ -39,7 +39,7 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
end
object CBUseBrowserConsole: TCheckBox
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = cbShowUncaughtExceptions
AnchorSideTop.Control = CBShowUncaughtExceptions
AnchorSideTop.Side = asrBottom
Left = 38
Height = 23
@ -92,7 +92,7 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
Caption = 'Run rtl when all page resources are fully loaded'
TabOrder = 5
end
object cbShowUncaughtExceptions: TCheckBox
object CBShowUncaughtExceptions: TCheckBox
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBRunOnReady
AnchorSideTop.Side = asrBottom
@ -157,38 +157,38 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 123
Height = 159
Top = 274
Width = 620
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Run'
ClientHeight = 107
ClientHeight = 143
ClientWidth = 618
TabOrder = 10
object RBRunServerAt: TRadioButton
AnchorSideLeft.Control = RunGroupBox
AnchorSideTop.Control = SEPort
AnchorSideTop.Control = SERunPort
AnchorSideTop.Side = asrCenter
Left = 6
Height = 23
Top = 10
Top = 46
Width = 168
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Start HTTP Server on port'
Checked = True
OnChange = RBRunServerAtChange
TabOrder = 4
TabStop = True
end
object SEPort: TSpinEdit
object SERunPort: TSpinEdit
AnchorSideLeft.Control = RBRunServerAt
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RunGroupBox
AnchorSideTop.Control = CBRunLocationOnSWS
AnchorSideTop.Side = asrBottom
Left = 180
Height = 30
Top = 6
Top = 42
Width = 76
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -199,26 +199,26 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
end
object RBRunBrowserWithURL: TRadioButton
AnchorSideLeft.Control = RBRunServerAt
AnchorSideTop.Control = CBServerURL
AnchorSideTop.Control = CBRunServerURL
AnchorSideTop.Side = asrCenter
Left = 6
Height = 23
Top = 46
Top = 82
Width = 138
Caption = 'Use URL to start app'
OnChange = RBRunBrowserWithURLChange
TabOrder = 1
end
object CBServerURL: TComboBox
object CBRunServerURL: TComboBox
AnchorSideLeft.Control = RBRunBrowserWithURL
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SEPort
AnchorSideTop.Control = SERunPort
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RunGroupBox
AnchorSideRight.Side = asrBottom
Left = 150
Height = 30
Top = 42
Top = 78
Width = 462
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
@ -229,11 +229,11 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
TabOrder = 2
end
object RBRunDefault: TRadioButton
AnchorSideTop.Control = CBServerURL
AnchorSideTop.Control = CBRunServerURL
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 78
Top = 114
Width = 162
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -242,5 +242,42 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
OnChange = RBRunDefaultChange
TabOrder = 3
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

78
components/pas2js/frmpas2jsbrowserprojectoptions.pp
View File

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

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

@ -86,6 +86,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions"
msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr "Gérer la page HTML"
@ -266,6 +270,10 @@ msgstr ""
msgid "Start HTTP Server on 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
msgid "Use Browser Application object"
msgstr "Utiliser l'objet application du navigateur"
@ -284,6 +292,10 @@ msgstr "Utiliser l'objet application NodeJS"
msgid "Use this URL to start 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
msgid "Run WebAssembly program:"
msgstr ""

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

@ -86,6 +86,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions"
msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr "HTML lap karbantartása"
@ -268,6 +272,10 @@ msgstr ""
msgid "Start HTTP Server on port"
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
msgid "Use Browser Application object"
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"
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
msgid "Run WebAssembly program:"
msgstr ""

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

@ -76,6 +76,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions"
msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr ""
@ -256,6 +260,10 @@ msgstr ""
msgid "Start HTTP Server on port"
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
msgid "Use Browser Application object"
msgstr ""
@ -272,6 +280,10 @@ msgstr ""
msgid "Use this URL to start application"
msgstr ""
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:"
msgstr ""

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

@ -86,6 +86,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions"
msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr "Manter página HTML"
@ -267,6 +271,10 @@ msgstr ""
msgid "Start HTTP Server on port"
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
msgid "Use Browser Application object"
msgstr "Usar objeto \"Browser Application\""
@ -285,6 +293,10 @@ msgstr "Usar objeto \"NodeJS Application\""
msgid "Use this URL to start application"
msgstr "Usar esta URL para iniciar a aplicação"
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:"
msgstr ""

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

@ -89,6 +89,10 @@ msgstr "Не найден исходный текст HTML"
msgid "Let RTL show uncaught exceptions"
msgstr "Разрешать RTL показывать необработанные исключения"
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr "Поддерживать страницу HTML"
@ -269,6 +273,10 @@ msgstr "Программа pas2js, использующаяся в качест
msgid "Start HTTP Server on port"
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
msgid "Use Browser Application object"
msgstr "Использовать объект приложения для браузера"
@ -285,6 +293,10 @@ msgstr "Использовать объект приложения для NodeJS
msgid "Use this URL to start application"
msgstr "Использовать следующий адрес для запуска приложения"
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:"
msgstr "Запускать программу WebAssembly:"

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

@ -86,6 +86,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions"
msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr ""
@ -268,6 +272,10 @@ msgstr ""
msgid "Start HTTP Server on port"
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
msgid "Use Browser Application object"
msgstr ""
@ -284,6 +292,10 @@ msgstr ""
msgid "Use this URL to start application"
msgstr ""
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:"
msgstr ""

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

@ -88,6 +88,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions"
msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr "Підтримувати HTML-сторінку"
@ -268,6 +272,10 @@ msgstr ""
msgid "Start HTTP Server on port"
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
msgid "Use Browser Application object"
msgstr "Використати об'єкт програми-оглядача"
@ -286,6 +294,10 @@ msgstr "Використати об'єкт застосунку NodeJS"
msgid "Use this URL to start application"
msgstr "Для запуску застосунку використати цей URL"
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:"
msgstr ""

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

@ -87,6 +87,10 @@ msgstr ""
msgid "Let RTL show uncaught exceptions"
msgstr ""
#: strpas2jsdesign.pjsdlocationonsimplewebserver
msgid "Location on Simple Web Server"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr ""
@ -269,6 +273,10 @@ msgstr ""
msgid "Start HTTP Server on port"
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
msgid "Use Browser Application object"
msgstr ""
@ -285,6 +293,10 @@ msgstr ""
msgid "Use this URL to start application"
msgstr ""
#: strpas2jsdesign.pjsdusethiswhenyoustartyourownhttpserver
msgid "Use this when you start your own http server"
msgstr ""
#: strpas2jsdesign.pjsdusewasiapplicationobject
msgid "Run WebAssembly program:"
msgstr ""

1
components/pas2js/pjscontroller.pp
View File

@ -66,6 +66,7 @@ Const
PJSProjectMaintainHTML = 'MaintainHTML';
PJSProjectUseBrowserConsole = 'BrowserConsole';
PJSProjectRunAtReady = 'RunAtReady';
PJSProjectLocation = 'PasJSLocation';
PJSProjectPort = 'PasJSPort';
PJSProjectURL = 'PasJSURL';
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
ClientWidth = 750
TabOrder = 0
DesignLeft = 1404
DesignTop = 244
DesignLeft = 261
DesignTop = 222
object CBWebProject: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -144,25 +144,25 @@ object Pas2JSProjectOptionsFrame: TPas2JSProjectOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 161
Height = 155
Top = 175
Width = 738
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Run'
ClientHeight = 145
ClientHeight = 139
ClientWidth = 736
TabOrder = 8
object RBStartServerAt: TRadioButton
AnchorSideLeft.Control = RunGroupBox
AnchorSideTop.Control = RunGroupBox
AnchorSideTop.Control = SEPort
AnchorSideTop.Side = asrCenter
Left = 6
Height = 23
Top = 2
Top = 42
Width = 168
BorderSpacing.Left = 6
BorderSpacing.Top = 2
Caption = 'Start HTTP Server on port'
Checked = True
OnChange = RBStartServerAtChange
@ -171,14 +171,15 @@ object Pas2JSProjectOptionsFrame: TPas2JSProjectOptionsFrame
end
object SEPort: TSpinEdit
AnchorSideLeft.Control = RBStartServerAt
AnchorSideTop.Control = RBStartServerAt
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CBLocation
AnchorSideTop.Side = asrBottom
Left = 38
Left = 180
Height = 30
Top = 27
Top = 38
Width = 82
BorderSpacing.Left = 32
BorderSpacing.Top = 2
BorderSpacing.Left = 6
BorderSpacing.Top = 6
MaxValue = 65354
MinValue = 1024
TabOrder = 1
@ -186,29 +187,28 @@ object Pas2JSProjectOptionsFrame: TPas2JSProjectOptionsFrame
end
object RBUseURL: TRadioButton
AnchorSideLeft.Control = RBStartServerAt
AnchorSideTop.Control = SEPort
AnchorSideTop.Side = asrBottom
AnchorSideTop.Control = CBServerURL
AnchorSideTop.Side = asrCenter
Left = 6
Height = 23
Top = 59
Top = 78
Width = 161
BorderSpacing.Top = 2
Caption = 'Use this URL to start app'
OnChange = RBUseURLChange
TabOrder = 2
end
object CBServerURL: TComboBox
AnchorSideLeft.Control = SEPort
AnchorSideTop.Control = RBUseURL
AnchorSideTop.Control = SEPort
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RunGroupBox
AnchorSideRight.Side = asrBottom
Left = 38
Left = 180
Height = 30
Top = 84
Width = 692
Top = 74
Width = 550
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Top = 6
BorderSpacing.Right = 6
ItemHeight = 0
TabOrder = 3
@ -218,14 +218,45 @@ object Pas2JSProjectOptionsFrame: TPas2JSProjectOptionsFrame
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 116
Top = 110
Width = 162
BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
Caption = 'Execute Run Parameters'
OnChange = RBStartServerAtChange
TabOrder = 4
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

26
components/pas2js/pjsprojectoptions.pp
View File

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

6
components/pas2js/strpas2jsdesign.pp
View File

@ -68,10 +68,16 @@ Resourcestring
+'resources are fully loaded';
pjsdRun = 'Run';
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 '
+'instead of a script';
pjsdUseThisURLToStartApplication = 'Use this URL to start application';
pjsExecuteRunParameters = 'Execute Run Parameters';
pjsdUseThisWhenYouStartYourOwnHttpServer = 'Use this when you start your own'
+' http server';
pjsdResetRunCommand = 'Reset Run command';
pjsdResetCompileCommand = 'Reset Compile command';
pjsMakePas2jsProject = 'Make pas2js project';