mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-08 11:16:12 +02:00
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 -
This commit is contained in:
parent
873798b2ad
commit
33ce58f4dc
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user