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

* use always insert mode when replacing text, resolves #9476

Browse Source 
git-svn-id: trunk@8798 -
This commit is contained in:
florian 2007-10-14 16:22:39 +00:00
parent 3744241d04
commit 792f07c7c8
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/weditor.pas
View File

@ -6051,6 +6051,7 @@ var S: string;
Re: word;
IFindStr : string;
BT : BTable;
Overwriting : boolean;
function ContainsText(const SubS:string;var S: string; Start: Sw_integer): Sw_integer;
var
@ -6302,6 +6303,9 @@ begin
if CanReplace then
begin
Lock;
{ don't use SetInsertMode here because it changes the cursor shape }
overwriting:=(GetFlags and efInsertMode)=0;
SetFlags(GetFlags or efInsertMode);
SetSelection(A,B);
DelSelect;
InsertText(ReplaceStr);
@ -6315,6 +6319,8 @@ begin
X:=A.X;
Y:=A.Y;
end;
if overwriting then
SetFlags(GetFlags and (not efInsertMode));
UnLock;
end
else