Skip to content
Snippets Groups Projects
Commit 9596d31a authored by rswindell's avatar rswindell
Browse files

Changed window position to "centered". 

Disabled embedded-JS options (not currently supported).
parent df822153
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/sbbs3/ctrl/WebCfgDlgUnit.dfm
+ 156
− 149
View file @ 9596d31a
......@@ -3,68 +3,69 @@ object WebCfgDlg: TWebCfgDlg
Top = 403
BorderStyle = bsDialog
Caption = 'Web Server Configuration'
ClientHeight = 301
ClientWidth = 352
ClientHeight = 245
ClientWidth = 286
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
DesignSize = (
352
301)
PixelsPerInch = 120
TextHeight = 16
286
245)
PixelsPerInch = 96
TextHeight = 13
object PageControl: TPageControl
Left = 4
Top = 4
Width = 342
Height = 245
Left = 3
Top = 3
Width = 278
Height = 199
ActivePage = HttpTabSheet
TabIndex = 1
TabOrder = 0
object GeneralTabSheet: TTabSheet
Caption = 'General'
object MaxClientesLabel: TLabel
Left = 9
Top = 106
Width = 96
Height = 25
Left = 7
Top = 86
Width = 78
Height = 20
AutoSize = False
Caption = 'Max Clients'
end
object MaxInactivityLabel: TLabel
Left = 9
Top = 138
Width = 96
Height = 25
Left = 7
Top = 112
Width = 78
Height = 20
AutoSize = False
Caption = 'Max Inactivity'
end
object PortLabel: TLabel
Left = 9
Top = 74
Width = 96
Height = 25
Left = 7
Top = 60
Width = 78
Height = 20
AutoSize = False
Caption = 'Listening Port'
end
object InterfaceLabel: TLabel
Left = 9
Top = 42
Width = 96
Height = 25
Left = 7
Top = 34
Width = 78
Height = 20
AutoSize = False
Caption = 'Interface (IP)'
end
object AutoStartCheckBox: TCheckBox
Left = 9
Top = 12
Width = 144
Height = 25
Left = 7
Top = 10
Width = 117
Height = 20
Hint = 'Automatically start Web server'
Caption = 'Auto Startup'
ParentShowHint = False
......@@ -72,9 +73,9 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 0
end
object MaxClientsEdit: TEdit
Left = 105
Top = 106
Width = 48
Left = 85
Top = 86
Width = 39
Height = 24
Hint = 'Maximum number of simultaneous clients (default=10)'
ParentShowHint = False
......@@ -82,9 +83,9 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 4
end
object MaxInactivityEdit: TEdit
Left = 105
Top = 138
Width = 48
Left = 85
Top = 112
Width = 39
Height = 24
Hint =
'Maximum number of seconds of inactivity before disconnect (defau' +
......@@ -94,9 +95,9 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 5
end
object PortEdit: TEdit
Left = 105
Top = 74
Width = 48
Left = 85
Top = 60
Width = 39
Height = 24
Hint = 'TCP port to use for HTTP connections (default=80)'
ParentShowHint = False
......@@ -104,9 +105,9 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 3
end
object NetworkInterfaceEdit: TEdit
Left = 105
Top = 42
Width = 192
Left = 85
Top = 34
Width = 156
Height = 24
Hint = 'Your network adapter'#39's static IP address or blank for <ANY>'
ParentShowHint = False
......@@ -114,10 +115,10 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 2
end
object HostnameCheckBox: TCheckBox
Left = 182
Top = 12
Width = 147
Height = 25
Left = 148
Top = 10
Width = 119
Height = 20
Hint = 'Automatically lookup client'#39's hostnames via DNS'
Caption = 'Hostname Lookup'
ParentShowHint = False
......@@ -129,82 +130,88 @@ object WebCfgDlg: TWebCfgDlg
Caption = 'HTTP'
ImageIndex = 3
object HtmlDirLabel: TLabel
Left = 9
Top = 12
Width = 96
Height = 25
Left = 7
Top = 10
Width = 78
Height = 20
AutoSize = False
Caption = 'HTML Root'
end
object ErrorSubDirLabel: TLabel
Left = 9
Top = 44
Width = 96
Height = 25
Left = 7
Top = 36
Width = 78
Height = 20
AutoSize = False
Caption = 'Error SubDir'
end
object ServerSideJsExtLabel: TLabel
Left = 9
Top = 108
Width = 176
Height = 25
Left = 7
Top = 88
Width = 143
Height = 20
AutoSize = False
Caption = 'Server-Side JS File Extension'
end
object EmbeddedJsExtLabel: TLabel
Left = 9
Top = 76
Width = 176
Height = 25
Left = 7
Top = 62
Width = 143
Height = 20
AutoSize = False
Caption = 'Embedded JS File Extension'
Enabled = False
end
object HtmlRootEdit: TEdit
Left = 105
Top = 12
Width = 192
Height = 24
Left = 85
Top = 10
Width = 156
Height = 21
Hint = 'Root directory for HTML files (off of CTRL directory)'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object ErrorSubDirEdit: TEdit
Left = 105
Top = 44
Width = 192
Height = 24
Left = 85
Top = 36
Width = 156
Height = 21
Hint = 'Error sub-directory (off of HTML root)'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object ServerSideJsExtEdit: TEdit
Left = 192
Top = 108
Width = 105
Height = 24
Hint = 'File extension that denotes server-side JavaScript files (e.g. ".ssjs")'
Left = 156
Top = 88
Width = 85
Height = 21
Hint =
'File extension that denotes server-side JavaScript files (e.g. "' +
'.ssjs")'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object EmbeddedJsExtEdit: TEdit
Left = 192
Top = 76
Width = 105
Height = 24
Hint = 'File extension that denotes embedded JavaScript files (e.g. ".bbs")'
Left = 156
Top = 62
Width = 85
Height = 21
Hint =
'File extension that denotes embedded JavaScript files (e.g. ".bb' +
's")'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object VirtualHostsCheckBox: TCheckBox
Left = 9
Top = 140
Width = 104
Height = 24
Left = 7
Top = 114
Width = 85
Height = 19
Hint = 'Support virtual host directories off the HTML root directory'
Caption = 'Virtual Hosts'
ParentShowHint = False
......@@ -216,18 +223,18 @@ object WebCfgDlg: TWebCfgDlg
Caption = 'Log'
ImageIndex = 1
object LogBaseLabel: TLabel
Left = 8
Top = 108
Width = 97
Height = 25
Left = 7
Top = 88
Width = 78
Height = 20
AutoSize = False
Caption = 'Base Filename'
end
object DebugTxCheckBox: TCheckBox
Left = 9
Top = 42
Width = 192
Height = 24
Left = 7
Top = 34
Width = 156
Height = 20
Hint = 'Log (debug) transmitted HTTP responses'
Caption = 'Transmitted Responses'
ParentShowHint = False
......@@ -235,10 +242,10 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 1
end
object DebugRxCheckBox: TCheckBox
Left = 9
Top = 12
Width = 192
Height = 24
Left = 7
Top = 10
Width = 156
Height = 19
Hint = 'Log (debug) all received HTTP requests'
Caption = 'Received Requests'
ParentShowHint = False
......@@ -246,10 +253,10 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 0
end
object AccessLogCheckBox: TCheckBox
Left = 9
Top = 72
Width = 192
Height = 24
Left = 7
Top = 59
Width = 156
Height = 19
Hint = 'Create HTTP access log files'
Caption = 'Create Access Log Files'
ParentShowHint = False
......@@ -258,9 +265,9 @@ object WebCfgDlg: TWebCfgDlg
OnClick = AccessLogCheckBoxClick
end
object LogBaseNameEdit: TEdit
Left = 105
Top = 108
Width = 192
Left = 85
Top = 88
Width = 156
Height = 24
Hint = 'Base directory and filename for HTTP access log files'
ParentShowHint = False
......@@ -272,33 +279,33 @@ object WebCfgDlg: TWebCfgDlg
Caption = 'Sound'
ImageIndex = 2
object AnswerSoundLabel: TLabel
Left = 9
Top = 12
Width = 80
Height = 25
Left = 7
Top = 10
Width = 65
Height = 20
AutoSize = False
Caption = 'Connect'
end
object HangupSoundLabel: TLabel
Left = 9
Top = 44
Width = 80
Height = 25
Left = 7
Top = 36
Width = 65
Height = 20
AutoSize = False
Caption = 'Disconnect'
end
object HackAttemptSoundLabel: TLabel
Left = 9
Top = 76
Width = 80
Height = 25
Left = 7
Top = 62
Width = 65
Height = 20
AutoSize = False
Caption = 'Hack Attempt'
end
object AnswerSoundEdit: TEdit
Left = 105
Top = 12
Width = 192
Left = 85
Top = 10
Width = 156
Height = 24
Hint = 'Sound file to play when users connect'
ParentShowHint = False
......@@ -306,18 +313,18 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 0
end
object AnswerSoundButton: TButton
Left = 304
Top = 12
Width = 25
Height = 26
Left = 247
Top = 10
Width = 20
Height = 21
Caption = '...'
TabOrder = 1
OnClick = AnswerSoundButtonClick
end
object HangupSoundEdit: TEdit
Left = 105
Top = 44
Width = 192
Left = 85
Top = 36
Width = 156
Height = 24
Hint = 'Sound file to play when users disconnect'
ParentShowHint = False
......@@ -325,18 +332,18 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 2
end
object HangupSoundButton: TButton
Left = 304
Top = 44
Width = 25
Height = 26
Left = 247
Top = 36
Width = 20
Height = 21
Caption = '...'
TabOrder = 3
OnClick = HangupSoundButtonClick
end
object HackAttemptSoundEdit: TEdit
Left = 105
Top = 76
Width = 192
Left = 85
Top = 62
Width = 156
Height = 24
Hint = 'Sound file to play when users disconnect'
ParentShowHint = False
......@@ -344,10 +351,10 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 4
end
object HackAttemptSoundButton: TButton
Left = 304
Top = 76
Width = 25
Height = 26
Left = 247
Top = 62
Width = 20
Height = 21
Caption = '...'
TabOrder = 5
OnClick = HackAttemptSoundButtonClick
......@@ -355,10 +362,10 @@ object WebCfgDlg: TWebCfgDlg
end
end
object OKBtn: TButton
Left = 25
Top = 260
Width = 93
Height = 30
Left = 20
Top = 211
Width = 76
Height = 25
Anchors = [akLeft, akBottom]
Caption = 'OK'
Default = True
......@@ -367,10 +374,10 @@ object WebCfgDlg: TWebCfgDlg
OnClick = OKBtnClick
end
object CancelBtn: TButton
Left = 128
Top = 260
Width = 92
Height = 30
Left = 104
Top = 211
Width = 75
Height = 25
Anchors = [akLeft, akBottom]
Cancel = True
Caption = 'Cancel'
......@@ -378,10 +385,10 @@ object WebCfgDlg: TWebCfgDlg
TabOrder = 2
end
object ApplyBtn: TButton
Left = 233
Top = 260
Width = 93
Height = 30
Left = 189
Top = 211
Width = 76
Height = 25
Anchors = [akLeft, akBottom]
Cancel = True
Caption = 'Apply'
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment