Fix tab order.

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