--- sbbs/src/sbbs3/ctrl/ftpformunit.dfm	2018/04/24 16:41:24	1.1
+++ sbbs/src/sbbs3/ctrl/ftpformunit.dfm	2018/04/24 16:44:28	1.1.1.2
@@ -1,7 +1,7 @@
 object FtpForm: TFtpForm
-  Left = 856
-  Top = 689
-  Width = 350
+  Left = 446
+  Top = 759
+  Width = 525
   Height = 150
   Caption = 'FTP Server'
   Color = clBtnFace
@@ -19,7 +19,7 @@ object FtpForm: TFtpForm
   object ToolBar: TToolBar
     Left = 0
     Top = 0
-    Width = 342
+    Width = 517
     Height = 25
     Caption = 'ToolBar'
     EdgeBorders = []
@@ -34,18 +34,24 @@ object FtpForm: TFtpForm
       Top = 0
       Action = MainForm.FtpStart
     end
-    object StopButton: TToolButton
+    object LogPauseButton: TToolButton
       Left = 23
       Top = 0
+      Action = MainForm.FtpPause
+      Style = tbsCheck
+    end
+    object StopButton: TToolButton
+      Left = 46
+      Top = 0
       Action = MainForm.FtpStop
     end
     object RecycleButton: TToolButton
-      Left = 46
+      Left = 69
       Top = 0
       Action = MainForm.FtpRecycle
     end
     object ToolButton1: TToolButton
-      Left = 69
+      Left = 92
       Top = 0
       Width = 8
       Caption = 'ToolButton1'
@@ -53,12 +59,12 @@ object FtpForm: TFtpForm
       Style = tbsSeparator
     end
     object ConfigureButton: TToolButton
-      Left = 77
+      Left = 100
       Top = 0
       Action = MainForm.FtpConfigure
     end
     object ToolButton2: TToolButton
-      Left = 100
+      Left = 123
       Top = 0
       Width = 8
       Caption = 'ToolButton2'
@@ -66,7 +72,7 @@ object FtpForm: TFtpForm
       Style = tbsSeparator
     end
     object Status: TStaticText
-      Left = 108
+      Left = 131
       Top = 0
       Width = 150
       Height = 22
@@ -79,7 +85,7 @@ object FtpForm: TFtpForm
       TabOrder = 0
     end
     object ToolButton3: TToolButton
-      Left = 258
+      Left = 281
       Top = 0
       Width = 8
       Caption = 'ToolButton3'
@@ -87,7 +93,7 @@ object FtpForm: TFtpForm
       Style = tbsSeparator
     end
     object ProgressBar: TProgressBar
-      Left = 266
+      Left = 289
       Top = 0
       Width = 75
       Height = 22
@@ -98,15 +104,54 @@ object FtpForm: TFtpForm
       Step = 1
       TabOrder = 1
     end
+    object ToolButton4: TToolButton
+      Left = 364
+      Top = 0
+      Width = 8
+      Caption = 'ToolButton4'
+      ImageIndex = 7
+      Style = tbsSeparator
+    end
+    object LogLevelText: TStaticText
+      Left = 372
+      Top = 0
+      Width = 75
+      Height = 22
+      Hint = 'Log Level'
+      AutoSize = False
+      BorderStyle = sbsSunken
+      TabOrder = 2
+    end
+    object LogLevelUpDown: TUpDown
+      Left = 447
+      Top = 0
+      Width = 16
+      Height = 22
+      Hint = 'Log Level Adjustment'
+      Min = 0
+      Max = 7
+      Position = 0
+      TabOrder = 3
+      Wrap = False
+      OnChangingEx = LogLevelUpDownChangingEx
+    end
   end
-  object Log: TMemo
+  object Log: TRichEdit
     Left = 0
     Top = 25
-    Width = 342
+    Width = 517
     Height = 92
     Align = alClient
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'MS Sans Serif'
+    Font.Style = []
+    HideScrollBars = False
+    ParentFont = False
     ReadOnly = True
     ScrollBars = ssBoth
     TabOrder = 1
+    WordWrap = False
   end
 end