Pas2JS: improved layout of 'new browser application' form and i18n-ed it; regenerated translations and updated Russian translation.

git-svn-id: trunk@61727 -
This commit is contained in:
maxim 2019-08-19 22:47:32 +00:00
parent 71da6305cc
commit 9b72361186
11 changed files with 195 additions and 48 deletions

View File

@ -9,12 +9,16 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.9.0.0'
LCLVersion = '2.1.0.0'
object CBCreateHTML: TCheckBox
Left = 16
Height = 24
Top = 8
Width = 160
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 19
Top = 6
Width = 151
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Create initial HTML page'
Checked = True
OnChange = CBCreateHTMLChange
@ -25,11 +29,11 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBRunOnReady
AnchorSideTop.Side = asrBottom
Left = 16
Height = 24
Top = 84
Width = 198
BorderSpacing.Top = 2
Left = 6
Height = 19
Top = 81
Width = 184
BorderSpacing.Top = 6
Caption = 'Use Browser Application object'
TabOrder = 1
end
@ -37,18 +41,18 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBUseBrowserApp
AnchorSideTop.Side = asrBottom
Left = 16
Height = 24
Top = 110
Width = 313
BorderSpacing.Top = 2
Left = 6
Height = 19
Top = 106
Width = 294
BorderSpacing.Top = 6
Caption = 'Use Browser Console unit to display writeln() output'
TabOrder = 2
end
object BPHelpOptions: TButtonPanel
Left = 6
Height = 36
Top = 302
Height = 34
Top = 304
Width = 414
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
@ -65,9 +69,9 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
AnchorSideLeft.Control = RBStartServerAt
AnchorSideTop.Control = RBStartServerAt
AnchorSideTop.Side = asrBottom
Left = 80
Left = 70
Height = 23
Top = 188
Top = 177
Width = 75
BorderSpacing.Left = 32
BorderSpacing.Top = 2
@ -80,11 +84,11 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBUseBrowserConsole
AnchorSideTop.Side = asrBottom
Left = 16
Height = 24
Top = 136
Width = 182
BorderSpacing.Top = 2
Left = 6
Height = 19
Top = 131
Width = 168
BorderSpacing.Top = 6
Caption = 'Project needs a HTTP Server'
OnChange = CBUseHTTPServerChange
TabOrder = 5
@ -93,12 +97,12 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBUseHTTPServer
AnchorSideTop.Side = asrBottom
Left = 48
Height = 24
Top = 162
Width = 168
Left = 38
Height = 19
Top = 156
Width = 154
BorderSpacing.Left = 32
BorderSpacing.Top = 2
BorderSpacing.Top = 6
Caption = 'Start HTTP Server on port'
Checked = True
TabOrder = 6
@ -108,10 +112,10 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
AnchorSideLeft.Control = RBStartServerAt
AnchorSideTop.Control = SEPort
AnchorSideTop.Side = asrBottom
Left = 48
Height = 24
Top = 213
Width = 161
Left = 38
Height = 19
Top = 202
Width = 148
BorderSpacing.Top = 2
Caption = 'Use this URL to start app'
TabOrder = 7
@ -122,25 +126,25 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 80
Height = 27
Top = 239
Width = 334
Left = 70
Height = 23
Top = 223
Width = 344
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Right = 12
ItemHeight = 0
ItemHeight = 15
TabOrder = 8
end
object CBMaintainPage: TCheckBox
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBCreateHTML
AnchorSideTop.Side = asrBottom
Left = 16
Height = 24
Top = 34
Width = 137
BorderSpacing.Top = 2
Left = 6
Height = 19
Top = 31
Width = 132
BorderSpacing.Top = 6
Caption = 'Maintain HTML Page'
TabOrder = 9
end
@ -148,10 +152,11 @@ object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBMaintainPage
AnchorSideTop.Side = asrBottom
Left = 16
Height = 24
Top = 58
Width = 287
Left = 6
Height = 19
Top = 56
Width = 268
BorderSpacing.Top = 6
Caption = 'Run rtl when all page resources are fully loaded'
TabOrder = 10
end

View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ButtonPanel,
Spin;
Spin, strpas2jsdesign;
type
@ -91,6 +91,15 @@ end;
procedure TWebBrowserProjectOptionsForm.FormCreate(Sender: TObject);
begin
Caption:=pjsdPas2JSBrowserProjectOptions;
CBCreateHTML.Caption:=pjsdCreateInitialHTMLPage;
CBMaintainPage.Caption:=pjsdMaintainHTMLPage;
CBRunOnReady.Caption:=pjsdRunRTLWhenAllPageResourcesAreFullyLoaded;
CBUseBrowserApp.Caption:=pjsdUseBrowserApplicationObject;
CBUseBrowserConsole.Caption:=pjsdUseBrowserConsoleUnitToDisplayWritelnOutput;
CBUseHTTPServer.Caption:=pjsdProjectNeedsAHTTPServer;
RBStartServerAt.Caption:=pjsdStartHTTPServerOnPort;
RBUseURL.Caption:=pjsdUseThisURLToStartApplication;
CBCreateHTMLChange(self);
CBUseHTTPServerChange(Self);
end;

View File

@ -19,10 +19,18 @@ msgstr ""
msgid "Browser to use when opening HTML page"
msgstr ""
#: strpas2jsdesign.pjsdcreateinitialhtmlpage
msgid "Create initial HTML page"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlfile
msgid "Maintain HTML file"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr ""
#: strpas2jsdesign.pjsdnodejsappdescription
msgid "A pas2js program running in node.js"
msgstr "Un programme pas2js en cours d'exécution dans node.js"
@ -31,6 +39,10 @@ msgstr "Un programme pas2js en cours d'exécution dans node.js"
msgid "Node.js Application"
msgstr "Application Node.js"
#: strpas2jsdesign.pjsdpas2jsbrowserprojectoptions
msgid "Pas2JS Browser project options"
msgstr ""
#: strpas2jsdesign.pjsdpathof
#, object-pascal-format
msgid "Path of %s"
@ -93,6 +105,10 @@ msgstr ""
msgid "Start HTTP Server on port"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserconsoleunittodisplaywritelnoutput
msgid "Use Browser Console unit to display writeln() output"
msgstr ""

View File

@ -19,10 +19,18 @@ msgstr ""
msgid "Browser to use when opening HTML page"
msgstr ""
#: strpas2jsdesign.pjsdcreateinitialhtmlpage
msgid "Create initial HTML page"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlfile
msgid "Maintain HTML file"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr ""
#: strpas2jsdesign.pjsdnodejsappdescription
msgid "A pas2js program running in node.js"
msgstr "Fut egy pas2js program node.js-ben"
@ -31,6 +39,10 @@ msgstr "Fut egy pas2js program node.js-ben"
msgid "Node.js Application"
msgstr "Node.js alkalmazás"
#: strpas2jsdesign.pjsdpas2jsbrowserprojectoptions
msgid "Pas2JS Browser project options"
msgstr ""
#: strpas2jsdesign.pjsdpathof
#, object-pascal-format
msgid "Path of %s"
@ -93,6 +105,10 @@ msgstr ""
msgid "Start HTTP Server on port"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserconsoleunittodisplaywritelnoutput
msgid "Use Browser Console unit to display writeln() output"
msgstr ""

View File

@ -9,10 +9,18 @@ msgstr ""
msgid "Browser to use when opening HTML page"
msgstr ""
#: strpas2jsdesign.pjsdcreateinitialhtmlpage
msgid "Create initial HTML page"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlfile
msgid "Maintain HTML file"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr ""
#: strpas2jsdesign.pjsdnodejsappdescription
msgid "A pas2js program running in node.js"
msgstr ""
@ -21,6 +29,10 @@ msgstr ""
msgid "Node.js Application"
msgstr ""
#: strpas2jsdesign.pjsdpas2jsbrowserprojectoptions
msgid "Pas2JS Browser project options"
msgstr ""
#: strpas2jsdesign.pjsdpathof
#, object-pascal-format
msgid "Path of %s"
@ -83,6 +95,10 @@ msgstr ""
msgid "Start HTTP Server on port"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserconsoleunittodisplaywritelnoutput
msgid "Use Browser Console unit to display writeln() output"
msgstr ""

View File

@ -19,10 +19,18 @@ msgstr ""
msgid "Browser to use when opening HTML page"
msgstr ""
#: strpas2jsdesign.pjsdcreateinitialhtmlpage
msgid "Create initial HTML page"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlfile
msgid "Maintain HTML file"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr ""
#: strpas2jsdesign.pjsdnodejsappdescription
msgctxt "strpas2jsdesign.pjsdnodejsappdescription"
msgid "A pas2js program running in node.js"
@ -33,6 +41,10 @@ msgctxt "strpas2jsdesign.pjsdnodejsapplication"
msgid "Node.js Application"
msgstr "Aplicação Node.js"
#: strpas2jsdesign.pjsdpas2jsbrowserprojectoptions
msgid "Pas2JS Browser project options"
msgstr ""
#: strpas2jsdesign.pjsdpathof
#, object-pascal-format
msgid "Path of %s"
@ -95,6 +107,10 @@ msgstr ""
msgid "Start HTTP Server on port"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserconsoleunittodisplaywritelnoutput
msgid "Use Browser Console unit to display writeln() output"
msgstr ""

View File

@ -19,10 +19,18 @@ msgstr "Обзор"
msgid "Browser to use when opening HTML page"
msgstr "Браузер для открытия страницы HTML"
#: strpas2jsdesign.pjsdcreateinitialhtmlpage
msgid "Create initial HTML page"
msgstr "Создать первоначальную страницу HTML"
#: strpas2jsdesign.pjsdmaintainhtmlfile
msgid "Maintain HTML file"
msgstr "Поддерживать файл HTML"
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr "Поддерживать страницу HTML"
#: strpas2jsdesign.pjsdnodejsappdescription
msgid "A pas2js program running in node.js"
msgstr "Программа pas2js, запускаемая в node.js"
@ -31,6 +39,10 @@ msgstr "Программа pas2js, запускаемая в node.js"
msgid "Node.js Application"
msgstr "Приложение Node.js"
#: strpas2jsdesign.pjsdpas2jsbrowserprojectoptions
msgid "Pas2JS Browser project options"
msgstr "Параметры проекта Pas2JS для браузера"
#: strpas2jsdesign.pjsdpathof
#, object-pascal-format
msgid "Path of %s"
@ -93,6 +105,10 @@ msgstr "Экземпляры серверов будут запускаться
msgid "Start HTTP Server on port"
msgstr "Запускать сервер HTTP на порту"
#: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object"
msgstr "Использовать объект приложения для браузера"
#: strpas2jsdesign.pjsdusebrowserconsoleunittodisplaywritelnoutput
msgid "Use Browser Console unit to display writeln() output"
msgstr "Отображать вывод writeln() посредством модуля консоли браузера"

View File

@ -19,10 +19,18 @@ msgstr ""
msgid "Browser to use when opening HTML page"
msgstr ""
#: strpas2jsdesign.pjsdcreateinitialhtmlpage
msgid "Create initial HTML page"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlfile
msgid "Maintain HTML file"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr ""
#: strpas2jsdesign.pjsdnodejsappdescription
msgid "A pas2js program running in node.js"
msgstr "Node.js içinde çalışan bir pas2js programı"
@ -31,6 +39,10 @@ msgstr "Node.js içinde çalışan bir pas2js programı"
msgid "Node.js Application"
msgstr "Node.js uygulaması"
#: strpas2jsdesign.pjsdpas2jsbrowserprojectoptions
msgid "Pas2JS Browser project options"
msgstr ""
#: strpas2jsdesign.pjsdpathof
#, object-pascal-format
msgid "Path of %s"
@ -93,6 +105,10 @@ msgstr ""
msgid "Start HTTP Server on port"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserconsoleunittodisplaywritelnoutput
msgid "Use Browser Console unit to display writeln() output"
msgstr ""

View File

@ -21,10 +21,18 @@ msgstr ""
msgid "Browser to use when opening HTML page"
msgstr ""
#: strpas2jsdesign.pjsdcreateinitialhtmlpage
msgid "Create initial HTML page"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlfile
msgid "Maintain HTML file"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr ""
#: strpas2jsdesign.pjsdnodejsappdescription
msgid "A pas2js program running in node.js"
msgstr "Програма pas2js, що запускається в node.js"
@ -33,6 +41,10 @@ msgstr "Програма pas2js, що запускається в node.js"
msgid "Node.js Application"
msgstr "Застосунок Node.js"
#: strpas2jsdesign.pjsdpas2jsbrowserprojectoptions
msgid "Pas2JS Browser project options"
msgstr ""
#: strpas2jsdesign.pjsdpathof
#, object-pascal-format
msgid "Path of %s"
@ -95,6 +107,10 @@ msgstr ""
msgid "Start HTTP Server on port"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserconsoleunittodisplaywritelnoutput
msgid "Use Browser Console unit to display writeln() output"
msgstr ""

View File

@ -20,10 +20,18 @@ msgstr ""
msgid "Browser to use when opening HTML page"
msgstr ""
#: strpas2jsdesign.pjsdcreateinitialhtmlpage
msgid "Create initial HTML page"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlfile
msgid "Maintain HTML file"
msgstr ""
#: strpas2jsdesign.pjsdmaintainhtmlpage
msgid "Maintain HTML page"
msgstr ""
#: strpas2jsdesign.pjsdnodejsappdescription
msgid "A pas2js program running in node.js"
msgstr "一个pas2js程序运行在node.js"
@ -32,6 +40,10 @@ msgstr "一个pas2js程序运行在node.js"
msgid "Node.js Application"
msgstr "Node.js应用程序"
#: strpas2jsdesign.pjsdpas2jsbrowserprojectoptions
msgid "Pas2JS Browser project options"
msgstr ""
#: strpas2jsdesign.pjsdpathof
#, object-pascal-format
msgid "Path of %s"
@ -94,6 +106,10 @@ msgstr ""
msgid "Start HTTP Server on port"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserapplicationobject
msgid "Use Browser Application object"
msgstr ""
#: strpas2jsdesign.pjsdusebrowserconsoleunittodisplaywritelnoutput
msgid "Use Browser Console unit to display writeln() output"
msgstr ""

View File

@ -63,6 +63,11 @@ Resourcestring
pjsdResetRunCommand = 'Reset Run command';
pjsdResetCompileCommand = 'Reset Compile command';
// New browser project options form
pjsdPas2JSBrowserProjectOptions = 'Pas2JS Browser project options';
pjsdCreateInitialHTMLPage = 'Create initial HTML page';
pjsdMaintainHTMLPage = 'Maintain HTML page';
pjsdUseBrowserApplicationObject = 'Use Browser Application object';
implementation