--- sbbs/src/sbbs3/ctrl/ftpcfgdlgunit.dfm	2018/04/24 16:41:24	1.1
+++ sbbs/src/sbbs3/ctrl/ftpcfgdlgunit.dfm	2018/04/24 16:44:11	1.1.1.2
@@ -3,73 +3,73 @@ object FtpCfgDlg: TFtpCfgDlg
   Top = 375
   BorderStyle = bsDialog
   Caption = 'FTP Server Configuration'
-  ClientHeight = 245
-  ClientWidth = 286
+  ClientHeight = 302
+  ClientWidth = 352
   Color = clBtnFace
   ParentFont = True
   OldCreateOrder = True
   Position = poScreenCenter
   OnShow = FormShow
   DesignSize = (
-    286
-    245)
-  PixelsPerInch = 96
-  TextHeight = 13
+    352
+    302)
+  PixelsPerInch = 120
+  TextHeight = 16
   object PageControl: TPageControl
-    Left = 3
-    Top = 3
-    Width = 278
-    Height = 199
+    Left = 4
+    Top = 4
+    Width = 342
+    Height = 245
     ActivePage = PasvTabSheet
     TabIndex = 1
     TabOrder = 0
     object GeneralTabSheet: TTabSheet
       Caption = 'General'
       object MaxClientesLabel: TLabel
-        Left = 7
-        Top = 86
-        Width = 78
-        Height = 20
+        Left = 9
+        Top = 106
+        Width = 96
+        Height = 24
         AutoSize = False
         Caption = 'Max Clients'
       end
       object MaxInactivityLabel: TLabel
-        Left = 7
-        Top = 112
-        Width = 78
-        Height = 20
+        Left = 9
+        Top = 138
+        Width = 96
+        Height = 24
         AutoSize = False
         Caption = 'Max Inactivity'
       end
       object PortLabel: TLabel
-        Left = 7
-        Top = 60
-        Width = 78
-        Height = 20
+        Left = 9
+        Top = 74
+        Width = 96
+        Height = 24
         AutoSize = False
         Caption = 'Control Port'
       end
       object InterfaceLabel: TLabel
-        Left = 7
-        Top = 34
-        Width = 78
-        Height = 20
+        Left = 9
+        Top = 42
+        Width = 96
+        Height = 24
         AutoSize = False
         Caption = 'Interface (IP)'
       end
       object QwkTimeoutLabel: TLabel
-        Left = 7
-        Top = 138
-        Width = 78
-        Height = 20
+        Left = 9
+        Top = 170
+        Width = 96
+        Height = 24
         AutoSize = False
         Caption = 'QWK Timeout'
       end
       object AutoStartCheckBox: TCheckBox
-        Left = 7
-        Top = 10
-        Width = 117
-        Height = 20
+        Left = 9
+        Top = 12
+        Width = 144
+        Height = 25
         Hint = 'Automatically start FTP server'
         Caption = 'Auto Startup'
         ParentShowHint = False
@@ -77,9 +77,9 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 0
       end
       object MaxClientsEdit: TEdit
-        Left = 85
-        Top = 86
-        Width = 39
+        Left = 105
+        Top = 106
+        Width = 48
         Height = 21
         Hint = 'Maximum number of simultaneous clients (default=10)'
         ParentShowHint = False
@@ -87,9 +87,9 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 4
       end
       object MaxInactivityEdit: TEdit
-        Left = 85
-        Top = 112
-        Width = 39
+        Left = 105
+        Top = 138
+        Width = 48
         Height = 21
         Hint = 
           'Maximum number of seconds of inactivity before disconnect (defau' +
@@ -99,9 +99,9 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 5
       end
       object PortEdit: TEdit
-        Left = 85
-        Top = 60
-        Width = 39
+        Left = 105
+        Top = 74
+        Width = 48
         Height = 21
         Hint = 'TCP port to use for FTP control connections (default=21)'
         ParentShowHint = False
@@ -109,9 +109,9 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 3
       end
       object NetworkInterfaceEdit: TEdit
-        Left = 85
-        Top = 34
-        Width = 156
+        Left = 105
+        Top = 42
+        Width = 192
         Height = 21
         Hint = 'Your network adapter'#39's static IP address or blank for <ANY>'
         ParentShowHint = False
