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

TAChart: Fix panning error of TAreaSeries (caused by r58562 #e279c0a839, see https://forum.lazarus.freepascal.org/index.php/topic,43182.0.html).

Browse Source 
git-svn-id: trunk@59528 -
This commit is contained in:
wp 2018-11-12 17:27:46 +00:00
parent 873798b2ad
commit 33ce58f4dc
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/taseries.pas
View File

@ -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