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

TAChart: Fix crash of IDE due to r60070 #9d2ff37d62

Browse Source 
git-svn-id: branches/fixes_2_0@60184 -
This commit is contained in:
mattias 2019-01-24 09:45:07 +00:00
parent 0cb5c68866
commit 72b51f3448
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tacustomseries.pas
View File

@ -1742,13 +1742,12 @@ var
labelText: String; labelText: String;
dir: TLabelDirection; dir: TLabelDirection;
m: array [TLabelDirection] of Integer absolute AMargins; m: array [TLabelDirection] of Integer absolute AMargins;
zero: Double;
gp: TDoublePoint; gp: TDoublePoint;
begin begin
if not Marks.IsMarkLabelsVisible or not Marks.AutoMargins then exit; if not Marks.IsMarkLabelsVisible or not Marks.AutoMargins then exit;
if MarkPositions = lmpInsideCenter then exit; if MarkPositions = lmpInsideCenter then exit;
if Count = 0 then exit;
zero := GetZeroLevel;
for i := FLoBound to FUpBound do begin for i := FLoBound to FUpBound do begin
gp := GetGraphPoint(i); gp := GetGraphPoint(i);
if not ParentChart.IsPointInViewPort(gp) then continue; if not ParentChart.IsPointInViewPort(gp) then continue;