paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 12:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix incorrect conversion of TColor to TFPColor in the SVG and FPVectorial drawers.

Browse Source 
git-svn-id: trunk@48180 -
This commit is contained in:
wp 2015-03-09 18:04:40 +00:00
parent 3c41fbda03
commit c11e9325b6
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tadrawerfpvectorial.pas
View File

@ -273,6 +273,9 @@ end;
procedure TFPVectorialDrawer.SetBrush(ABrush: TFPCustomBrush);
begin
if ABrush is TBrush then
SetBrushColor(TBrush(ABrush).Color)
else
FBrushColor := ABrush.FPColor;
FBrushStyle := ABrush.Style;
end;
@ -306,6 +309,9 @@ end;
procedure TFPVectorialDrawer.SetPen(APen: TFPCustomPen);
begin
if APen is TPen then
FPenColor := FChartColorToFPColorFunc(TPen(APen).Color)
else
FPenColor := APen.FPColor;
FPenStyle := APen.Style;
FPenWidth := APen.Width;

3
components/tachart/tadrawersvg.pas
View File

@ -425,6 +425,9 @@ end;
procedure TSVGDrawer.SetPen(APen: TFPCustomPen);
begin
if APen is TPen then
FPen.FPColor := FChartColorToFPColorFunc(ColorOrMono(TPen(APen).Color))
else
FPen.FPColor := FPColorOrMono(APen.FPColor);
FPen.Style := APen.Style;
FPen.Width := APen.Width;