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

TAChart: Fix AV while drawing chart with zero axises

Browse Source 
git-svn-id: trunk@30187 -
This commit is contained in:
ask 2011-04-04 16:30:46 +00:00
parent c654edd5c9
commit 5f796f9283
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tagraph.pas
View File

@ -1027,7 +1027,7 @@ var
axisMargin: TChartAxisMargins = (0, 0, 0, 0); axisMargin: TChartAxisMargins = (0, 0, 0, 0);
a: TChartAxisAlignment; a: TChartAxisAlignment;
begin begin
if not AxisVisible or (AxisList.Count = 0) then begin if not AxisVisible then begin
FClipRect.Left += Depth; FClipRect.Left += Depth;
FClipRect.Bottom -= Depth; FClipRect.Bottom -= Depth;
CalculateTransformationCoeffs(GetMargins(ADrawer)); CalculateTransformationCoeffs(GetMargins(ADrawer));