paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 12:20:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix stacked bar series being incorrectly painted if a y axis transformation is active.

Browse Source 
git-svn-id: trunk@53905 -
This commit is contained in:
wp 2017-01-09 12:35:09 +00:00
parent 2dd33ce583
commit 24c746515e
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/tachart/taseries.pas
View File

@ -1052,25 +1052,22 @@ begin
scaled_depth := ADrawer.Scale(Depth);
PrepareGraphPoints(ext2, true);
if IsRotated then
z := AxisToGraphX(ZeroLevel)
else
z := AxisToGraphY(ZeroLevel);
SetLength(heights, Source.YCount + 1);
for pointIndex := FLoBound to FUpBound do begin
p := FGraphPoints[pointIndex - FLoBound];
if IsRotated then
Exchange(p.X, p.Y);
p := Source[pointIndex]^.Point;
if IsNan(p.X) then continue;
p.X := AxisToGraphX(p.X);
BarOffsetWidth(p.X, pointIndex, ofs, w);
p.X += ofs;
heights[0] := z;
heights[1] := NumberOr(p.Y, z);
heights[0] := ZeroLevel;
heights[1] := ZeroLevel + p.Y;
for stackIndex := 1 to Source.YCount - 1 do begin
y := Source[pointIndex]^.YList[stackIndex - 1];
if not IsNan(y) then
heights[stackIndex + 1] := heights[stackIndex] + y;
end;
for stackIndex := 0 to High(heights) do
heights[stackindex] := AxisToGraphY(heights[stackindex]);
for stackIndex := 0 to Source.YCount - 1 do
BuildBar;
end;