paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 02:39:15 +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 begin
StartBracket := PhysCaret; StartBracket := PhysCaret;
EndBracket := TCustomSynEdit(SynEdit).FindMatchingBracket(PhysCaret, False, False, False, False); EndBracket := TCustomSynEdit(SynEdit).FindMatchingBracket(PhysCaret, False, False, False, False);
if EndBracket.y < 0 then
StartBracket.y := -1;
Exit; Exit;
end; end;
// check for bracket after caret // check for bracket after caret
@ -144,6 +146,8 @@ begin
begin begin
StartBracket := PhysCaret; StartBracket := PhysCaret;
EndBracket := TCustomSynEdit(SynEdit).FindMatchingBracket(PhysCaret, False, False, False, False); EndBracket := TCustomSynEdit(SynEdit).FindMatchingBracket(PhysCaret, False, False, False, False);
if EndBracket.y < 0 then
StartBracket.y := -1;
end; end;
end; end;
end; end;