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

SynEdit: Only highlight brackets, if there is a 2nd to the pair

Browse Source 
git-svn-id: trunk@38986 -
This commit is contained in:
martin 2012-10-07 17:02:53 +00:00
parent 90c7b42a02
commit 3751f452d7
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syneditmarkupbracket.pp
View File

@ -130,6 +130,8 @@ begin
begin
StartBracket := PhysCaret;
EndBracket := TCustomSynEdit(SynEdit).FindMatchingBracket(PhysCaret, False, False, False, False);
if EndBracket.y < 0 then
StartBracket.y := -1;
Exit;
end;
// check for bracket after caret
@ -144,6 +146,8 @@ begin
begin
StartBracket := PhysCaret;
EndBracket := TCustomSynEdit(SynEdit).FindMatchingBracket(PhysCaret, False, False, False, False);
if EndBracket.y < 0 then
StartBracket.y := -1;
end;
end;
end;