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

TAChart: Add missing check for NaN to TCustomChartSource.XOfMax and .XOfMin (https://forum.lazarus.freepascal.org/index.php/topic,49848.0.html).

Browse Source 
git-svn-id: trunk@63180 -
This commit is contained in:
wp 2020-05-18 09:36:40 +00:00
parent 7def888afc
commit efbbeb241f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tacustomsource.pas
View File

@ -1583,7 +1583,7 @@ var
begin
for i := 0 to Count - 1 do
with Item[i]^ do
if Y = Extent.b.Y then begin
if not IsNaN(Y) and (Y = Extent.b.Y) then begin
if XCount > 0 then
exit(GetX(AIndex))
else
@ -1598,7 +1598,7 @@ var
begin
for i := 0 to Count - 1 do
with Item[i]^ do
if Y = Extent.a.Y then begin
if not IsNaN(Y) and (Y = Extent.a.Y) then begin
if XCount > 0 then
exit(GetX(AIndex))
else