paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 04:40:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix incorrect brush color of SVGDrawer (issue #0027633)

Browse Source 
git-svn-id: trunk@48179 -
This commit is contained in:
wp 2015-03-09 17:44:23 +00:00
parent 6c4845ba6e
commit 3c41fbda03
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tadrawersvg.pas
View File

@ -384,7 +384,10 @@ end;
procedure TSVGDrawer.SetBrush(ABrush: TFPCustomBrush); procedure TSVGDrawer.SetBrush(ABrush: TFPCustomBrush);
begin begin
FBrushColor := FPColorOrMono(ABrush.FPColor); if ABrush is TBrush then
FBrushColor := FChartColorToFPColorFunc(ColorOrMono(TBrush(ABrush).Color))
else
FBrushColor := FPColorOrMono(ABrush.FPColor);
FBrushStyle := ABrush.Style; FBrushStyle := ABrush.Style;
end; end;