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

synedit: fixed bracket highlighting on backward search, from Martin Friebe, bug #11736

Browse Source 
git-svn-id: trunk@15858 -
This commit is contained in:
mattias 2008-07-24 16:15:49 +00:00
parent fce0a5e771
commit a15799bceb
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/synedit.pp
View File

@ -10636,7 +10636,7 @@ var
// Init the Highlighter only once per line
if MaxKnownTokenPos < 1 then begin
fHighlighter.SetRange(TSynEditStringList(Lines).Ranges[PosY - 1]);
fHighlighter.SetLine(Line, PosY);
fHighlighter.SetLine(Line, PosY - 1);
TokenListCnt := 0;
end
else
@ -10847,10 +10847,7 @@ begin
if Assigned(Highlighter) and (PosY >= 0) and (PosY < Lines.Count) then
begin
Line := Lines[PosY];
if PosY = 0 then
Highlighter.ResetRange
else
Highlighter.SetRange(TSynEditStringList(Lines).Ranges[PosY - 1]);
Highlighter.SetRange(TSynEditStringList(Lines).Ranges[PosY ]);
Highlighter.SetLine(Line, PosY);
PosX := XY.X;
if (PosX > 0) and (PosX <= Length(Line)) then