forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix upstream reg after adding the selection as search & replace scope

This commit is contained in:
Basile Burg 2019-03-31 14:02:51 +02:00
parent 6fa4cf43f5
commit d426bca8d5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/u_search.pas
View File

@ -594,11 +594,16 @@ begin
fDoc.OnReplaceText := @replaceEvent fDoc.OnReplaceText := @replaceEvent
else if fFindScope = scSel then else if fFindScope = scSel then
begin begin
fDoc.CaretXY := fDocSelStart;
fDoc.OnReplaceText := @replaceInSelEvent; fDoc.OnReplaceText := @replaceInSelEvent;
// the event only called if ssoPrompt is included // the event only called if ssoPrompt is included
opts += [ssoPrompt]; opts += [ssoPrompt];
end; end;
fDoc.CaretXY := fDocSelStart; if fFindScope <> scSel then
begin
fDoc.CaretXY := Point(1,1);
fDocSelStop := Point(high(integer), high(integer));
end;
while(true) do while(true) do
begin begin
if fDoc.SearchReplace(fToFind, fReplaceWth, opts) = 0 then if fDoc.SearchReplace(fToFind, fReplaceWth, opts) = 0 then