paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 02:29:34 +01: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 // Since axis transformation may be non-linear, the distance should be
// measured in screen coordinates. With high zoom ratios this may lead to // measured in screen coordinates. With high zoom ratios this may lead to
// an integer overflow, so ADistFunc should use saturation arithmetics. // 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); dist := AParams.FDistFunc(AParams.FPoint, pt);
if (dist >= AResults.FDist) or (dist > Sqr(AParams.FRadius)) then continue; if (dist >= AResults.FDist) or (dist > Sqr(AParams.FRadius)) then continue;
AResults.FDist := dist; AResults.FDist := dist;