paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-08 09:21:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix creation of axis labels if an axis transformation inverts axis limits

Browse Source 
git-svn-id: trunk@49452 -
This commit is contained in:
wp 2015-06-26 09:49:19 +00:00
parent 8c42f271c2
commit 241599929e
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tachartaxis.pas
View File

@ -600,6 +600,8 @@ begin
FValueMax := GetTransform.AxisToGraph(axisMax);
FMinForMarks := Min(FMinForMarks, GetTransform.AxisToGraph(d.FMin));
FMaxForMarks := Max(FMaxForMarks, GetTransform.AxisToGraph(d.FMax));
EnsureOrder(FValueMin, FValueMax);
EnsureOrder(FMinForMarks, FMaxForMarks);
end;
if Assigned(FOnMarkToText) then

1
components/tachart/taintervalsources.pas
View File

@ -314,6 +314,7 @@ begin
AParams.FMin := AParams.FAxisToGraph(AParams.FMin);
AParams.FMax := AParams.FAxisToGraph(AParams.FMax);
end;
EnsureOrder(AParams.FMin, AParams.FMax);
CalculateIntervals(AParams, start, step);
if step <= 0 then exit;
m := start;