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

SynEdit: Mark as changed (change gutter) if deleting line with ecDeleteLine (next line will be marked, like when selection was deleted). Issue #41264

Browse Source
This commit is contained in:
Martin 2025-01-25 23:31:26 +01:00
parent cc4e6da36b
commit 7f4426c2e9
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/synedittextbuffer.pp
View File

@ -1554,6 +1554,10 @@ begin
EditDelete(1, i, length(Strings[i-1]));
DeleteLines(LogY - 1, ACount);
CurUndoList.AddChange(TSynEditUndoTxtLinesDel.Create(LogY, ACount));
i := LogY;
if i >= Count then dec(i);
if i > 0 then
MarkModified(LogY, LogY);
SendNotification(senrEditAction, self, LogY, -ACount, 1, 0, '');
DecIsInEditAction;
end;