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

SynEdit: IfDef Markup, fix issue with not displaying nested disabled blocks sometimes

Browse Source 
git-svn-id: trunk@42898 -
This commit is contained in:
martin 2013-09-20 11:02:40 +00:00
parent 16fc76f1ab
commit 899f464bcf
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/syneditmarkupifdef.pp
View File

@ -3506,11 +3506,11 @@ XXXCurTree := FIfDefTree; try
Entry := Node.Entry[j]; Entry := Node.Entry[j];
dec(FoundLvl); dec(FoundLvl);
if Entry.IsTempOpening then begin if Entry.IsTempOpening then begin
if Entry.IsDisabledOpening then TmpDisableOpenEntry := Entry; if Entry.IsDisabledOpening and NeedTmpDisableOpen then TmpDisableOpenEntry := Entry;
if Entry.IsEnabled then TmpEnableOpenEntry := Entry; if Entry.IsEnabled and NeedTmpEnableOpen then TmpEnableOpenEntry := Entry;
end else begin end else begin
if Entry.IsDisabledOpening then DisableOpenEntry := Entry; if Entry.IsDisabledOpening and NeedDisableOpen then DisableOpenEntry := Entry;
if Entry.IsEnabled then EnableOpenEntry := Entry; if Entry.IsEnabled and NeedEnableOpen then EnableOpenEntry := Entry;
end; end;
if FoundLvl < NestLvlLow then if FoundLvl < NestLvlLow then
break; break;