Added spinedit control

bgracustomdrawn.pas

@@ -31,6 +31,10 @@ type
     constructor Create(AOwner: TComponent); override;
   end;
 
+  TBCDSpinEdit = class(TCDSpinEdit)
+
+  end;
+
   { TBGRADrawer }
 
   TBGRADrawer = class(TCDDrawerCommon)
@@ -70,7 +74,7 @@ implementation
 procedure Register;
 begin
   RegisterComponents('BGRA Custom Drawn', [TBCDButton, TBCDEdit,
-    TBCDStaticText, TBCDProgressBar]);
+    TBCDStaticText, TBCDProgressBar, TBCDSpinEdit]);
 end;
 
 { TBCDProgressBar }

test/test_bgracustomdrawn/umain.lfm

@@ -143,6 +143,20 @@ object frmMain: TfrmMain
       Smooth = False
       Style = pbstNormal
     end
+    object BCDSpinEdit1: TBCDSpinEdit
+      Left = 200
+      Height = 25
+      Top = 8
+      Width = 80
+      DrawStyle = dsDefault
+      Lines.Strings = (
+        '1'
+      )
+      Increment = 1
+      MinValue = 0
+      MaxValue = 100
+      Value = 1
+    end
   end
   object Timer1: TTimer
     Interval = 100

test/test_bgracustomdrawn/umain.pas

@@ -18,6 +18,7 @@ type
     BCDEdit1: TBCDEdit;
     BCDEdit2: TBCDEdit;
     BCDProgressBar1: TBCDProgressBar;
+    BCDSpinEdit1: TBCDSpinEdit;
     BCDStaticText1: TBCDStaticText;
     BCDStaticText2: TBCDStaticText;
     BCPanel1: TBCPanel;