paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* properly delete last line, resolves #10283

Browse Source 
git-svn-id: trunk@9448 -
This commit is contained in:
florian 2007-12-14 21:44:21 +00:00
parent 124c6c0c13
commit aa29f9245c
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/wcedit.pas
View File

@ -1378,13 +1378,11 @@ begin
end; end;
eaDeleteLine : eaDeleteLine :
begin begin
SetCurPtr(EndPos.X,EndPos.Y);
SetMinMax(EndPos.Y);
HadefNoIndent:=(GetFlags and efNoIndent)<>0; HadefNoIndent:=(GetFlags and efNoIndent)<>0;
WasInserting:=GetInsertMode; WasInserting:=GetInsertMode;
SetInsertMode(true); SetInsertMode(true);
SetFlags(GetFlags or efNoIndent); SetFlags(GetFlags or efNoIndent);
InsertNewLine; InsertLine(StartPos.Y,'');
SetInsertMode(WasInserting); SetInsertMode(WasInserting);
if not HadefNoIndent then if not HadefNoIndent then
SetFlags(GetFlags and not efNoIndent); SetFlags(GetFlags and not efNoIndent);
@ -2062,5 +2060,4 @@ begin
{$endif} {$endif}
end; end;
end.
END.