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

Merged revision(s) 56443 #0b3d343f9b from trunk:

Browse Source 
TAChart: Fix empty TPolarSeries crashing if ShowPoints is true.
........

git-svn-id: branches/fixes_1_8@56450 -
This commit is contained in:
maxim 2017-11-20 23:01:39 +00:00
parent f5148efc08
commit e77f4cd60c
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/tacustomseries.pas
View File

@ -1195,7 +1195,7 @@ var
brushAlreadySet: boolean; brushAlreadySet: boolean;
begin begin
Assert(Pointer <> nil, 'Series pointer'); Assert(Pointer <> nil, 'Series pointer');
if not Pointer.Visible then exit; if (not Pointer.Visible) or (Length(FGraphPoints) = 0) then exit;
for i := FLoBound to FUpBound do begin for i := FLoBound to FUpBound do begin
p := FGraphPoints[i - FLoBound]; p := FGraphPoints[i - FLoBound];
if not ParentChart.IsPointInViewPort(p) then continue; if not ParentChart.IsPointInViewPort(p) then continue;