paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 21:17:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

* InsertFrom bug (end of line wasdiscarded)

Browse Source
This commit is contained in:
pierre 1999-10-08 15:24:50 +00:00
parent e8f2eba064
commit a32b46cb5e
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/text/weditor.pas
View File

@ -3599,6 +3599,9 @@ begin
VerticalBlock:=(Editor^.Flags and efVerticalBlocks)<>0;
LineDelta:=0; LineCount:=(Editor^.SelEnd.Y-Editor^.SelStart.Y)+1;
OK:=GetLineCount<MaxLineCount;
OrigS:=GetDisplayText(DestPos.Y);
AfterS:=Copy(OrigS,DestPos.X+1,255);
{ BUG:: this is wrong if we do not insert at begin of line !!! PM }
while OK and (LineDelta<LineCount) do
begin
@ -3626,12 +3629,7 @@ begin
Min(LineEndX-LineStartX+1,255));
if VerticalBlock=false then
begin
If LineDelta=0 then
begin
OrigS:=GetDisplayText(DestPos.Y);
AfterS:=Copy(OrigS,DestPos.X+1,255);
end
else
If LineDelta>0 then
OrigS:='';
if LineDelta=LineCount-1 then
SetLineText(DestPos.Y,RExpand(copy(OrigS,1,DestPos.X),DestPos.X)+S+AfterS)
@ -4477,7 +4475,10 @@ end;
END.
{
$Log$
Revision 1.50 1999-09-28 23:44:13 pierre
Revision 1.51 1999-10-08 15:24:50 pierre
* InsertFrom bug (end of line wasdiscarded)
Revision 1.50 1999/09/28 23:44:13 pierre
* text insertion in middle of line was buggy
Revision 1.49 1999/09/23 16:33:30 pierre