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

* fix for DelChar past end of line

Browse Source
This commit is contained in:
pierre 2000-02-09 12:56:54 +00:00
parent 6d8e13cacb
commit 1cdd21c0ff
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/text/weditor.pas
View File

@ -2648,11 +2648,11 @@ begin
HoldUndo:=StoreUndo;
StoreUndo:=false;
S:=GetLineText(CurPos.Y);
if CurPos.X=length(S) then
if CurPos.X>=length(S) then
begin
if CurPos.Y<GetLineCount-1 then
begin
SetLineText(CurPos.Y,S+GetLineText(CurPos.Y+1));
SetLineText(CurPos.Y,S+CharStr(' ',CurPOS.X-Length(S))+GetLineText(CurPos.Y+1));
StoreUndo:=HoldUndo;
SCP.X:=0;SCP.Y:=CurPos.Y+1;
AddAction(eaDeleteLine,SCP,CurPos,GetLineText(CurPos.Y+1));
@ -5613,7 +5613,10 @@ end;
END.
{
$Log$
Revision 1.80 2000-02-07 12:11:15 pierre
Revision 1.81 2000-02-09 12:56:54 pierre
* fix for DelChar past end of line
Revision 1.80 2000/02/07 12:11:15 pierre
Gabors changes
Revision 1.79 2000/02/05 14:50:59 florian