simplewebserver: hint

components/simplewebservergui/languages/simplewebsrvstrconsts.pot

@@ -123,6 +123,10 @@ msgstr ""
 msgid "File not found: \"%s\""
 msgstr ""
 
+#: simplewebsrvstrconsts.rsswforcustombrowser
+msgid "For custom browser"
+msgstr ""
+
 #: simplewebsrvstrconsts.rsswinvalidmacrosee
 msgid "Invalid macro. See"
 msgstr ""

components/simplewebservergui/languages/simplewebsrvstrconsts.pt_BR.po

@@ -134,6 +134,10 @@ msgstr "Executável"
 msgid "File not found: \"%s\""
 msgstr "Arquivo não encontrado: \"%s\""
 
+#: simplewebsrvstrconsts.rsswforcustombrowser
+msgid "For custom browser"
+msgstr ""
+
 #: simplewebsrvstrconsts.rsswinvalidmacrosee
 msgid "Invalid macro. See"
 msgstr "Macro inválida. Veja"

components/simplewebservergui/languages/simplewebsrvstrconsts.ru.po

@@ -133,6 +133,10 @@ msgstr "Исполнимый файл"
 msgid "File not found: \"%s\""
 msgstr "Файл не найден: \"%s\""
 
+#: simplewebsrvstrconsts.rsswforcustombrowser
+msgid "For custom browser"
+msgstr ""
+
 #: simplewebsrvstrconsts.rsswinvalidmacrosee
 msgid "Invalid macro. See"
 msgstr "Некорректный макрос. Смотрите"

components/simplewebservergui/languages/simplewebsrvstrconsts.zh_CN.po

@@ -133,6 +133,10 @@ msgstr "可执行"
 msgid "File not found: \"%s\""
 msgstr "未找到文件： \"%s\""
 
+#: simplewebsrvstrconsts.rsswforcustombrowser
+msgid "For custom browser"
+msgstr ""
+
 #: simplewebsrvstrconsts.rsswinvalidmacrosee
 msgid "Invalid macro. See"
 msgstr "宏无效，详见"

components/simplewebservergui/simplewebsrvoptionsframe.lfm

@@ -14,7 +14,7 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideRight.Control = ServerAddrComboBox
     Left = 8
     Height = 15
-    Top = 59
+    Top = 61
     Width = 44
     BorderSpacing.Left = 20
     BorderSpacing.Right = 2
@@ -26,8 +26,8 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideTop.Control = ServerAddrLabel
     AnchorSideTop.Side = asrBottom
     Left = 6
-    Height = 30
-    Top = 76
+    Height = 32
+    Top = 78
     Width = 136
     BorderSpacing.Left = 6
     BorderSpacing.Top = 2
@@ -43,7 +43,7 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideRight.Control = PortComboBox
     Left = 8
     Height = 15
-    Top = 112
+    Top = 116
     Width = 24
     BorderSpacing.Top = 6
     BorderSpacing.Right = 2
@@ -55,8 +55,8 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideTop.Control = PortLabel
     AnchorSideTop.Side = asrBottom
     Left = 6
-    Height = 30
-    Top = 129
+    Height = 32
+    Top = 133
     Width = 100
     BorderSpacing.Left = 6
     BorderSpacing.Top = 2
@@ -83,7 +83,7 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = ServerExeBrowseButton
     Left = 6
-    Height = 30
+    Height = 32
     Top = 23
     Width = 528
     Anchors = [akTop, akLeft, akRight]
@@ -100,15 +100,15 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideBottom.Control = ServerExeComboBox
     AnchorSideBottom.Side = asrBottom
     Left = 534
-    Height = 30
+    Height = 32
     Top = 23
     Width = 25
     Anchors = [akTop, akRight, akBottom]
     AutoSize = True
     BorderSpacing.Right = 6
     Caption = '...'
-    OnClick = ServerExeBrowseButtonClick
     TabOrder = 3
+    OnClick = ServerExeBrowseButtonClick
   end
   object BindAnyCheckBox: TCheckBox
     AnchorSideLeft.Control = ServerAddrComboBox
