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

TAChart: Exit TFieldSeries.GetNearestPoint immediately when series is empty.

Browse Source 
git-svn-id: trunk@60640 -
This commit is contained in:
wp 2019-03-09 22:31:36 +00:00
parent cbaaf56d38
commit 4b7e0a544e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tamultiseries.pas
View File

@ -1904,6 +1904,8 @@ begin
AResults.FIndex := -1; AResults.FIndex := -1;
AResults.FXIndex := 0; AResults.FXIndex := 0;
AResults.FYIndex := 0; AResults.FYIndex := 0;
if IsEmpty then exit(false);
for i := 0 to Count - 1 do begin for i := 0 to Count - 1 do begin
if not GetVectorPoints(i, sp1, sp2) then if not GetVectorPoints(i, sp1, sp2) then
Continue; Continue;