@@ -119,10 +119,10 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 2
       end
       object AllowQWKCheckBox: TCheckBox
-        Left = 148
-        Top = 60
-        Width = 119
-        Height = 20
+        Left = 182
+        Top = 74
+        Width = 147
+        Height = 24
         Hint = 'Allow QWK packet transfers'
         Caption = 'QWK Packets'
         ParentShowHint = False
@@ -130,10 +130,10 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 7
       end
       object LocalFileSysCheckBox: TCheckBox
-        Left = 148
-        Top = 86
-        Width = 119
-        Height = 20
+        Left = 182
+        Top = 106
+        Width = 147
+        Height = 24
         Hint = 
           'Allow sysop access to local file system (requires sysop password' +
           ')'
@@ -143,10 +143,10 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 8
       end
       object HostnameCheckBox: TCheckBox
-        Left = 148
-        Top = 10
-        Width = 119
-        Height = 20
+        Left = 182
+        Top = 12
+        Width = 147
+        Height = 25
         Hint = 'Automatically lookup client'#39's hostnames via DNS'
         Caption = 'Hostname Lookup'
         ParentShowHint = False
@@ -154,10 +154,10 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 1
       end
       object DirFilesCheckBox: TCheckBox
-        Left = 148
-        Top = 110
-        Width = 125
-        Height = 20
+        Left = 182
+        Top = 135
+        Width = 154
+        Height = 25
         Hint = 'Allow users access to files in directory, but not in database'
         Caption = 'Directory File Access'
         ParentShowHint = False
@@ -165,9 +165,9 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 9
       end
       object QwkTimeoutEdit: TEdit
-        Left = 85
-        Top = 138
-        Width = 39
+        Left = 105
+        Top = 170
+        Width = 48
         Height = 21
         Hint = 'Maximum number of seconds before QWK packet creation timeout'
         ParentShowHint = False
@@ -179,74 +179,74 @@ object FtpCfgDlg: TFtpCfgDlg
       Caption = 'Passive'
       ImageIndex = 4
       object PasvIpLabel: TLabel
-        Left = 7
-        Top = 10
-        Width = 78
-        Height = 20
+        Left = 9
+        Top = 12
+        Width = 96
+        Height = 25
         AutoSize = False
         Caption = 'IP Address'
       end
       object PasvPortLabel: TLabel
-        Left = 7
-        Top = 36
-        Width = 78
-        Height = 20
+        Left = 9
+        Top = 44
+        Width = 96
+        Height = 25
         AutoSize = False
         Caption = 'Port Range'
       end
       object PasvPortThroughLabel: TLabel
-        Left = 124
-        Top = 36
-        Width = 13
-        Height = 20
+        Left = 153
+        Top = 44
+        Width = 16
+        Height = 25
         Alignment = taCenter
         AutoSize = False
         Caption = '-'
       end
       object PasvIpAddrEdit: TEdit
-        Left = 85
-        Top = 10
-        Width = 92
-        Height = 21
+        Left = 105
+        Top = 12
+        Width = 113
+        Height = 24
         Hint = 'Your static public IP address or blank for <unspecified>'
         ParentShowHint = False
         ShowHint = True
         TabOrder = 0
       end
       object PasvPortLowEdit: TEdit
-        Left = 85
-        Top = 36
-        Width = 39
-        Height = 21
+        Left = 105
+        Top = 44
+        Width = 48
+        Height = 24
         Hint = 
           'Lowest TCP port to use for passive FTP data connections (default' +
           '=1024)'
         ParentShowHint = False
         ShowHint = True
-        TabOrder = 1
+        TabOrder = 2
       end
       object PasvPortHighEdit: TEdit
-        Left = 137
-        Top = 36
-        Width = 39
-        Height = 21
+        Left = 169
+        Top = 44
+        Width = 48
+        Height = 24
         Hint = 
           'Highest TCP port to use for passive FTP data connections (defaul' +
           't=65535)'
         ParentShowHint = False
         ShowHint = True
-        TabOrder = 2
+        TabOrder = 3
       end
       object PasvIpLookupCheckBox: TCheckBox
