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

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

Browse Source 
git-svn-id: trunk@60082 -
This commit is contained in:
wp 2019-01-14 17:59:59 +00:00
parent cab53de86d
commit 4747a4d09e
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;
dir: TLabelDirection;
m: array [TLabelDirection] of Integer absolute AMargins;
zero: Double;
gp: TDoublePoint;
begin
if not Marks.IsMarkLabelsVisible or not Marks.AutoMargins then exit;
if MarkPositions = lmpInsideCenter then exit;
if Count = 0 then exit;
zero := GetZeroLevel;
for i := FLoBound to FUpBound do begin
gp := GetGraphPoint(i);
if not ParentChart.IsPointInViewPort(gp) then continue;