From 49bf7a6262534e84a608568c18d9a49679fcd2f7 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Tue, 24 Sep 2024 16:58:51 +0200
Subject: [PATCH] SynEdit: Pascal-Highlighter add cppdecl and oldfpccall. Issue
 #41051

(cherry picked from commit 45b079d896aa70595413382b4d473d12aa9e4a18)
---
 components/synedit/synhighlighterpas.pp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp
index a710c22479..2e45e8c806 100644
--- a/components/synedit/synhighlighterpas.pp
+++ b/components/synedit/synhighlighterpas.pp
@@ -1608,7 +1608,7 @@ end;
 
 function TSynPasSyn.Func59: TtkTokenKind;
 begin
-  if KeyComp('Safecall') and
+  if (KeyComp('Safecall') or KeyComp('cppdecl')) and
      (PasCodeFoldRange.BracketNestLevel in [0, 1]) and
      (fRange * [rsInProcHeader, rsProperty, rsAfterEqualOrColon, rsWasInProcHeader] = [rsWasInProcHeader]) and
      (TopPascalCodeFoldBlockType in ProcModifierAllowed)
@@ -1966,6 +1966,14 @@ begin
       StartPascalCodeFoldBlock(cfbtClass);
     end;
   end
+  else if KeyComp('oldfpccall') and
+     (PasCodeFoldRange.BracketNestLevel in [0, 1]) and
+     (fRange * [rsInProcHeader, rsProperty, rsAfterEqualOrColon, rsWasInProcHeader] = [rsWasInProcHeader]) and
+     (TopPascalCodeFoldBlockType in ProcModifierAllowed)
+  then begin
+    Result := tkModifier;
+    FRange := FRange + [rsInProcHeader];
+  end
   else
     Result := tkIdentifier;
 end;