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

TAChart: Fix TPieSlice.FindContainingSlice for the case of skipped slices

Browse Source 
git-svn-id: trunk@35640 -
This commit is contained in:
ask 2012-03-01 15:21:43 +00:00
parent ab96a7be35
commit f7471ce97d
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/tachart/taradialseries.pas
View File

@ -292,21 +292,20 @@ function TCustomPieSeries.FindContainingSlice(const APoint: TPoint): Integer;
var
c: TPoint;
pointAngle: Double;
ps: TPieSlice;
begin
if IsEmpty then exit(-1);
for Result := 0 to Count - 1 do
with FSlices[Result] do begin
c := APoint - FBase;
pointAngle := ArcTan2(-c.Y, c.X);
if pointAngle < 0 then
pointAngle += 2 * Pi;
if
InRange(pointAngle, FPrevAngle, FNextAngle) and
(Sqr(c.X) + Sqr(c.Y) <= Sqr(FRadius))
then
exit;
end;
for ps in FSlices do begin
if not ps.FVisible then continue;
c := APoint - ps.FBase;
pointAngle := ArcTan2(-c.Y, c.X);
if pointAngle < 0 then
pointAngle += 2 * Pi;
if
InRange(pointAngle, ps.FPrevAngle, ps.FNextAngle) and
(Sqr(c.X) + Sqr(c.Y) <= Sqr(FRadius))
then
exit(ps.FOrigIndex);
end;
Result := -1;
end;