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

SynEdit: Pascal-Highlighter add cppdecl and oldfpccall. Issue #41051

Browse Source 
(cherry picked from commit 45b079d896)
This commit is contained in:
Martin 2024-09-24 16:58:51 +02:00
parent 63abb38c15
commit 49bf7a6262
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synhighlighterpas.pp
View File

@ -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;