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

* fix for bug report 2000

Browse Source
This commit is contained in:
pierre 2002-08-26 13:40:15 +00:00
parent 43c0474872
commit 95bb7e4066
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/wcedit.pas
View File

@ -1334,9 +1334,12 @@ begin
begin
{ reinsert deleted text }
SetCurPtr(EndPos.X,EndPos.Y);
WasInserting:=GetInsertMode;
SetInsertMode(true);
if assigned(text) then
for Temp := 1 to length(Text^) do
AddChar(Text^[Temp]);
SetInsertMode(WasInserting);
SetMinMax(EndPos.Y);
SetCurPtr(StartPos.X,StartPos.Y);
end;
@ -2047,7 +2050,10 @@ end;
END.
{
$Log$
Revision 1.10 2002-08-26 13:01:39 pierre
Revision 1.11 2002-08-26 13:40:15 pierre
* fix for bug report 2000
Revision 1.10 2002/08/26 13:01:39 pierre
+ fill the Now field for Editor actions
Revision 1.9 2002/04/20 20:27:44 pierre