From 3c41fbda03ec85d378176f07545cb7a8a1ee7b87 Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Mon, 9 Mar 2015 17:44:23 +0000
Subject: [PATCH] TAChart: Fix incorrect brush color of SVGDrawer (issue
 #0027633)

git-svn-id: trunk@48179 -
---
 components/tachart/tadrawersvg.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/tachart/tadrawersvg.pas b/components/tachart/tadrawersvg.pas
index d0c9112137..431ced3ae6 100644
--- a/components/tachart/tadrawersvg.pas
+++ b/components/tachart/tadrawersvg.pas
@@ -384,7 +384,10 @@ end;
 
 procedure TSVGDrawer.SetBrush(ABrush: TFPCustomBrush);
 begin
-  FBrushColor := FPColorOrMono(ABrush.FPColor);
+  if ABrush is TBrush then
+    FBrushColor := FChartColorToFPColorFunc(ColorOrMono(TBrush(ABrush).Color))
+  else
+    FBrushColor := FPColorOrMono(ABrush.FPColor);
   FBrushStyle := ABrush.Style;
 end;