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

SynEdit: fix bracket matching issue #0029632

Browse Source 
git-svn-id: trunk@51593 -
This commit is contained in:
martin 2016-02-10 23:03:30 +00:00
parent 65057a6460
commit 2e86dbcd0d
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/synedit/synedit.pp
View File

@ -8542,6 +8542,7 @@ var
StartPt: TPoint;
// for ContextMatch
BracketKind, TmpStart: Integer;
SearchingForward: Boolean;
TmpAttr : TSynHighlighterAttributes;
// for IsContextBracket
MaxKnownTokenPos, LastUsedTokenIdx, TokenListCnt: Integer;
@ -8603,7 +8604,8 @@ var
while (i > 0) and (TokenPosList[i].X > PosX) do
dec(i);
Result := TokenPosList[i].Attr = BracketKind;
LastUsedTokenIdx := i;
if not SearchingForward then
LastUsedTokenIdx := i;
end;
procedure DoMatchingBracketFound;
@ -8652,7 +8654,8 @@ var
PrevPosX := -1;
PrevCnt := 0;
// search until start of line
while PosX > 1 do begin
SearchingForward := False;
while PosX > 1 do begin
Dec(PosX);
Test := Line[PosX];
if (Test = q) and IsContextBracket then begin
@ -8669,6 +8672,8 @@ var
PosX := Len;
Len := Length(Line);
SearchingForward := True;
LastUsedTokenIdx := TokenListCnt;
while PosX < Len do begin
Inc(PosX);
Test := Line[PosX];
@ -8699,6 +8704,7 @@ var
NumBrackets := 1;
if Odd(i) then begin
// closing bracket -> search opening bracket
SearchingForward := False;
repeat
// search until start of line
while PosX > 1 do begin
@ -8727,6 +8733,7 @@ var
until FALSE;
end else begin
// opening bracket -> search closing bracket
SearchingForward := True;
repeat
// search until end of line
Len := Length(Line);