paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 17:58:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix TFitSeries axis rotation.

Browse Source 
git-svn-id: trunk@58616 -
This commit is contained in:
wp 2018-07-24 14:10:46 +00:00
parent 4fe2e4c626
commit d496b94a03
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tafuncseries.pas
View File

@ -1530,8 +1530,13 @@ begin
ext.b := AxisToGraph(b);
end;
NormalizeRect(ext);
AXMin := GraphToAxisX(ext.a.X);
AXMax := GraphToAxisX(ext.b.X);
if IsRotated then begin
AXMin := GraphToAxisY(ext.a.Y);
AXMax := GraphToAxisY(ext.b.Y);
end else begin
AXMin := GraphToAxisX(ext.a.X);
AXMax := GraphToAxisX(ext.b.X);
end;
EnsureOrder(AXMin, AXMax);
FFitRange.Intersect(AXMin, AXMax);
end;