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

Synedit: Fixed Fold-contextmenu for ifdef, region

Browse Source 
git-svn-id: trunk@19759 -
This commit is contained in:
martin 2009-05-02 11:06:58 +00:00
parent 8cd03de95a
commit d26b4ccd22
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synhighlighterpas.pp
View File

@ -2717,7 +2717,8 @@ begin
if FCatchNodeInfo then begin // exclude subblocks, because they do not increase the foldlevel yet
GrowNodeInfoList;
InitNode(FNodeInfoList[FNodeInfoCount], +1, ABlockType);
Include(FNodeInfoList[FNodeInfoCount].FoldAction, sfaOpen);
FNodeInfoList[FNodeInfoCount].FoldAction :=
FNodeInfoList[FNodeInfoCount].FoldAction + [sfaOpen, sfaFold];
inc(FNodeInfoCount);
end;
case ABlockType of
@ -2734,7 +2735,8 @@ begin
if FCatchNodeInfo then begin // exclude subblocks, because they do not increase the foldlevel yet
GrowNodeInfoList;
InitNode(FNodeInfoList[FNodeInfoCount], +1, ABlockType);
Include(FNodeInfoList[FNodeInfoCount].FoldAction, sfaClose);
FNodeInfoList[FNodeInfoCount].FoldAction :=
FNodeInfoList[FNodeInfoCount].FoldAction + [sfaClose, sfaFold];
inc(FNodeInfoCount);
end;
case ABlockType of