From 460bd0d0fac62bf8300105a28a755e965e59e896 Mon Sep 17 00:00:00 2001
From: rswindell <>
Date: Mon, 12 Nov 2001 15:12:48 +0000
Subject: [PATCH] Added toolbar with start/stop button and status.
---
src/sbbs3/ctrl/ServicesFormUnit.dfm | 73 +++++++++++++++++++++++++++--
src/sbbs3/ctrl/ServicesFormUnit.h | 9 ++++
2 files changed, 78 insertions(+), 4 deletions(-)
diff --git a/src/sbbs3/ctrl/ServicesFormUnit.dfm b/src/sbbs3/ctrl/ServicesFormUnit.dfm
index 352f722f45..eb9e25ae5d 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 e05ba9d953..1017e55806 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);
--
GitLab