paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 16:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Pas-Highlighter, improved final keyword

Browse Source 
git-svn-id: trunk@29141 -
This commit is contained in:
martin 2011-01-20 15:18:02 +00:00
parent d9b3de392f
commit 1cb4963ee6
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synhighlighterpas.pp
View File

@ -1151,7 +1151,11 @@ begin
if KeyComp('Alias') then if KeyComp('Alias') then
Result := tkKey Result := tkKey
else else
if KeyComp('Final') and (TopPascalCodeFoldBlockType in [cfbtClassSection]) then if KeyComp('Final') and
(TopPascalCodeFoldBlockType in [cfbtClass, cfbtClassSection]) and
(fRange * [rsAfterClassMembers, rsInProcHeader, rsProperty] = [rsAfterClassMembers]) and
(PasCodeFoldRange.BracketNestLevel = 0)
then
Result := tkKey Result := tkKey
else else
Result := tkIdentifier; Result := tkIdentifier;