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

Merged revision(s) 43486 #310fc7893e from trunk:

Browse Source 
SourceEditor: added nil check for top-info
........

git-svn-id: branches/fixes_1_2@43517 -
This commit is contained in:
maxim 2013-12-07 17:07:17 +00:00
parent 47f777f294
commit 4cc4ba42fe
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourcesyneditor.pas
View File

@ -1361,7 +1361,7 @@ var
NodeFoldType: TPascalCodeFoldBlockType; NodeFoldType: TPascalCodeFoldBlockType;
List: TLazSynEditNestedFoldsList; List: TLazSynEditNestedFoldsList;
begin begin
if (not FShowTopInfo) or (not HandleAllocated) then exit; if (not FShowTopInfo) or (not HandleAllocated) or (TextView.HighLighter = nil) then exit;
if FSrcSynCaretChangedLock or not(TextView.HighLighter is TSynPasSyn) then exit; if FSrcSynCaretChangedLock or not(TextView.HighLighter is TSynPasSyn) then exit;
FSrcSynCaretChangedLock := True; FSrcSynCaretChangedLock := True;