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

SynEdit: fix bracket matching with SynAnySyn

Browse Source 
git-svn-id: trunk@34577 -
This commit is contained in:
martin 2012-01-04 15:02:34 +00:00
parent 48bcf0243b
commit c8452e8e54
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synhighlighterany.pas
View File

@ -127,6 +127,7 @@ type
procedure AmpersandProc;
procedure AsciiCharProc;
procedure BraceOpenProc;
procedure BraceCloseProc;
procedure PointCommaProc;
procedure CRProc;
procedure DotProc;
@ -379,6 +380,7 @@ begin
end;
'#': fProcTable[I] := {$ifdef FPC}@{$endif}AsciiCharProc;
'{': fProcTable[I] := {$ifdef FPC}@{$endif}BraceOpenProc;
'}': fProcTable[I] := {$ifdef FPC}@{$endif}BraceCloseProc;
';': fProcTable[I] := {$ifdef FPC}@{$endif}PointCommaProc;
#13: fProcTable[I] := {$ifdef FPC}@{$endif}CRProc;
'A'..'Z', 'a'..'z', '_': fProcTable[I] := {$ifdef FPC}@{$endif}IdentProc;
@ -577,6 +579,12 @@ begin
end;
end;
procedure TSynAnySyn.BraceCloseProc;
begin
inc(Run);
FTokenID := tkSymbol;
end;
procedure TSynAnySyn.PointCommaProc;
begin
if (csASmStyle in fComments) or (csBasStyle in fComments) then