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

TAChart: Fix GetNearestPoint returning true with no points found inside radius, issue #22854

Browse Source 
git-svn-id: trunk@38617 -
This commit is contained in:
ask 2012-09-11 16:18:21 +00:00
parent fb69f5184b
commit fd49bc20b8
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tacustomseries.pas
View File

@ -1014,8 +1014,8 @@ var
pt: TPoint;
sp: TDoublePoint;
begin
Result := Count > 0;
AResults.FDist := MaxInt;
AResults.FDist := Sqr(AParams.FRadius) + 1;
AResults.FIndex := -1;
for i := 0 to Count - 1 do begin
sp := Source[i]^.Point;
if IsNan(sp) then continue;
@ -1024,12 +1024,13 @@ begin
// an integer overflow, so ADistFunc should use saturation arithmetics.
pt := ParentChart.GraphToImage(AxisToGraph(sp));
dist := AParams.FDistFunc(AParams.FPoint, pt);
if (dist >= AResults.FDist) or (dist > Sqr(AParams.FRadius)) then continue;
if dist >= AResults.FDist then continue;
AResults.FDist := dist;
AResults.FIndex := i;
AResults.FImg := pt;
AResults.FValue := DoublePoint(GetXValue(i), GetYValue(i));
AResults.FValue := sp;
end;
Result := AResults.FIndex >= 0;
end;
function TBasicPointSeries.GetXRange(AX: Double; AIndex: Integer): Double;