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

SynEdit: Pas HighLighter, recognize new &keyword for identifier style

Browse Source 
git-svn-id: trunk@43342 -
This commit is contained in:
martin 2013-10-30 12:52:02 +00:00
parent 766298e0ef
commit f7b43be9d6
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synhighlighterpas.pp
View File

@ -2680,6 +2680,11 @@ begin
fTokenID := tkNumber; fTokenID := tkNumber;
while FLine[Run] in ['0'..'7'] do inc(Run); while FLine[Run] in ['0'..'7'] do inc(Run);
end end
else
if FLine[Run] in ['A'..'Z', 'a'..'z', '_'] then begin
fTokenID := tkIdentifier;
while Identifiers[fLine[Run]] do inc(Run);
end
else else
fTokenID := tkSymbol; fTokenID := tkSymbol;
end; end;