diff --git a/src/sbbs3/ctrl/ServicesFormUnit.dfm b/src/sbbs3/ctrl/ServicesFormUnit.dfm index 352f722f45f435d7a028ffd3b07967828607c0dc..eb9e25ae5d068cb523e8a7c5791e5908d981964a 100644 --- a/src/sbbs3/ctrl/ServicesFormUnit.dfm +++ b/src/sbbs3/ctrl/ServicesFormUnit.dfm @@ -1,6 +1,6 @@ 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 diff --git a/src/sbbs3/ctrl/ServicesFormUnit.h b/src/sbbs3/ctrl/ServicesFormUnit.h index e05ba9d953c08ad77f369b34d6583ebe761476dd..1017e558060874515361ee2e724102a66241a7c5 100644 --- a/src/sbbs3/ctrl/ServicesFormUnit.h +++ b/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);