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

Merged revision(s) 59528 #33ce58f4dc from trunk:

Browse Source 
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: branches/fixes_2_0@59535 -
This commit is contained in:
maxim 2018-11-12 23:03:55 +00:00
parent 37981d1d85
commit e87ea1b8d5
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