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

TAChart: Always add internal chart margins

Browse Source 
git-svn-id: trunk@31710 -
This commit is contained in:
ask 2011-07-16 16:26:21 +00:00
parent d4b0f89e8f
commit a6036287a9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tagraph.pas
View File

@ -967,12 +967,12 @@ var
a: TRectArray absolute Result;
s: TBasicChartSeries;
begin
Result := Margins.Data;
Result := Rect(0, 0, 0, 0);
for s in Series do
if s.Active then
s.UpdateMargins(ADrawer, Result);
for i := Low(a) to High(a) do
a[i] := ADrawer.Scale(a[i]);
a[i] := ADrawer.Scale(a[i] + TRectArray(Margins.Data)[i]);
end;
function TChart.GetRenderingParams: TChartRenderingParams;