Skip to content
Snippets Groups Projects
Commit 8044cf9b authored by Rob Swindell's avatar Rob Swindell :speech_balloon:
Browse files

Add max concurrent connections edit box to web cfg dialog

parent 065ed30e
No related branches found
No related tags found
No related merge requests found
Pipeline #7304 passed
Stage: build
Stage: test
Stage: cleanup
Hide whitespace changes
Inline Side-by-side
src/sbbs3/ctrl/WebCfgDlgUnit.cpp
+ 2
− 0
View file @ 8044cf9b
...@@ -61,6 +61,7 @@ void __fastcall TWebCfgDlg::FormShow(TObject *Sender) ...@@ -61,6 +61,7 @@ void __fastcall TWebCfgDlg::FormShow(TObject *Sender)
else else
MaxClientsEdit->Text=AnsiString((int)MainForm->web_startup.max_clients); MaxClientsEdit->Text=AnsiString((int)MainForm->web_startup.max_clients);
MaxInactivityEdit->Text = duration_to_str(MainForm->web_startup.max_inactivity, str, sizeof str); MaxInactivityEdit->Text = duration_to_str(MainForm->web_startup.max_inactivity, str, sizeof str);
MaxConConEdit->Text = AnsiString((int)MainForm->web_startup.max_concurrent_connections);
PortEdit->Text=AnsiString((int)MainForm->web_startup.port); PortEdit->Text=AnsiString((int)MainForm->web_startup.port);
TlsPortEdit->Text=AnsiString((int)MainForm->web_startup.tls_port); TlsPortEdit->Text=AnsiString((int)MainForm->web_startup.tls_port);
AutoStartCheckBox->Checked=MainForm->WebAutoStart; AutoStartCheckBox->Checked=MainForm->WebAutoStart;
...@@ -115,6 +116,7 @@ void __fastcall TWebCfgDlg::OKBtnClick(TObject *Sender) ...@@ -115,6 +116,7 @@ void __fastcall TWebCfgDlg::OKBtnClick(TObject *Sender)
MainForm->web_startup.tls_interfaces = strListSplitCopy(NULL, TlsInterfaceEdit->Text.c_str(), ","); MainForm->web_startup.tls_interfaces = strListSplitCopy(NULL, TlsInterfaceEdit->Text.c_str(), ",");
MainForm->web_startup.max_clients=MaxClientsEdit->Text.ToIntDef(10); MainForm->web_startup.max_clients=MaxClientsEdit->Text.ToIntDef(10);
MainForm->web_startup.max_inactivity = parse_duration(MaxInactivityEdit->Text.c_str()); MainForm->web_startup.max_inactivity = parse_duration(MaxInactivityEdit->Text.c_str());
MainForm->web_startup.max_concurrent_connections = MaxConConEdit->Text.ToIntDef(0);
MainForm->web_startup.port=PortEdit->Text.ToIntDef(IPPORT_HTTP); MainForm->web_startup.port=PortEdit->Text.ToIntDef(IPPORT_HTTP);
MainForm->web_startup.tls_port=TlsPortEdit->Text.ToIntDef(IPPORT_HTTPS); MainForm->web_startup.tls_port=TlsPortEdit->Text.ToIntDef(IPPORT_HTTPS);
MainForm->WebAutoStart=AutoStartCheckBox->Checked; MainForm->WebAutoStart=AutoStartCheckBox->Checked;
......
src/sbbs3/ctrl/WebCfgDlgUnit.dfm
+ 218
− 200
View file @ 8044cf9b
...@@ -3,8 +3,8 @@ object WebCfgDlg: TWebCfgDlg ...@@ -3,8 +3,8 @@ object WebCfgDlg: TWebCfgDlg
Top = 332 Top = 332
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Web Server Configuration' Caption = 'Web Server Configuration'
ClientHeight = 245 ClientHeight = 283
ClientWidth = 286 ClientWidth = 330
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
...@@ -16,65 +16,65 @@ object WebCfgDlg: TWebCfgDlg ...@@ -16,65 +16,65 @@ object WebCfgDlg: TWebCfgDlg
ShowHint = True ShowHint = True
OnShow = FormShow OnShow = FormShow
DesignSize = ( DesignSize = (
286 330
245) 283)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 15
object PageControl: TPageControl object PageControl: TPageControl
Left = 3 Left = 3
Top = 3 Top = 3
Width = 278 Width = 321
Height = 199 Height = 230
ActivePage = SoundTabSheet ActivePage = HttpTabSheet
TabIndex = 5 TabIndex = 2
TabOrder = 0 TabOrder = 0
object GeneralTabSheet: TTabSheet object GeneralTabSheet: TTabSheet
Caption = 'General' Caption = 'General'
object MaxClientesLabel: TLabel object MaxClientesLabel: TLabel
Left = 7 Left = 8
Top = 88 Top = 102
Width = 78 Width = 90
Height = 19 Height = 21
AutoSize = False AutoSize = False
Caption = 'Max Clients' Caption = 'Max Clients'
end end
object MaxInactivityLabel: TLabel object MaxInactivityLabel: TLabel
Left = 7 Left = 8
Top = 114 Top = 132
Width = 78 Width = 90
Height = 19 Height = 21
AutoSize = False AutoSize = False
Caption = 'Max Inactivity' Caption = 'Max Inactivity'
end end
object PortLabel: TLabel object PortLabel: TLabel
Left = 7 Left = 8
Top = 62 Top = 72
Width = 78 Width = 90
Height = 19 Height = 21
AutoSize = False AutoSize = False
Caption = 'Listening Port' Caption = 'Listening Port'
end end
object InterfaceLabel: TLabel object InterfaceLabel: TLabel
Left = 7 Left = 8
Top = 36 Top = 42
Width = 78 Width = 90
Height = 19 Height = 21
AutoSize = False AutoSize = False
Caption = 'Interfaces (IPs)' Caption = 'Interfaces (IPs)'
end end
object AuthTypesLabel: TLabel object MaxConConLabel: TLabel
Left = 7 Left = 8
Top = 140 Top = 159
Width = 78 Width = 89
Height = 19 Height = 22
AutoSize = False AutoSize = False
Caption = 'Auth Types' Caption = 'Max Con-Conn'
end end
object AutoStartCheckBox: TCheckBox object AutoStartCheckBox: TCheckBox
Left = 7 Left = 8
Top = 10 Top = 12
Width = 117 Width = 135
Height = 20 Height = 23
Hint = 'Automatically start Web server' Hint = 'Automatically start Web server'
Caption = 'Auto Startup' Caption = 'Auto Startup'
ParentShowHint = False ParentShowHint = False
...@@ -82,20 +82,20 @@ object WebCfgDlg: TWebCfgDlg ...@@ -82,20 +82,20 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 0 TabOrder = 0
end end
object MaxClientsEdit: TEdit object MaxClientsEdit: TEdit
Left = 85 Left = 98
Top = 88 Top = 102
Width = 39 Width = 45
Height = 21 Height = 23
Hint = 'Maximum number of simultaneous clients (0=unlimited)' Hint = 'Maximum number of simultaneous clients (0=unlimited)'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 4 TabOrder = 4
end end
object MaxInactivityEdit: TEdit object MaxInactivityEdit: TEdit
Left = 85 Left = 98
Top = 114 Top = 132
Width = 39 Width = 45
Height = 21 Height = 23
Hint = Hint =
'Maximum number of seconds of inactivity before disconnect (defau' + 'Maximum number of seconds of inactivity before disconnect (defau' +
'lt=120)' 'lt=120)'
...@@ -104,20 +104,20 @@ object WebCfgDlg: TWebCfgDlg ...@@ -104,20 +104,20 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 5 TabOrder = 5
end end
object PortEdit: TEdit object PortEdit: TEdit
Left = 85 Left = 98
Top = 62 Top = 72
Width = 39 Width = 45
Height = 21 Height = 23
Hint = 'TCP port to use for HTTP connections (default=80)' Hint = 'TCP port to use for HTTP connections (default=80)'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 3 TabOrder = 3
end end
object NetworkInterfaceEdit: TEdit object NetworkInterfaceEdit: TEdit
Left = 85 Left = 98
Top = 36 Top = 42
Width = 156 Width = 180
Height = 21 Height = 23
Hint = Hint =
'Comma-separated list of IP addresses to accept incoming connecti' + 'Comma-separated list of IP addresses to accept incoming connecti' +
'ons' 'ons'
...@@ -126,22 +126,22 @@ object WebCfgDlg: TWebCfgDlg ...@@ -126,22 +126,22 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 2 TabOrder = 2
end end
object HostnameCheckBox: TCheckBox object HostnameCheckBox: TCheckBox
Left = 148 Left = 171
Top = 10 Top = 12
Width = 119 Width = 137
Height = 20 Height = 23
Hint = 'Automatically lookup client'#39's hostnames via DNS' Hint = 'Automatically lookup client'#39's hostnames via DNS'
Caption = 'Hostname Lookup' Caption = 'Hostname Lookup'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1
end end
object AuthTypesEdit: TEdit object MaxConConEdit: TEdit
Left = 85 Left = 98
Top = 140 Top = 159
Width = 156 Width = 45
Height = 21 Height = 23
Hint = 'Comma-separated list of default authentication types allowed' Hint = 'Maximum Concurrent Connections from same IP (0=unlimited)'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 6 TabOrder = 6
...@@ -151,26 +151,26 @@ object WebCfgDlg: TWebCfgDlg ...@@ -151,26 +151,26 @@ object WebCfgDlg: TWebCfgDlg
Caption = 'TLS' Caption = 'TLS'
ImageIndex = 5 ImageIndex = 5
object TlsInterfaceLabel: TLabel object TlsInterfaceLabel: TLabel
Left = 7 Left = 8
Top = 36 Top = 42
Width = 78 Width = 90
Height = 19 Height = 21
AutoSize = False AutoSize = False
Caption = 'Interfaces (IPs)' Caption = 'Interfaces (IPs)'
end end
object TlsPortLabel: TLabel object TlsPortLabel: TLabel
Left = 7 Left = 8
Top = 62 Top = 72
Width = 78 Width = 90
Height = 19 Height = 21
AutoSize = False AutoSize = False
Caption = 'Listening Port' Caption = 'Listening Port'
end end
object TlsEnableCheckBox: TCheckBox object TlsEnableCheckBox: TCheckBox
Left = 7 Left = 8
Top = 10 Top = 12
Width = 117 Width = 135
Height = 20 Height = 23
Hint = 'Enables HTTPS (HTTP over TLS/SSL)' Hint = 'Enables HTTPS (HTTP over TLS/SSL)'
Caption = 'Enabled' Caption = 'Enabled'
ParentShowHint = False ParentShowHint = False
...@@ -179,9 +179,9 @@ object WebCfgDlg: TWebCfgDlg ...@@ -179,9 +179,9 @@ object WebCfgDlg: TWebCfgDlg
OnClick = TlsEnableCheckBoxClick OnClick = TlsEnableCheckBoxClick
end end
object TlsInterfaceEdit: TEdit object TlsInterfaceEdit: TEdit
Left = 85 Left = 98
Top = 36 Top = 42
Width = 156 Width = 180
Height = 21 Height = 21
Hint = Hint =
'Comma-separated list of IP addresses to accept incoming connecti' + 'Comma-separated list of IP addresses to accept incoming connecti' +
...@@ -191,9 +191,9 @@ object WebCfgDlg: TWebCfgDlg ...@@ -191,9 +191,9 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 1 TabOrder = 1
end end
object TlsPortEdit: TEdit object TlsPortEdit: TEdit
Left = 85 Left = 98
Top = 62 Top = 72
Width = 39 Width = 45
Height = 21 Height = 21
Hint = 'TCP port to use for HTTPS connections (default=443)' Hint = 'TCP port to use for HTTPS connections (default=443)'
ParentShowHint = False ParentShowHint = False
...@@ -201,10 +201,10 @@ object WebCfgDlg: TWebCfgDlg ...@@ -201,10 +201,10 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 2 TabOrder = 2
end end
object HSTSEnableCheckBox: TCheckBox object HSTSEnableCheckBox: TCheckBox
Left = 148 Left = 171
Top = 10 Top = 12
Width = 119 Width = 137
Height = 20 Height = 23
Hint = 'HTTP Strict Transport Security' Hint = 'HTTP Strict Transport Security'
Caption = 'HSTS Support' Caption = 'HSTS Support'
ParentShowHint = False ParentShowHint = False
...@@ -216,141 +216,159 @@ object WebCfgDlg: TWebCfgDlg ...@@ -216,141 +216,159 @@ object WebCfgDlg: TWebCfgDlg
Caption = 'HTTP' Caption = 'HTTP'
ImageIndex = 3 ImageIndex = 3
object HtmlDirLabel: TLabel object HtmlDirLabel: TLabel
Left = 7 Left = 8
Top = 10 Top = 12
Width = 78 Width = 90
Height = 20 Height = 23
AutoSize = False AutoSize = False
Caption = 'HTML Root' Caption = 'HTML Root'
end end
object ErrorSubDirLabel: TLabel object ErrorSubDirLabel: TLabel
Left = 7 Left = 8
Top = 36 Top = 42
Width = 78 Width = 90
Height = 20 Height = 23
AutoSize = False AutoSize = False
Caption = 'Error SubDir' Caption = 'Error SubDir'
end end
object ServerSideJsExtLabel: TLabel object ServerSideJsExtLabel: TLabel
Left = 7 Left = 8
Top = 114 Top = 132
Width = 143 Width = 165
Height = 20 Height = 23
AutoSize = False AutoSize = False
Caption = 'Server-Side JS File Extension' Caption = 'Server-Side JS File Extension'
end end
object IndexLabel: TLabel object IndexLabel: TLabel
Left = 7 Left = 8
Top = 62 Top = 72
Width = 78 Width = 90
Height = 20 Height = 23
AutoSize = False AutoSize = False
Caption = 'Index Files' Caption = 'Index Files'
end end
object HtmlRootEdit: TEdit object AuthTypesLabel: TLabel
Left = 85 Left = 8
Top = 10 Top = 102
Width = 156 Width = 90
Height = 21 Height = 21
AutoSize = False
Caption = 'Auth Types'
end
object HtmlRootEdit: TEdit
Left = 98
Top = 12
Width = 180
Height = 23
Hint = 'Root directory for HTML files (off of CTRL directory)' Hint = 'Root directory for HTML files (off of CTRL directory)'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
end end
object ErrorSubDirEdit: TEdit object ErrorSubDirEdit: TEdit
Left = 85 Left = 98
Top = 36 Top = 42
Width = 156 Width = 180
Height = 21 Height = 23
Hint = 'Error sub-directory (off of HTML root)' Hint = 'Error sub-directory (off of HTML root)'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1
end end
object ServerSideJsExtEdit: TEdit object ServerSideJsExtEdit: TEdit
Left = 156 Left = 180
Top = 114 Top = 132
Width = 85 Width = 98
Height = 21 Height = 23
Hint = Hint =
'File extension that denotes server-side JavaScript files (e.g. "' + 'File extension that denotes server-side JavaScript files (e.g. "' +
'.ssjs")' '.ssjs")'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 3 TabOrder = 4
end end
object VirtualHostsCheckBox: TCheckBox object VirtualHostsCheckBox: TCheckBox
Left = 7 Left = 8
Top = 140 Top = 162
Width = 85 Width = 98
Height = 19 Height = 21
Hint = 'Support virtual host directories off the HTML root directory' Hint = 'Support virtual host directories off the HTML root directory'
Caption = 'Virtual Hosts' Caption = 'Virtual Hosts'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 4 TabOrder = 5
end end
object IndexFileEdit: TEdit object IndexFileEdit: TEdit
Left = 85 Left = 98
Top = 62 Top = 72
Width = 156 Width = 180
Height = 21 Height = 23
Hint = Hint =
'List of filenames that will be automatically sent to client (e.g' + 'List of filenames that will be automatically sent to client (e.g' +
'. index.html)' '. index.html)'
TabOrder = 2 TabOrder = 2
end end
object AuthTypesEdit: TEdit
Left = 98
Top = 102
Width = 180
Height = 23
Hint = 'Comma-separated list of default authentication types allowed'
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
end end
object CGITabSheet: TTabSheet object CGITabSheet: TTabSheet
Caption = 'CGI' Caption = 'CGI'
ImageIndex = 4 ImageIndex = 4
object CGIDirLabel: TLabel object CGIDirLabel: TLabel
Left = 7 Left = 8
Top = 36 Top = 42
Width = 78 Width = 90
Height = 20 Height = 23
AutoSize = False AutoSize = False
Caption = 'SubDirectory' Caption = 'SubDirectory'
end end
object CGIExtLabel: TLabel object CGIExtLabel: TLabel
Left = 7 Left = 8
Top = 62 Top = 72
Width = 78 Width = 90
Height = 20 Height = 23
AutoSize = False AutoSize = False
Caption = 'File Extensions' Caption = 'File Extensions'
end end
object CGIMaxInactivityLabel: TLabel object CGIMaxInactivityLabel: TLabel
Left = 7 Left = 8
Top = 114 Top = 132
Width = 78 Width = 90
Height = 19 Height = 21
AutoSize = False AutoSize = False
Caption = 'Max Inactivity' Caption = 'Max Inactivity'
end end
object CGIContentLabel: TLabel object CGIContentLabel: TLabel
Left = 7 Left = 8
Top = 88 Top = 102
Width = 78 Width = 90
Height = 20 Height = 23
AutoSize = False AutoSize = False
Caption = 'Content-Type' Caption = 'Content-Type'
end end
object CGIDirEdit: TEdit object CGIDirEdit: TEdit
Left = 85 Left = 98
Top = 36 Top = 42
Width = 156 Width = 180
Height = 21 Height = 23
Hint = 'CGI sub-directory (off of HTML root)' Hint = 'CGI sub-directory (off of HTML root)'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1
end end
object CGICheckBox: TCheckBox object CGICheckBox: TCheckBox
Left = 7 Left = 8
Top = 10 Top = 12
Width = 228 Width = 263
Height = 20 Height = 23
Hint = 'CGI support is enabled when checked' Hint = 'CGI support is enabled when checked'
Caption = 'Enabled' Caption = 'Enabled'
ParentShowHint = False ParentShowHint = False
...@@ -359,20 +377,20 @@ object WebCfgDlg: TWebCfgDlg ...@@ -359,20 +377,20 @@ object WebCfgDlg: TWebCfgDlg
OnClick = CGICheckBoxClick OnClick = CGICheckBoxClick
end end
object CGIExtEdit: TEdit object CGIExtEdit: TEdit
Left = 85 Left = 98
Top = 62 Top = 72
Width = 156 Width = 180
Height = 21 Height = 23
Hint = 'File extensions that denote CGI executable files' Hint = 'File extensions that denote CGI executable files'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 2 TabOrder = 2
end end
object CGIMaxInactivityEdit: TEdit object CGIMaxInactivityEdit: TEdit
Left = 85 Left = 98
Top = 114 Top = 132
Width = 39 Width = 45
Height = 21 Height = 23
Hint = Hint =
'Maximum number of seconds of inactivity before disconnect (defau' + 'Maximum number of seconds of inactivity before disconnect (defau' +
'lt=120)' 'lt=120)'
...@@ -381,29 +399,29 @@ object WebCfgDlg: TWebCfgDlg ...@@ -381,29 +399,29 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 4 TabOrder = 4
end end
object CGIContentEdit: TEdit object CGIContentEdit: TEdit
Left = 85 Left = 98
Top = 88 Top = 102
Width = 156 Width = 180
Height = 21 Height = 23
Hint = 'Default Content-Type for CGI output' Hint = 'Default Content-Type for CGI output'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 3 TabOrder = 3
end end
object CGIEnvButton: TButton object CGIEnvButton: TButton
Left = 7 Left = 8
Top = 143 Top = 165
Width = 117 Width = 135
Height = 20 Height = 23
Caption = 'Environment Vars' Caption = 'Environment Vars'
TabOrder = 5 TabOrder = 5
OnClick = CGIEnvButtonClick OnClick = CGIEnvButtonClick
end end
object WebHandlersButton: TButton object WebHandlersButton: TButton
Left = 130 Left = 150
Top = 143 Top = 165
Width = 111 Width = 128
Height = 20 Height = 23
Caption = 'Content Handlers' Caption = 'Content Handlers'
TabOrder = 6 TabOrder = 6
OnClick = WebHandlersButtonClick OnClick = WebHandlersButtonClick
...@@ -413,18 +431,18 @@ object WebCfgDlg: TWebCfgDlg ...@@ -413,18 +431,18 @@ object WebCfgDlg: TWebCfgDlg
Caption = 'Log' Caption = 'Log'
ImageIndex = 1 ImageIndex = 1
object LogBaseLabel: TLabel object LogBaseLabel: TLabel
Left = 7 Left = 8
Top = 88 Top = 102
Width = 78 Width = 90
Height = 20 Height = 23
AutoSize = False AutoSize = False
Caption = 'Base Filename' Caption = 'Base Filename'
end end
object DebugTxCheckBox: TCheckBox object DebugTxCheckBox: TCheckBox
Left = 7 Left = 8
Top = 34 Top = 39
Width = 156 Width = 180
Height = 20 Height = 23
Hint = 'Log (debug) transmitted HTTP responses' Hint = 'Log (debug) transmitted HTTP responses'
Caption = 'Transmitted Responses' Caption = 'Transmitted Responses'
ParentShowHint = False ParentShowHint = False
...@@ -432,10 +450,10 @@ object WebCfgDlg: TWebCfgDlg ...@@ -432,10 +450,10 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 1 TabOrder = 1
end end
object DebugRxCheckBox: TCheckBox object DebugRxCheckBox: TCheckBox
Left = 7 Left = 8
Top = 10 Top = 12
Width = 156 Width = 180
Height = 19 Height = 21
Hint = 'Log (debug) all received HTTP requests' Hint = 'Log (debug) all received HTTP requests'
Caption = 'Received Requests' Caption = 'Received Requests'
ParentShowHint = False ParentShowHint = False
...@@ -443,10 +461,10 @@ object WebCfgDlg: TWebCfgDlg ...@@ -443,10 +461,10 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 0 TabOrder = 0
end end
object AccessLogCheckBox: TCheckBox object AccessLogCheckBox: TCheckBox
Left = 7 Left = 8
Top = 59 Top = 68
Width = 156 Width = 180
Height = 19 Height = 22
Hint = 'Create HTTP access log files' Hint = 'Create HTTP access log files'
Caption = 'Create Access Log Files' Caption = 'Create Access Log Files'
ParentShowHint = False ParentShowHint = False
...@@ -455,9 +473,9 @@ object WebCfgDlg: TWebCfgDlg ...@@ -455,9 +473,9 @@ object WebCfgDlg: TWebCfgDlg
OnClick = AccessLogCheckBoxClick OnClick = AccessLogCheckBoxClick
end end
object LogBaseNameEdit: TEdit object LogBaseNameEdit: TEdit
Left = 85 Left = 98
Top = 88 Top = 102
Width = 156 Width = 180
Height = 21 Height = 21
Hint = 'Base directory and filename for HTTP access log files' Hint = 'Base directory and filename for HTTP access log files'
ParentShowHint = False ParentShowHint = False
...@@ -469,10 +487,10 @@ object WebCfgDlg: TWebCfgDlg ...@@ -469,10 +487,10 @@ object WebCfgDlg: TWebCfgDlg
Caption = 'Sound' Caption = 'Sound'
ImageIndex = 2 ImageIndex = 2
object ConfigureSoundButton: TButton object ConfigureSoundButton: TButton
Left = 8 Left = 9
Top = 8 Top = 9
Width = 257 Width = 297
Height = 25 Height = 29
Caption = 'Configure Common Server Event Sounds' Caption = 'Configure Common Server Event Sounds'
TabOrder = 0 TabOrder = 0
OnClick = ConfigureSoundButtonClick OnClick = ConfigureSoundButtonClick
...@@ -480,10 +498,10 @@ object WebCfgDlg: TWebCfgDlg ...@@ -480,10 +498,10 @@ object WebCfgDlg: TWebCfgDlg
end end
end end
object OKBtn: TButton object OKBtn: TButton
Left = 20 Left = 23
Top = 211 Top = 243
Width = 76 Width = 88
Height = 25 Height = 29
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'OK' Caption = 'OK'
Default = True Default = True
...@@ -492,10 +510,10 @@ object WebCfgDlg: TWebCfgDlg ...@@ -492,10 +510,10 @@ object WebCfgDlg: TWebCfgDlg
OnClick = OKBtnClick OnClick = OKBtnClick
end end
object CancelBtn: TButton object CancelBtn: TButton
Left = 104 Left = 120
Top = 211 Top = 243
Width = 75 Width = 87
Height = 25 Height = 29
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
...@@ -503,10 +521,10 @@ object WebCfgDlg: TWebCfgDlg ...@@ -503,10 +521,10 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 2 TabOrder = 2
end end
object ApplyBtn: TButton object ApplyBtn: TButton
Left = 189 Left = 218
Top = 211 Top = 243
Width = 76 Width = 88
Height = 25 Height = 29
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Cancel = True Cancel = True
Caption = 'Apply' Caption = 'Apply'
......
src/sbbs3/ctrl/WebCfgDlgUnit.h
+ 4
− 2
View file @ 8044cf9b
...@@ -97,10 +97,12 @@ __published: // IDE-managed Components ...@@ -97,10 +97,12 @@ __published: // IDE-managed Components
TLabel *TlsInterfaceLabel; TLabel *TlsInterfaceLabel;
TLabel *TlsPortLabel; TLabel *TlsPortLabel;
TEdit *TlsPortEdit; TEdit *TlsPortEdit;
TLabel *AuthTypesLabel;
TEdit *AuthTypesEdit;
TCheckBox *HSTSEnableCheckBox; TCheckBox *HSTSEnableCheckBox;
TButton *ConfigureSoundButton; TButton *ConfigureSoundButton;
TLabel *AuthTypesLabel;
TEdit *AuthTypesEdit;
TLabel *MaxConConLabel;
TEdit *MaxConConEdit;
void __fastcall FormShow(TObject *Sender); void __fastcall FormShow(TObject *Sender);
void __fastcall OKBtnClick(TObject *Sender); void __fastcall OKBtnClick(TObject *Sender);
void __fastcall AccessLogCheckBoxClick(TObject *Sender); void __fastcall AccessLogCheckBoxClick(TObject *Sender);
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment