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

SynEdit: add FoldNodeInfo, fix for HL without foldconf

Browse Source 
git-svn-id: trunk@50799 -
This commit is contained in:
martin 2015-12-14 15:39:12 +00:00
parent f89260aa10
commit 2c3a45ce75
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedithighlighterfoldbase.pas
View File

@ -1178,7 +1178,7 @@ begin
act := act + FFoldConfig[PtrUInt(ABlockType)].FoldActions
else
if not BlockConfExists then
act := act + [sfaFold];
act := act + [sfaFold, sfaFoldFold];
DoInitNode(nd, FinishingABlock, ABlockType, act, True);
end
else
@ -1189,7 +1189,7 @@ begin
act := act + FFoldConfig[PtrUInt(ABlockType)].FoldActions
else
if not BlockConfExists then
act := act + [sfaFold];
act := act + [sfaFold, sfaFoldFold];
act := act - [sfaFoldFold, sfaFoldHide]; // it is closing tag
DoInitNode(nd, FinishingABlock, ABlockType, act, LevelChanged);
end;