From aad2a41b7614098da8ea1d6aa772c6059700281d Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Sat, 28 Jan 2017 12:44:54 +0000
Subject: [PATCH] TAChart: Fix expected behavior of Axis.Marks.AtDataOnly if
 series does not set its AxisIndexes
 (http://forum.lazarus.freepascal.org/index.php/topic,35606.0.html)

git-svn-id: trunk@54023 -
---
 components/tachart/tachartaxis.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/tachart/tachartaxis.pas b/components/tachart/tachartaxis.pas
index 40e02c8319..446b10fa98 100644
--- a/components/tachart/tachartaxis.pas
+++ b/components/tachart/tachartaxis.pas
@@ -585,6 +585,9 @@ begin
     // FIXME: Intersect axisMin/Max with the union of series extents.
     // wp: - I think this is fixed in what follows...
     GetChart.Notify(CMD_QUERY_SERIESEXTENT, self, nil, rng{%H-});
+    // Safe-guard against series having no AxisIndexX/AxisIndexY
+    if IsInfinite(rng.FStart) then rng.FStart := axisMin;
+    if IsInfinite(-rng.FEnd) then rng.FEnd := axisMax;
     UpdateBounds(rng.FStart, rng.FEnd);
     d.FMin := rng.FStart;
     d.FMax := rng.FEnd;