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

TAChart: Fix brush settings in pie series drawing

Browse Source 
git-svn-id: trunk@21888 -
This commit is contained in:
ask 2009-09-27 08:13:42 +00:00
parent 4101d61d99
commit 93c6ee37a6
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/taseries.pas
View File

@ -890,6 +890,9 @@ begin
graphCoord := Source[i]; graphCoord := Source[i];
angleStep := graphCoord^.Y / Source.ValuesTotal * 360 * 16; angleStep := graphCoord^.Y / Source.ValuesTotal * 360 * 16;
ACanvas.Pen.Color := clBlack;
ACanvas.Pen.Style := psSolid;
ACanvas.Brush.Style := bsSolid;
ACanvas.Brush.Color := ACanvas.Brush.Color :=
ColorOrDefault(graphCoord^.Color, Colors[i mod MaxColor + 1]); ColorOrDefault(graphCoord^.Color, Colors[i mod MaxColor + 1]);