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

TAChart: Fix axis transformations support in data point tools

Browse Source 
git-svn-id: trunk@32500 -
This commit is contained in:
ask 2011-09-24 13:47:06 +00:00
parent 90c5d4a946
commit 9357e21926
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/tacustomseries.pas
View File

@ -923,7 +923,7 @@ begin
// Since axis transformation may be non-linear, the distance should be
// measured in screen coordinates. With high zoom ratios this may lead to
// an integer overflow, so ADistFunc should use saturation arithmetics.
pt := Point(GetXImgValue(i), GetYImgValue(i));
pt := ParentChart.GraphToImage(AxisToGraph(Source[i]^.Point));
dist := AParams.FDistFunc(AParams.FPoint, pt);
if (dist >= AResults.FDist) or (dist > Sqr(AParams.FRadius)) then continue;
AResults.FDist := dist;