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

TAChart: Fix extent of side-by-side bar series being calculated incorrectly if an x axis transformation is active.

Browse Source 
git-svn-id: trunk@53904 -
This commit is contained in:
wp 2017-01-09 11:57:36 +00:00
parent f9244f936d
commit 2dd33ce583
1 changed files with 5 additions and 3 deletions

8
components/tachart/taseries.pas
View File

@ -1090,16 +1090,18 @@ begin
UpdateMinMax(ZeroLevel, Result.a.Y, Result.b.Y);
// Show first and last bars fully.
i := 0;
x := NearestXNumber(i, +1);
x := NearestXNumber(i, +1); // --> x is in graph units
if not IsNan(x) then begin
BarOffsetWidth(x, i, ofs, w);
Result.a.X := Min(Result.a.X, x + ofs - w);
x := GraphToAxisX(x + ofs - w); // x is in graph units, Extent in axis units!
Result.a.X := Min(Result.a.X, x);
end;
i := Count - 1;
x := NearestXNumber(i, -1);
if not IsNan(x) then begin
BarOffsetWidth(x, i, ofs, w);
Result.b.X := Max(Result.b.X, x + ofs + w);
x := GraphToAxisX(x + ofs + w);
Result.b.X := Max(Result.b.X, x);
end;
end;