Fixed bug #76

bcradialprogressbar.pas

@@ -49,6 +49,7 @@ type
       {%H-}WithThemeSpace: boolean); override;
     procedure DrawControl; override;
     procedure RenderControl; override;
+    procedure SetColor(Value: TColor); override;
   public
     { Public declarations }
     constructor Create(AOwner: TComponent); override;
@@ -264,6 +265,13 @@ begin
   textBmp.Free;
 end;
 
+procedure TBCRadialProgressBar.SetColor(Value: TColor);
+begin
+  inherited SetColor(Value);
+  RenderControl;
+  Invalidate;
+end;
+
 constructor TBCRadialProgressBar.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);