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

* problem with Paste solved

Browse Source
This commit is contained in:
pierre 2000-01-10 23:20:04 +00:00
parent 55ce17b756
commit c0f405ad93
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/text/weditor.pas
View File

@ -4473,8 +4473,7 @@ begin
while OK and (LineDelta<LineCount) do while OK and (LineDelta<LineCount) do
begin begin
if (LineDelta<LineCount-1) and (VerticalBlock=false) then if (LineDelta>0) and (VerticalBlock=false) then
if (LineDelta<>0) or (Editor^.SelEnd.X=0) then
begin begin
Lines^.AtInsert(DestPos.Y,NewLine('')); Lines^.AtInsert(DestPos.Y,NewLine(''));
BPos.X:=0;BPos.Y:=DestPos.Y; BPos.X:=0;BPos.Y:=DestPos.Y;
@ -5518,7 +5517,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.73 2000-01-10 13:25:46 pierre Revision 1.74 2000-01-10 23:20:04 pierre
* problem with Paste solved
Revision 1.73 2000/01/10 13:25:46 pierre
+ first partial syntax test + first partial syntax test
Revision 1.72 2000/01/07 00:19:30 pierre Revision 1.72 2000/01/07 00:19:30 pierre