paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 02:59:26 +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); procedure ReadSectionNames(asection:string;alist:TStrings);
end; end;
{ TSynAnySyn }
TSynAnySyn = class(TSynCustomHighlighter) TSynAnySyn = class(TSynCustomHighlighter)
private private
fUserData:TIniList; fUserData:TIniList;
@ -135,6 +137,7 @@ type
procedure NullProc; procedure NullProc;
procedure NumberProc; procedure NumberProc;
procedure RoundOpenProc; procedure RoundOpenProc;
procedure RoundCloseProc;
procedure SlashProc; procedure SlashProc;
procedure SpaceProc; procedure SpaceProc;
procedure StringProc; procedure StringProc;
@ -390,6 +393,7 @@ begin
#0: fProcTable[I] := {$ifdef FPC}@{$endif}NullProc; #0: fProcTable[I] := {$ifdef FPC}@{$endif}NullProc;
'0'..'9': fProcTable[I] := {$ifdef FPC}@{$endif}NumberProc; '0'..'9': fProcTable[I] := {$ifdef FPC}@{$endif}NumberProc;
'(': fProcTable[I] := {$ifdef FPC}@{$endif}RoundOpenProc; '(': fProcTable[I] := {$ifdef FPC}@{$endif}RoundOpenProc;
')': fProcTable[I] := {$ifdef FPC}@{$endif}RoundCloseProc;
'/': fProcTable[I] := {$ifdef FPC}@{$endif}SlashProc; '/': fProcTable[I] := {$ifdef FPC}@{$endif}SlashProc;
#1..#9, #11, #12, #14..#32: fProcTable[I] := {$ifdef FPC}@{$endif}SpaceProc; #1..#9, #11, #12, #14..#32: fProcTable[I] := {$ifdef FPC}@{$endif}SpaceProc;
else fProcTable[I] := {$ifdef FPC}@{$endif}UnknownProc; else fProcTable[I] := {$ifdef FPC}@{$endif}UnknownProc;
@ -694,6 +698,12 @@ begin
end else fTokenId := tkSymbol; end else fTokenId := tkSymbol;
end; end;
procedure TSynAnySyn.RoundCloseProc;
begin
inc(Run);
FTokenID := tkSymbol;
end;
procedure TSynAnySyn.SlashProc; procedure TSynAnySyn.SlashProc;
begin begin
case FLine[Run + 1] of case FLine[Run + 1] of