paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit, Pas Highlighter: show ^x as string / fix ^ in front of {$

Browse Source 
git-svn-id: trunk@47513 -
This commit is contained in:
martin 2015-01-25 13:39:47 +00:00
parent c9d7e64a6b
commit 3d34fff0a3
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synhighlighterpas.pp
View File

@ -2756,8 +2756,14 @@ begin
) and ) and
(fRange * [rsInTypeBlock, rsAfterEqual] = [rsAfterEqual]) ) (fRange * [rsInTypeBlock, rsAfterEqual] = [rsAfterEqual]) )
then begin then begin
if Run<fLineLen then if Run<fLineLen then begin
if (Run+1 < fLineLen) and (fLine[Run] = '{') and (fLine[Run+1] = '$') then begin
// "{$" directive takes precedence
fTokenID := tkSymbol;
exit;
end;
inc(Run); inc(Run);
end;
fTokenID := tkString; fTokenID := tkString;
end; end;
end; end;