-        Left = 184
-        Top = 8
-        Width = 73
-        Height = 17
+        Left = 226
+        Top = 10
+        Width = 90
+        Height = 21
         Hint = 'Get passive IP address from public hostname (dynamic IP)'
         Caption = 'Lookup'
         ParentShowHint = False
         ShowHint = True
-        TabOrder = 3
+        TabOrder = 1
         OnClick = PasvIpLookupCheckBoxClick
       end
     end
@@ -254,18 +254,18 @@ object FtpCfgDlg: TFtpCfgDlg
       Caption = 'Index'
       ImageIndex = 3
       object HtmlJavaScriptLabel: TLabel
-        Left = 7
-        Top = 62
-        Width = 65
-        Height = 20
+        Left = 9
+        Top = 76
+        Width = 80
+        Height = 25
         AutoSize = False
         Caption = 'JavaScript'
       end
       object AutoIndexCheckBox: TCheckBox
-        Left = 7
-        Top = 10
-        Width = 78
-        Height = 19
+        Left = 9
+        Top = 12
+        Width = 96
+        Height = 24
         Hint = 'Automatically generate index files for file descriptions'
         Caption = 'ASCII'
         ParentShowHint = False
@@ -274,9 +274,9 @@ object FtpCfgDlg: TFtpCfgDlg
         OnClick = AutoIndexCheckBoxClick
       end
       object IndexFileNameEdit: TEdit
-        Left = 85
-        Top = 10
-        Width = 156
+        Left = 105
+        Top = 12
+        Width = 192
         Height = 21
         Hint = 'Name of ASCII index file (default=00index)'
         ParentShowHint = False
@@ -284,10 +284,10 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 1
       end
       object HtmlIndexCheckBox: TCheckBox
-        Left = 7
-        Top = 36
-        Width = 78
-        Height = 19
+        Left = 9
+        Top = 44
+        Width = 96
+        Height = 24
         Hint = 'Automatically generate HTML index files for file descriptions'
         Caption = 'HTML'
         ParentShowHint = False
@@ -296,9 +296,9 @@ object FtpCfgDlg: TFtpCfgDlg
         OnClick = HtmlIndexCheckBoxClick
       end
       object HtmlFileNameEdit: TEdit
-        Left = 85
-        Top = 36
-        Width = 156
+        Left = 105
+        Top = 44
+        Width = 192
         Height = 21
         Hint = 'Name of HTML index file (default=00index.html)'
         ParentShowHint = False
@@ -306,9 +306,9 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 3
       end
       object HtmlJavaScriptEdit: TEdit
-        Left = 85
-        Top = 62
-        Width = 156
+        Left = 105
+        Top = 76
+        Width = 192
         Height = 21
         Hint = 'JavaScript filename to execute to generate HTML index file'
         ParentShowHint = False
@@ -320,10 +320,10 @@ object FtpCfgDlg: TFtpCfgDlg
       Caption = 'Log'
       ImageIndex = 1
       object DebugTxCheckBox: TCheckBox
-        Left = 7
-        Top = 34
-        Width = 156
-        Height = 20
+        Left = 9
+        Top = 42
+        Width = 192
+        Height = 24
         Hint = 'Log (debug) transmitted FTP responses'
         Caption = 'Transmitted Responses'
         ParentShowHint = False
@@ -331,10 +331,10 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 1
       end
       object CmdLogCheckBox: TCheckBox
-        Left = 7
-        Top = 10
-        Width = 156
-        Height = 19
+        Left = 9
+        Top = 12
+        Width = 192
+        Height = 24
         Hint = 'Log (debug) all received FTP commands'
         Caption = 'Received Commands'
         ParentShowHint = False
@@ -342,10 +342,10 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 0
       end
       object DebugDataCheckBox: TCheckBox
-        Left = 7
-        Top = 59
-        Width = 156
-        Height = 19
+        Left = 9
+        Top = 73
+        Width = 192
+        Height = 23
         Hint = 'Log (debug) data channel operations'
         Caption = 'Data Channel Activity'
         ParentShowHint = False
@@ -353,10 +353,10 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 2
       end
       object LogFileCheckBox: TCheckBox
