From 23da684d9a22361666da6a2b9797ddf98de5df3d Mon Sep 17 00:00:00 2001
From: rswindell <>
Date: Sun, 25 Oct 2009 05:01:36 +0000
Subject: [PATCH] Fix tab order.
---
src/sbbs3/ctrl/WebCfgDlgUnit.dfm | 22 ++++++++++++----------
1 file changed, 12 insertions(+), 10 deletions(-)
diff --git a/src/sbbs3/ctrl/WebCfgDlgUnit.dfm b/src/sbbs3/ctrl/WebCfgDlgUnit.dfm
index d14e3c081b..6ab4876f7b 100644
--- a/src/sbbs3/ctrl/WebCfgDlgUnit.dfm
+++ b/src/sbbs3/ctrl/WebCfgDlgUnit.dfm
@@ -25,8 +25,8 @@ object WebCfgDlg: TWebCfgDlg
Top = 4
Width = 342
Height = 245
- ActivePage = CGITabSheet
- TabIndex = 2
+ ActivePage = HttpTabSheet
+ TabIndex = 1
TabOrder = 0
object GeneralTabSheet: TTabSheet
Caption = 'General'
@@ -162,6 +162,7 @@ object WebCfgDlg: TWebCfgDlg
AutoSize = False
Caption = 'Embedded JS File Extension'
Enabled = False
+ Visible = False
end
object IndexLabel: TLabel
Left = 9
@@ -201,7 +202,7 @@ object WebCfgDlg: TWebCfgDlg
'.ssjs")'
ParentShowHint = False
ShowHint = True
- TabOrder = 2
+ TabOrder = 3
end
object EmbeddedJsExtEdit: TEdit
Left = 192
@@ -214,7 +215,8 @@ object WebCfgDlg: TWebCfgDlg
Enabled = False
ParentShowHint = False
ShowHint = True
- TabOrder = 3
+ TabOrder = 4
+ Visible = False
end
object VirtualHostsCheckBox: TCheckBox
Left = 9
@@ -225,7 +227,7 @@ object WebCfgDlg: TWebCfgDlg
Caption = 'Virtual Hosts'
ParentShowHint = False
ShowHint = True
- TabOrder = 4
+ TabOrder = 5
end
object IndexFileEdit: TEdit
Left = 104
@@ -235,7 +237,7 @@ object WebCfgDlg: TWebCfgDlg
Hint =
'List of filenames that will be automatically sent to client (e.g' +
'. index.html)'
- TabOrder = 5
+ TabOrder = 2
end
end
object CGITabSheet: TTabSheet
@@ -281,7 +283,7 @@ object WebCfgDlg: TWebCfgDlg
Hint = 'CGI sub-directory (off of HTML root)'
ParentShowHint = False
ShowHint = True
- TabOrder = 0
+ TabOrder = 1
end
object CGICheckBox: TCheckBox
Left = 9
@@ -292,7 +294,7 @@ object WebCfgDlg: TWebCfgDlg
Caption = 'Enabled'
ParentShowHint = False
ShowHint = True
- TabOrder = 1
+ TabOrder = 0
OnClick = CGICheckBoxClick
end
object CGIExtEdit: TEdit
@@ -315,7 +317,7 @@ object WebCfgDlg: TWebCfgDlg
'lt=120)'
ParentShowHint = False
ShowHint = True
- TabOrder = 3
+ TabOrder = 4
end
object CGIContentEdit: TEdit
Left = 105
@@ -325,7 +327,7 @@ object WebCfgDlg: TWebCfgDlg
Hint = 'Default Content-Type for CGI output'
ParentShowHint = False
ShowHint = True
- TabOrder = 4
+ TabOrder = 3
end
object CGIEnvButton: TButton
Left = 8
--
GitLab