pas2js: resourcestrings

components/simplewebservergui/languages/simplewebsrvstrconsts.pot

@@ -29,6 +29,11 @@ msgstr ""
 msgid "Binding of socket failed"
 msgstr ""
 
+#: simplewebsrvstrconsts.rsswbrowserfilenotfound
+#, object-pascal-format
+msgid "Browser file not found: \"%s\""
+msgstr ""
+
 #: simplewebsrvstrconsts.rsswbrowsertoopenhtmlpagemacroswsbrowser
 msgid "Browser to open HTML page, macro $(SWSBrowser)"
 msgstr ""
@@ -160,6 +165,10 @@ msgstr ""
 msgid "Location already used."
 msgstr ""
 
+#: simplewebsrvstrconsts.rsswmissingbrowserfilename
+msgid "Missing browser filename"
+msgstr ""
+
 #: simplewebsrvstrconsts.rsswmissingcontroller
 msgid "missing controller"
 msgstr ""

components/simplewebservergui/languages/simplewebsrvstrconsts.pt_BR.po

@@ -40,6 +40,11 @@ msgstr "Um nome arbitrário para a subpasta URL"
 msgid "Binding of socket failed"
 msgstr "Ligação ao soquete falhou"
 
+#: simplewebsrvstrconsts.rsswbrowserfilenotfound
+#, object-pascal-format
+msgid "Browser file not found: \"%s\""
+msgstr ""
+
 #: simplewebsrvstrconsts.rsswbrowsertoopenhtmlpagemacroswsbrowser
 msgid "Browser to open HTML page, macro $(SWSBrowser)"
 msgstr "Navegador para abrir a página HTML, macro $(SWSBrowser)"
@@ -171,6 +176,10 @@ msgstr "Local"
 msgid "Location already used."
 msgstr "Local já está em uso."
 
+#: simplewebsrvstrconsts.rsswmissingbrowserfilename
+msgid "Missing browser filename"
+msgstr ""
+
 #: simplewebsrvstrconsts.rsswmissingcontroller
 msgid "missing controller"
 msgstr "controlador faltando"

components/simplewebservergui/languages/simplewebsrvstrconsts.ru.po

@@ -39,6 +39,11 @@ msgstr "Произвольное имя для подкаталога в адр
 msgid "Binding of socket failed"
 msgstr "Не удалось привязать сокет"
 
+#: simplewebsrvstrconsts.rsswbrowserfilenotfound
+#, object-pascal-format
+msgid "Browser file not found: \"%s\""
+msgstr ""
+
 #: simplewebsrvstrconsts.rsswbrowsertoopenhtmlpagemacroswsbrowser
 msgid "Browser to open HTML page, macro $(SWSBrowser)"
 msgstr "Браузер для открытия страницы HTML, макрос $(SWSBrowser)"
@@ -170,6 +175,10 @@ msgstr "Расположение"
 msgid "Location already used."
 msgstr "Расположение уже используется."
 
+#: simplewebsrvstrconsts.rsswmissingbrowserfilename
+msgid "Missing browser filename"
+msgstr ""
+
 #: simplewebsrvstrconsts.rsswmissingcontroller
 msgid "missing controller"
 msgstr "отсутствует контроллер"

components/simplewebservergui/languages/simplewebsrvstrconsts.zh_CN.po

@@ -39,6 +39,11 @@ msgstr "URL 子文件夹的任意名称"
 msgid "Binding of socket failed"
 msgstr "套接字绑定失败"
 
+#: simplewebsrvstrconsts.rsswbrowserfilenotfound
+#, object-pascal-format
+msgid "Browser file not found: \"%s\""
+msgstr ""
+
 #: simplewebsrvstrconsts.rsswbrowsertoopenhtmlpagemacroswsbrowser
 msgid "Browser to open HTML page, macro $(SWSBrowser)"
 msgstr "打开 HTML 页面的浏览器，宏 $(SWSBrowser)"
@@ -170,6 +175,10 @@ msgstr "路径"
 msgid "Location already used."
 msgstr "路径已被使用。"
 
+#: simplewebsrvstrconsts.rsswmissingbrowserfilename
+msgid "Missing browser filename"
+msgstr ""
+
 #: simplewebsrvstrconsts.rsswmissingcontroller
 msgid "missing controller"
 msgstr "缺少控制器"

components/simplewebservergui/simplewebsrvoptionsframe.pas

@@ -292,7 +292,8 @@ begin
           try
             SplitCmdLineParams(Cmd,Params);
             if Params.Count=0 then begin
-              if IDEMessageDialog(rsSWError, 'Missing browser filename'+sLineBreak +
+              if IDEMessageDialog(rsSWError, rsSWMissingBrowserFilename+
+                sLineBreak +
                 rsSWToolsOptionsSimpleWebServerBrowser,mtError,[mbIgnore,mbCancel])=mrIgnore then
                 exit(true)
               else
@@ -303,7 +304,8 @@ begin
               ExeFilename:=FindDefaultExecutablePath(ExeFilename);
             end;
             if not FileExists(ExeFilename) then begin
-              if IDEMessageDialog(rsSWError, 'Browser file not found "'+Params[0]+'"'+sLineBreak +
+              if IDEMessageDialog(rsSWError, Format(rsSWBrowserFileNotFound, [
+                Params[0]])+sLineBreak +
                 rsSWToolsOptionsSimpleWebServerBrowser,mtError,[mbIgnore,mbCancel])=mrIgnore then
                 exit(true)
               else

components/simplewebservergui/simplewebsrvstrconsts.pas

@@ -48,6 +48,8 @@ resourcestring
     +'on disk, usually where the server fetches files from';
   rsSWAddLocation = 'Add Location';
   rsSWError = 'Error';
+  rsSWBrowserFileNotFound = 'Browser file not found: "%s"';
+  rsSWMissingBrowserFilename = 'Missing browser filename';
   rsSWThereIsAlreadyAServerOnPortOriginPath = 'There is already a server on '
     +'port %s:%sOrigin: %sPath: %s';
   rsSWErrorFindingFreeTCPPort = 'Error finding free TCP port:';