--- sbbs/src/sbbs3/ctrl/mailformunit.dfm	2018/04/24 16:41:24	1.1
+++ sbbs/src/sbbs3/ctrl/mailformunit.dfm	2018/04/24 16:44:12	1.1.1.2
@@ -1,7 +1,7 @@
 object MailForm: TMailForm
-  Left = 670
-  Top = 170
-  Width = 350
+  Left = 735
+  Top = 317
+  Width = 480
   Height = 150
   Caption = 'Mail Server'
   Color = clBtnFace
@@ -21,7 +21,7 @@ object MailForm: TMailForm
   object ToolBar: TToolBar
     Left = 0
     Top = 0
-    Width = 342
+    Width = 472
     Height = 25
     Caption = 'ToolBar'
     EdgeBorders = []
@@ -37,20 +37,26 @@ object MailForm: TMailForm
       ParentShowHint = False
       ShowHint = True
     end
-    object StopButton: TToolButton
+    object LogPauseButton: TToolButton
       Left = 23
       Top = 0
+      Action = MainForm.MailPause
+      Style = tbsCheck
+    end
+    object StopButton: TToolButton
+      Left = 46
+      Top = 0
       Action = MainForm.MailStop
       ParentShowHint = False
       ShowHint = True
     end
     object RecycleButton: TToolButton
-      Left = 46
+      Left = 69
       Top = 0
       Action = MainForm.MailRecycle
     end
     object ToolButton4: TToolButton
-      Left = 69
+      Left = 92
       Top = 0
       Width = 8
       Caption = 'ToolButton4'
@@ -58,12 +64,12 @@ object MailForm: TMailForm
       Style = tbsSeparator
     end
     object ConfigureButton: TToolButton
-      Left = 77
+      Left = 100
       Top = 0
       Action = MainForm.MailConfigure
     end
     object ToolButton6: TToolButton
-      Left = 100
+      Left = 123
       Top = 0
       Width = 8
       Caption = 'ToolButton6'
@@ -71,7 +77,7 @@ object MailForm: TMailForm
       Style = tbsSeparator
     end
     object Status: TStaticText
-      Left = 108
+      Left = 131
       Top = 0
       Width = 150
       Height = 22
@@ -82,7 +88,7 @@ object MailForm: TMailForm
       TabOrder = 0
     end
     object ToolButton1: TToolButton
-      Left = 258
+      Left = 281
       Top = 0
       Width = 8
       Caption = 'ToolButton1'
@@ -90,7 +96,7 @@ object MailForm: TMailForm
       Style = tbsSeparator
     end
     object ProgressBar: TProgressBar
-      Left = 266
+      Left = 289
       Top = 0
       Width = 75
       Height = 22
@@ -101,15 +107,54 @@ object MailForm: TMailForm
       Step = 1
       TabOrder = 1
     end
+    object ToolButton2: TToolButton
+      Left = 364
+      Top = 0
+      Width = 8
+      Caption = 'ToolButton2'
+      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 = 472
     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