paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix incorrect scaling of TScaledCanvasDrawer (https://forum.lazarus.freepascal.org/index.php/topic,44041.msg309209.html)

Browse Source 
git-svn-id: trunk@60225 -
This commit is contained in:
wp 2019-01-25 23:48:23 +00:00
parent 14ebc45053
commit 087ce17ca3
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tacustomseries.pas
View File

@ -1788,6 +1788,7 @@ var
dir: TLabelDirection;
m: array [TLabelDirection] of Integer absolute AMargins;
gp: TDoublePoint;
scMarksDistance: Integer;
begin
if not Marks.IsMarkLabelsVisible or not Marks.AutoMargins then exit;
if Count = 0 then exit;
@ -1805,6 +1806,7 @@ begin
Count-1}
FindExtentInterval(ParentChart.CurrentExtent, Source.IsSorted);
scMarksDistance := ADrawer.Scale(Marks.Distance);
for i := FLoBound to FUpBound do begin
gp := GetGraphPoint(i);
if not ParentChart.IsPointInViewPort(gp) then continue;
@ -1817,7 +1819,7 @@ begin
if Marks.DistanceToCenter then
dist := dist div 2;
m[dir] := Max(m[dir], dist + Marks.Distance);
m[dir] := Max(m[dir], dist + scMarksDistance);
end;
end;

3
components/tachart/tagraph.pas
View File

@ -602,7 +602,6 @@ begin
(AMargin.Top <> AChartMargins.Top) or (AMargin.Bottom <> AChartMargins.Bottom),
true, @FCurrentExtent.a.Y, @FCurrentExtent.b.Y);
FScale.X := rX.CalcScale(1);
FScale.Y := rY.CalcScale(-1);
if Proportional then begin
@ -1255,7 +1254,7 @@ begin
if s.Active then
s.UpdateMargins(ADrawer, Result);
for i := Low(a) to High(a) do
a[i] := ADrawer.Scale(a[i] + TRectArray(Margins.Data)[i]);
a[i] := a[i] + ADrawer.Scale(TRectArray(Margins.Data)[i]);
end;
function TChart.GetRenderingParams: TChartRenderingParams;