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

Improved input line of Find and Replace window.

Browse Source
This commit is contained in:
Margers 2024-09-01 20:24:47 +00:00 committed by Michael Van Canneyt
parent 38e53727f0
commit 12bc43b7b6
1 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
packages/ide/weditor.pas
View File

@ -6950,10 +6950,27 @@ begin
Assigned(FindReplaceEditor) then
Begin
s:=FindReplaceEditor^.GetDisplayText(FindReplaceEditor^.CurPos.Y);
s:=Copy(s,FindReplaceEditor^.CurPos.X + 1 -length(Data^),high(s));
i:=pos(Data^,s);
if i>0 then
begin
i:=FindReplaceEditor^.CurPos.X;
{finds beginning of word}
if i>0 then
while s[i] in ['a'..'z','A'..'Z','0'..'9','_'] do
begin
dec(i);
if i=0 then break;
end;
inc(i);
{step out of white space}
while (s[i] in [' ']) do
begin
inc(i);
if i=length(s) then break;
end;
s:=Copy(s,i-length(Data^),length(s)-(i-length(Data^))+1);
if length(Data^)=0 then
i:=1 {if input line is empty then start from first character of word if any}
else
i:=pos(Data^,s);
if (i>0) and (length(s)>=i+length(Data^)) then begin
s:=Data^+s[i+length(Data^)];
If not assigned(validator) or
Validator^.IsValidInput(s,False) then