paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 07:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: revert 52474 #1c0abfedcb/52478 #2a7afe821b // more precise change indicator gutter. Issue #30152

Browse Source 
git-svn-id: trunk@52761 -
This commit is contained in:
martin 2016-07-31 23:14:11 +00:00
parent 42fe1e0f32
commit 6b321fe144
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/synedittextbuffer.pp
View File

@ -1333,23 +1333,15 @@ end;
procedure TSynEditStringList.EditLineBreak(LogX, LogY: Integer);
var
s: string;
Y1, Y2: Integer;
begin
IncIsInEditAction;
if Count = 0 then Add('');
s := Strings[LogY - 1];
Y1 := LogY;
if LogX - 1 < length(s) then
Strings[LogY - 1] := copy(s, 1, LogX - 1)
else
inc(Y1);
Strings[LogY - 1] := copy(s, 1, LogX - 1);
Insert(LogY, copy(s, LogX, length(s)));
CurUndoList.AddChange(TSynEditUndoTxtLineBreak.Create(LogY));
if LogX > 1 then
Y2 := LogY + 1
else
Y2 := Y1;
MarkModified(Y1, Y2);
MarkModified(LogY, LogY + 1);
SendNotification(senrEditAction, self, LogY, 1, LogX, 0, '');
DecIsInEditAction;
end;