-        Left = 7
-        Top = 83
-        Width = 117
-        Height = 20
+        Left = 9
+        Top = 102
+        Width = 144
+        Height = 25
         Hint = 'Save log entries to a file (in your DATA directory)'
         Caption = 'Log to Disk'
         ParentShowHint = False
@@ -368,33 +368,33 @@ object FtpCfgDlg: TFtpCfgDlg
       Caption = 'Sound'
       ImageIndex = 2
       object AnswerSoundLabel: TLabel
-        Left = 7
-        Top = 10
-        Width = 65
-        Height = 20
+        Left = 9
+        Top = 12
+        Width = 80
+        Height = 25
         AutoSize = False
         Caption = 'Connect'
       end
       object HangupSoundLabel: TLabel
-        Left = 7
-        Top = 36
-        Width = 65
-        Height = 20
+        Left = 9
+        Top = 44
+        Width = 80
+        Height = 25
         AutoSize = False
         Caption = 'Disconnect'
       end
       object HackAttemptSoundLabel: TLabel
-        Left = 7
-        Top = 62
-        Width = 65
-        Height = 20
+        Left = 9
+        Top = 76
+        Width = 80
+        Height = 25
         AutoSize = False
         Caption = 'Hack Attempt'
       end
       object AnswerSoundEdit: TEdit
-        Left = 85
-        Top = 10
-        Width = 156
+        Left = 105
+        Top = 12
+        Width = 192
         Height = 24
         Hint = 'Sound file to play when users connect'
         ParentShowHint = False
@@ -402,18 +402,18 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 0
       end
       object AnswerSoundButton: TButton
-        Left = 247
-        Top = 10
-        Width = 20
-        Height = 21
+        Left = 304
+        Top = 12
+        Width = 25
+        Height = 26
         Caption = '...'
         TabOrder = 1
         OnClick = AnswerSoundButtonClick
       end
       object HangupSoundEdit: TEdit
-        Left = 85
-        Top = 36
-        Width = 156
+        Left = 105
+        Top = 44
+        Width = 192
         Height = 24
         Hint = 'Sound file to play when users disconnect'
         ParentShowHint = False
@@ -421,18 +421,18 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 2
       end
       object HangupSoundButton: TButton
-        Left = 247
-        Top = 36
-        Width = 20
-        Height = 21
+        Left = 304
+        Top = 44
+        Width = 25
+        Height = 26
         Caption = '...'
         TabOrder = 3
         OnClick = HangupSoundButtonClick
       end
       object HackAttemptSoundEdit: TEdit
-        Left = 85
-        Top = 62
-        Width = 156
+        Left = 105
+        Top = 76
+        Width = 192
         Height = 24
         Hint = 'Sound file to play when users disconnect'
         ParentShowHint = False
@@ -440,10 +440,10 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 4
       end
       object HackAttemptSoundButton: TButton
-        Left = 247
-        Top = 62
-        Width = 20
-        Height = 21
+        Left = 304
+        Top = 76
+        Width = 25
+        Height = 26
         Caption = '...'
         TabOrder = 5
         OnClick = HackAttemptSoundButtonClick
@@ -451,10 +451,10 @@ object FtpCfgDlg: TFtpCfgDlg
     end
   end
   object OKBtn: TButton
-    Left = 20
-    Top = 211
-    Width = 76
-    Height = 25
+    Left = 25
+    Top = 260
+    Width = 93
+    Height = 30
     Anchors = [akLeft, akBottom]
     Caption = 'OK'
     Default = True
@@ -463,10 +463,10 @@ object FtpCfgDlg: TFtpCfgDlg
     OnClick = OKBtnClick
   end
   object CancelBtn: TButton
-    Left = 104
-    Top = 211
-    Width = 75
-    Height = 25
+    Left = 128
+    Top = 260
+    Width = 92
+    Height = 30
     Anchors = [akLeft, akBottom]
     Cancel = True
     Caption = 'Cancel'
@@ -474,10 +474,10 @@ object FtpCfgDlg: TFtpCfgDlg
     TabOrder = 2
   end
   object ApplyBtn: TButton
-    Left = 189
-    Top = 211
-    Width = 76
-    Height = 25
+    Left = 233
+    Top = 260
+    Width = 93
+    Height = 30
     Anchors = [akLeft, akBottom]
     Cancel = True
     Caption = 'Apply'