--- sbbs/src/sbbs3/ctrl/servicesformunit.dfm	2018/04/24 16:41:24	1.1
+++ sbbs/src/sbbs3/ctrl/servicesformunit.dfm	2018/04/24 16:44:06	1.1.1.2
@@ -1,8 +1,8 @@
 object ServicesForm: TServicesForm
-  Left = 122
-  Top = 297
-  Width = 870
-  Height = 640
+  Left = 387
+  Top = 289
+  Width = 737
+  Height = 208
   Caption = 'Services'
   Color = clBtnFace
   DragKind = dkDock
@@ -15,20 +15,10 @@ object ServicesForm: TServicesForm
   OnHide = FormHide
   PixelsPerInch = 120
   TextHeight = 16
-  object Log: TMemo
-    Left = 0
-    Top = 25
-    Width = 862
-    Height = 582
-    Align = alClient
-    ReadOnly = True
-    ScrollBars = ssBoth
-    TabOrder = 0
-  end
   object ToolBar: TToolBar
     Left = 0
     Top = 0
-    Width = 862
+    Width = 729
     Height = 25
     Caption = 'ToolBar'
     EdgeBorders = []
@@ -36,7 +26,7 @@ object ServicesForm: TServicesForm
     Images = MainForm.ImageList
     ParentShowHint = False
     ShowHint = True
-    TabOrder = 1
+    TabOrder = 0
     object StartButton: TToolButton
       Left = 0
       Top = 0
@@ -45,21 +35,26 @@ object ServicesForm: TServicesForm
       ParentShowHint = False
       ShowHint = True
     end
-    object StopButton: TToolButton
+    object LogPauseButton: TToolButton
       Left = 23
       Top = 0
+      Action = MainForm.ServicesPause
+    end
+    object StopButton: TToolButton
+      Left = 46
+      Top = 0
       Action = MainForm.ServicesStop
       Grouped = True
       ParentShowHint = False
       ShowHint = True
     end
     object RecycleButton: TToolButton
-      Left = 46
+      Left = 69
       Top = 0
       Action = MainForm.ServicesRecycle
     end
     object ToolButton1: TToolButton
-      Left = 69
+      Left = 92
       Top = 0
       Width = 8
       Caption = 'ToolButton1'
@@ -67,14 +62,14 @@ object ServicesForm: TServicesForm
       Style = tbsSeparator
     end
     object ConfigureButton: TToolButton
-      Left = 77
+      Left = 100
       Top = 0
       Action = MainForm.ServicesConfigure
       ParentShowHint = False
       ShowHint = True
     end
     object ToolButton2: TToolButton
-      Left = 100
+      Left = 123
       Top = 0
       Width = 8
       Caption = 'ToolButton2'
@@ -82,7 +77,7 @@ object ServicesForm: TServicesForm
       Style = tbsSeparator
     end
     object Status: TStaticText
-      Left = 108
+      Left = 131
       Top = 0
       Width = 150
       Height = 22
@@ -93,5 +88,54 @@ object ServicesForm: TServicesForm
       Caption = 'Down'
       TabOrder = 0
     end
+    object ToolButton3: TToolButton
+      Left = 281
+      Top = 0
+      Width = 8
+      Caption = 'ToolButton3'
+      ImageIndex = 6
+      Style = tbsSeparator
+    end
+    object LogLevelText: TStaticText
+      Left = 289
+      Top = 0
+      Width = 75
+      Height = 22
+      Hint = 'Log Level'
+      AutoSize = False
+      BorderStyle = sbsSunken
+      TabOrder = 1
+    end
+    object LogLevelUpDown: TUpDown
+      Left = 364
+      Top = 0
+      Width = 16
+      Height = 22
+      Hint = 'Log Level Adjustment'
+      Min = 0
+      Max = 7
+      Position = 0
+      TabOrder = 2
+      Wrap = False
+      OnChangingEx = LogLevelUpDownChangingEx
+    end
+  end
+  object Log: TRichEdit
+    Left = 0
+    Top = 25
+    Width = 729
+    Height = 150
+    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