paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 23:25:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Marģers: fix undo of deleting of lines in the text mode ide, resolves #24663

Browse Source 
git-svn-id: trunk@40730 -
This commit is contained in:
florian 2019-01-01 16:04:20 +00:00
parent ff8ccb06e5
commit 22efab7b1a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/ide/wcedit.pas
View File

@ -1386,13 +1386,14 @@ begin
WasInserting:=GetInsertMode; WasInserting:=GetInsertMode;
SetInsertMode(true); SetInsertMode(true);
SetFlags(GetFlags or efNoIndent); SetFlags(GetFlags or efNoIndent);
InsertLine(StartPos.Y,''); InsertLine(StartPos.Y,GetStr(Text));
SetInsertMode(WasInserting); SetInsertMode(WasInserting);
if not HadefNoIndent then if not HadefNoIndent then
SetFlags(GetFlags and not efNoIndent); SetFlags(GetFlags and not efNoIndent);
{DelEnd; wrong for eaCut at least } {DelEnd; wrong for eaCut at least }
SetCurPtr(StartPos.X,StartPos.Y); SetCurPtr(StartPos.X,StartPos.Y);
SetLineText(StartPos.Y,Copy(GetDisplayText(StartPos.Y),1,StartPos.X)+GetStr(Text)); if StartPos.Y > EndPos.Y then
SetLineText(EndPos.Y,Copy(GetDisplayText(EndPos.Y),1,EndPos.X));
SetMinMax(StartPos.Y); SetMinMax(StartPos.Y);
end; end;
eaSelectionChanged : eaSelectionChanged :