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

TAChart: Replace r62069 #40d59fec0b by better solution.

Browse Source 
git-svn-id: trunk@62070 -
This commit is contained in:
wp 2019-10-17 22:08:42 +00:00
parent 40d59fec0b
commit e216e6cfec
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/tacustomseries.pas
View File

@ -1862,10 +1862,11 @@ begin
Unused(APointIdx);
Unused(AXIdx, AYIdx);
if IsNaN(AGraphPt) then
pt := Point(10000, 10000)
else
exit(MaxInt)
else begin
pt := ParentChart.GraphToImage(AGraphPt);
Result := AParams.FDistFunc(AParams.FPoint, pt);
Result := AParams.FDistFunc(AParams.FPoint, pt);
end;
end;
// AIndex refers to the index into YList here.