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

SynEdit: Pas-Highlighter: Improved "message" and "index" keywords (less false positives)

Browse Source 
git-svn-id: trunk@27645 -
This commit is contained in:
martin 2010-10-10 22:11:20 +00:00
parent b944234141
commit 0274574004
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/synedit/synhighlighterpas.pp
View File

@ -1172,8 +1172,10 @@ function TSynPasSyn.Func56: TtkTokenKind;
begin
if KeyComp('Index') then
begin
if rsProperty in fRange then Result := tkKey else Result := tkIdentifier;
end else
if (rsProperty in fRange) and (PasCodeFoldRange.BracketNestLevel = 0) then
Result := tkKey else Result := tkIdentifier;
end
else
if KeyComp('Out') then Result := tkKey else Result := tkIdentifier;
end;
@ -1283,9 +1285,15 @@ begin
else
Result := tkIdentifier;
end else
if KeyComp('Dynamic') then Result := tkKey
else
if KeyComp('Message') then Result := tkKey else Result := tkIdentifier;
if KeyComp('Dynamic') then
Result := tkKey
else
if KeyComp('Message') and (TopPascalCodeFoldBlockType in ProcModifierAllowed) and
(PasCodeFoldRange.BracketNestLevel = 0)
then
Result := tkKey
else
Result := tkIdentifier;
end;
function TSynPasSyn.Func71: TtkTokenKind;