Added toolbar with start/stop button and status.

src/sbbs3/ctrl/ServicesFormUnit.dfm

 object ServicesForm: TServicesForm
-  Left = 276
-  Top = 318
+  Left = 458
+  Top = 334
   Width = 870
   Height = 640
   Caption = 'Services'
@@ -16,12 +16,77 @@ object ServicesForm: TServicesForm
   TextHeight = 16
   object Log: TMemo
     Left = 0
-    Top = 0
+    Top = 25
     Width = 862
-    Height = 608
+    Height = 583
     Align = alClient
     ReadOnly = True
     ScrollBars = ssBoth
     TabOrder = 0
   end
+  object ToolBar: TToolBar
+    Left = 0
+    Top = 0
+    Width = 862
+    Height = 25
+    Caption = 'ToolBar'
+    EdgeBorders = []
+    Flat = True
+    Images = MainForm.ImageList
+    ParentShowHint = False
+    ShowHint = True
+    TabOrder = 1
+    object StartButton: TToolButton
+      Left = 0
+      Top = 0
+      Action = MainForm.ServicesStart
+      Grouped = True
+      ParentShowHint = False
+      ShowHint = True
+    end
+    object StopButton: TToolButton
+      Left = 23
+      Top = 0
+      Action = MainForm.ServicesStop
+      Grouped = True
+      ParentShowHint = False
+      ShowHint = True
+    end
+    object ToolButton1: TToolButton
+      Left = 46
+      Top = 0
+      Width = 8
+      Caption = 'ToolButton1'
+      ImageIndex = 1
+      Style = tbsSeparator
+    end
+    object ConfigureButton: TToolButton
+      Left = 54
+      Top = 0
+      Hint = 'Configure Services'
+      ImageIndex = 4
+      ParentShowHint = False
+      ShowHint = True
+    end
+    object ToolButton2: TToolButton
+      Left = 77
+      Top = 0
+      Width = 8
+      Caption = 'ToolButton2'
+      ImageIndex = 5
+      Style = tbsSeparator
+    end
+    object Status: TStaticText
+      Left = 85
+      Top = 0
+      Width = 150
+      Height = 22
+      Hint = 'Services Status'
+      Align = alClient
+      AutoSize = False
+      BorderStyle = sbsSunken
+      Caption = 'Status'
+      TabOrder = 0
+    end
+  end
 end

src/sbbs3/ctrl/ServicesFormUnit.h

@@ -7,11 +7,20 @@
 #include <Controls.hpp>
 #include <StdCtrls.hpp>
 #include <Forms.hpp>
+#include <ComCtrls.hpp>
+#include <ToolWin.hpp>
 //---------------------------------------------------------------------------
 class TServicesForm : public TForm
 {
 __published:	// IDE-managed Components
     TMemo *Log;
+    TToolBar *ToolBar;
+    TToolButton *StartButton;
+    TToolButton *StopButton;
+    TToolButton *ToolButton1;
+    TToolButton *ConfigureButton;
+    TToolButton *ToolButton2;
+    TStaticText *Status;
 private:	// User declarations
 public:		// User declarations
     __fastcall TServicesForm(TComponent* Owner);