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

TAChart: Fix SIGFPE while drawing very narrow slices in 3D pie chart

Browse Source 
git-svn-id: trunk@40112 -
This commit is contained in:
ask 2013-02-01 12:08:09 +00:00
parent 271accdd82
commit eae13b6de2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/taradialseries.pas
View File

@ -262,7 +262,7 @@ begin
for ps in FSlices do begin for ps in FSlices do begin
if not ps.FVisible then continue; if not ps.FVisible then continue;
ADrawer.SetBrushParams(bsSolid, SliceColor(ps.FOrigIndex)); ADrawer.SetBrushParams(bsSolid, SliceColor(ps.FOrigIndex));
numSteps := Round(2 * Pi * ps.Angle * FRadius / STEP); numSteps := Max(Round(2 * Pi * ps.Angle * FRadius / STEP), 2);
SetLength(p, 2 * numSteps); SetLength(p, 2 * numSteps);
for i := 0 to numSteps - 1 do begin for i := 0 to numSteps - 1 do begin
a := WeightedAverage(ps.FPrevAngle, ps.FNextAngle, i / (numSteps - 1)); a := WeightedAverage(ps.FPrevAngle, ps.FNextAngle, i / (numSteps - 1));