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

SynEdit: more precise change indicator gutter. Issue #30152

Browse Source 
git-svn-id: trunk@52478 -
This commit is contained in:
martin 2016-06-12 01:51:51 +00:00
parent 26ab38896c
commit 2a7afe821b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synedittextbuffer.pp
View File

@ -1345,9 +1345,10 @@ begin
inc(Y1);
Insert(LogY, copy(s, LogX, length(s)));
CurUndoList.AddChange(TSynEditUndoTxtLineBreak.Create(LogY));
Y2 := LogY;
if LogX > 1 then
inc(Y2);
Y2 := LogY + 1
else
Y2 := Y1;
MarkModified(Y1, Y2);
SendNotification(senrEditAction, self, LogY, 1, LogX, 0, '');
DecIsInEditAction;