@@ -117,7 +117,7 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideTop.Side = asrCenter
     Left = 148
     Height = 23
-    Top = 80
+    Top = 83
     Width = 123
     BorderSpacing.Left = 6
     Caption = 'Bind Any (0.0.0.0)'
@@ -129,7 +129,7 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideTop.Side = asrBottom
     Left = 6
     Height = 15
-    Top = 165
+    Top = 171
     Width = 268
     BorderSpacing.Left = 6
     BorderSpacing.Top = 6
@@ -142,15 +142,15 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Side = asrBottom
     Left = 6
-    Height = 30
-    Top = 287
+    Height = 31
+    Top = 293
     Width = 186
     BorderSpacing.Top = 2
     BorderSpacing.Right = 6
     ItemHeight = 0
-    OnSelect = BrowserKindComboBoxSelect
     Style = csDropDownList
     TabOrder = 5
+    OnSelect = BrowserKindComboBoxSelect
   end
   object BrowserLabel: TLabel
     AnchorSideLeft.Control = Owner
@@ -158,7 +158,7 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideTop.Side = asrBottom
     Left = 6
     Height = 15
-    Top = 270
+    Top = 276
     Width = 258
     BorderSpacing.Left = 6
     BorderSpacing.Top = 15
@@ -173,7 +173,7 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideRight.Side = asrBottom
     Left = 6
     Height = 73
-    Top = 182
+    Top = 188
     Width = 553
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Left = 6
@@ -187,8 +187,8 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = BrowseBrowserButton
     Left = 21
-    Height = 30
-    Top = 319
+    Height = 32
+    Top = 326
     Width = 513
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Left = 15
@@ -204,14 +204,16 @@ object SimpleWebSrvOptsFrame: TSimpleWebSrvOptsFrame
     AnchorSideBottom.Control = BrowserCmdComboBox
     AnchorSideBottom.Side = asrBottom
     Left = 534
-    Height = 30
-    Top = 319
+    Height = 32
+    Top = 326
     Width = 25
     Anchors = [akTop, akRight, akBottom]
     AutoSize = True
     BorderSpacing.Right = 6
     Caption = '...'
-    OnClick = BrowseBrowserButtonClick
+    ParentShowHint = False
+    ShowHint = True
     TabOrder = 8
+    OnClick = BrowseBrowserButtonClick
   end
 end

components/simplewebservergui/simplewebsrvoptionsframe.pas

@@ -224,6 +224,7 @@ var
   sl: TStringList;
   Options: TSimpleWebServerOptions;
   bk: TSWSBrowserKind;
+  i: Integer;
 begin
   if not (AOptions is SupportedOptionsClass) then exit;
 
@@ -255,6 +256,9 @@ begin
 
     BrowserCmdComboBox.Enabled:=Options.BrowserKind=swsbkCustom;
     sl.Assign(Options.RecentLists[swsrlBrowserCmd]);
+    for i:=sl.Count-1 downto 0 do
+      if Trim(sl[i])='' then
+        sl.Delete(i);
     AddDefault(sl,Options.BrowserCmd);
     SetCombobox(BrowserCmdComboBox,Options.BrowserCmd,sl);
 
@@ -277,6 +281,7 @@ begin
 
   BrowserLabel.Caption:=rsSWBrowserToOpenHTMLPageMacroSWSBrowser;
   BrowserLabel.Hint:= rsSWUseThisBrowserWhenOpeningTheURLOrHTMLFileOfAWebBro;
+  BrowseBrowserButton.Hint:=rsSWForCustomBrowser;
 end;
 
 class function TSimpleWebSrvOptsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;

components/simplewebservergui/simplewebsrvstrconsts.pas

@@ -33,6 +33,7 @@ resourcestring
     +'line options for the command which starts the webserver.';
   rsSWUseThisBrowserWhenOpeningTheURLOrHTMLFileOfAWebBro = 'Use this browser '
     +'when opening the URL or HTML file of a web browser project';
+  rsSWForCustomBrowser = 'For custom browser';
   rsSWSBindAny = 'Bind Any';
   rsSWSUserOrigin = 'User';
   rsSWUnableToAddLocation = 'Unable to add location:';