paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 01:17:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed bracket highlight for ecLineStart/End

Browse Source 
git-svn-id: trunk@305 -
This commit is contained in:
lazarus 2001-06-30 07:45:25 +00:00
parent ea4fbda20b
commit 02ecb0641f
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedit.pp
View File

@ -4817,12 +4817,18 @@ begin
MoveCaretAndSelection(CaretXY, Point(1, CaretY),
Command = ecSelLineStart);
fLastCaretX := fCaretX;
{$IFDEF SYN_LAZARUS}
if eoBracketHighlight in fOptions then Update;
{$ENDIF}
end;
ecLineEnd, ecSelLineEnd:
begin
MoveCaretAndSelection(CaretXY, Point(1 + Length(LineText), CaretY),
Command = ecSelLineEnd);
fLastCaretX := fCaretX;
{$IFDEF SYN_LAZARUS}
if eoBracketHighlight in fOptions then Update;
{$ENDIF}
end;
{end} //mh 2000-10-19
// vertical caret movement or selection