From 33ce58f4dc3e85a76f857a54f15b54c785a122b2 Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Mon, 12 Nov 2018 17:27:46 +0000
Subject: [PATCH] TAChart: Fix panning error of TAreaSeries (caused by r58562
 #e279c0a839, see
 https://forum.lazarus.freepascal.org/index.php/topic,43182.0.html).

git-svn-id: trunk@59528 -
---
 components/tachart/taseries.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas
index 1161404dda..8eda742b9b 100644
--- a/components/tachart/taseries.pas
+++ b/components/tachart/taseries.pas
@@ -1564,7 +1564,7 @@ var
     b0 := FGraphPoints[AEnd];
 
     // Collect points of top-most curve
-    UpdateGraphPoints(Source.YCount-2, AStart, AEnd, FStacked);
+    UpdateGraphPoints(Source.YCount-2, FLoBound, FUpBound, FStacked);
       // Index (1st parameter) refers to YList --> one less than usual!)
     numPts := 0;
     CollectPoints(AStart, AEnd);
@@ -1579,7 +1579,7 @@ var
 
       if (j > -1) then begin
         // Stack level points
-        UpdateGraphPoints(j - 1, AStart, AEnd, FStacked);
+        UpdateGraphPoints(j - 1, FLoBound, FUpBound, FStacked);
         CollectPoints(AStart, AEnd);
         numSavedPts := numPts;
         for i := 0 to numPrevPts-1 do