From 3aa0ac6c03dc7c0d6ce517f51ef8207fa8bdcd5d Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 14 Nov 2010 19:48:19 +0000
Subject: [PATCH] SynEdit, pas hl: fixed message modifier context. Issue
 #0017577

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

diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp
index b4ccd57d53..624a1f567f 100644
--- a/components/synedit/synhighlighterpas.pp
+++ b/components/synedit/synhighlighterpas.pp
@@ -1353,8 +1353,8 @@ begin
   if KeyComp('Dynamic') then
     Result := tkKey
   else
-  if KeyComp('Message') and (not(rsInProcHeader in fRange)) and
-     (TopPascalCodeFoldBlockType in ProcModifierAllowed) and
+  if KeyComp('Message') and (fRange * [rsAfterClassMembers, rsInProcHeader] = [rsAfterClassMembers]) and
+     (TopPascalCodeFoldBlockType in [cfbtClass, cfbtClassSection]) and
      (PasCodeFoldRange.BracketNestLevel = 0)
   then
     Result := tkKey