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

SynEdit: fix bracket matching with SynAnySyn

Browse Source 
git-svn-id: trunk@34568 -
This commit is contained in:
martin 2012-01-03 22:05:39 +00:00
parent 6f5bccc376
commit b00e2117ba
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synhighlighterany.pas
View File

@ -86,6 +86,8 @@ type
procedure ReadSectionNames(asection:string;alist:TStrings);
end;
{ TSynAnySyn }
TSynAnySyn = class(TSynCustomHighlighter)
private
fUserData:TIniList;
@ -135,6 +137,7 @@ type
procedure NullProc;
procedure NumberProc;
procedure RoundOpenProc;
procedure RoundCloseProc;
procedure SlashProc;
procedure SpaceProc;
procedure StringProc;
@ -390,6 +393,7 @@ begin
#0: fProcTable[I] := {$ifdef FPC}@{$endif}NullProc;
'0'..'9': fProcTable[I] := {$ifdef FPC}@{$endif}NumberProc;
'(': fProcTable[I] := {$ifdef FPC}@{$endif}RoundOpenProc;
')': fProcTable[I] := {$ifdef FPC}@{$endif}RoundCloseProc;
'/': fProcTable[I] := {$ifdef FPC}@{$endif}SlashProc;
#1..#9, #11, #12, #14..#32: fProcTable[I] := {$ifdef FPC}@{$endif}SpaceProc;
else fProcTable[I] := {$ifdef FPC}@{$endif}UnknownProc;
@ -694,6 +698,12 @@ begin
end else fTokenId := tkSymbol;
end;
procedure TSynAnySyn.RoundCloseProc;
begin
inc(Run);
FTokenID := tkSymbol;
end;
procedure TSynAnySyn.SlashProc;
begin
case FLine[Run + 1] of