From d26b4ccd221eae79f38475342e522a23c160e510 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sat, 2 May 2009 11:06:58 +0000
Subject: [PATCH] Synedit: Fixed Fold-contextmenu for ifdef, region

git-svn-id: trunk@19759 -
---
 components/synedit/synhighlighterpas.pp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp
index d37df767d9..c68e96c3c9 100644
--- a/components/synedit/synhighlighterpas.pp
+++ b/components/synedit/synhighlighterpas.pp
@@ -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