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

simplewebserver: hint

Browse Source
This commit is contained in:
mattias 2024-01-24 11:30:34 +01:00
parent cd6c78c782
commit 6dce9ab06c
7 changed files with 45 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/simplewebservergui/languages/simplewebsrvstrconsts.pot
View File

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

4
components/simplewebservergui/languages/simplewebsrvstrconsts.pt_BR.po
View File

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

4
components/simplewebservergui/languages/simplewebsrvstrconsts.ru.po
View File

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

4
components/simplewebservergui/languages/simplewebsrvstrconsts.zh_CN.po
View File

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

44
components/simplewebservergui/simplewebsrvoptionsframe.lfm
View File

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

5
components/simplewebservergui/simplewebsrvoptionsframe.pas
View File

@ -224,6 +224,7 @@ var
sl: TStringList; sl: TStringList;
Options: TSimpleWebServerOptions; Options: TSimpleWebServerOptions;
bk: TSWSBrowserKind; bk: TSWSBrowserKind;
i: Integer;
begin begin
if not (AOptions is SupportedOptionsClass) then exit; if not (AOptions is SupportedOptionsClass) then exit;
@ -255,6 +256,9 @@ begin
BrowserCmdComboBox.Enabled:=Options.BrowserKind=swsbkCustom; BrowserCmdComboBox.Enabled:=Options.BrowserKind=swsbkCustom;
sl.Assign(Options.RecentLists[swsrlBrowserCmd]); 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); AddDefault(sl,Options.BrowserCmd);
SetCombobox(BrowserCmdComboBox,Options.BrowserCmd,sl); SetCombobox(BrowserCmdComboBox,Options.BrowserCmd,sl);
@ -277,6 +281,7 @@ begin
BrowserLabel.Caption:=rsSWBrowserToOpenHTMLPageMacroSWSBrowser; BrowserLabel.Caption:=rsSWBrowserToOpenHTMLPageMacroSWSBrowser;
BrowserLabel.Hint:= rsSWUseThisBrowserWhenOpeningTheURLOrHTMLFileOfAWebBro; BrowserLabel.Hint:= rsSWUseThisBrowserWhenOpeningTheURLOrHTMLFileOfAWebBro;
BrowseBrowserButton.Hint:=rsSWForCustomBrowser;
end; end;
class function TSimpleWebSrvOptsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass; class function TSimpleWebSrvOptsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;

1
components/simplewebservergui/simplewebsrvstrconsts.pas
View File

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