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

fix #194 - search, problem with consecutive matches

This commit is contained in:
Basile Burg 2017-10-25 05:07:39 +02:00
parent 6c27ffbc95
commit 23652be83b
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_search.pas
View File

@ -376,7 +376,7 @@ procedure TCESearchWidget.actFindNextExecute(sender: TObject);
begin begin
if fDoc.isNil then exit; if fDoc.isNil then exit;
// //
fSearchMru.Insert(0,fToFind); fSearchMru.Insert(0, fToFind);
cbToFind.Items.Assign(fSearchMru); cbToFind.Items.Assign(fSearchMru);
// //
if not chkFromCur.Checked then if not chkFromCur.Checked then
@ -386,7 +386,7 @@ begin
else else
begin begin
if not fHasRestarted then if not fHasRestarted then
fDoc.CaretXY := Point(0,0); fDoc.CaretXY := Point(1,1);
fHasRestarted := true; fHasRestarted := true;
end; end;
end end
@ -395,7 +395,7 @@ begin
if chkBack.Checked then if chkBack.Checked then
fDoc.CaretX := fDoc.CaretX - 1 fDoc.CaretX := fDoc.CaretX - 1
else else
fDoc.CaretX := fDoc.CaretX + fToFind.length; fDoc.CaretX := fDoc.CaretX + 1;
end; end;
if fDoc.SearchReplace(fToFind, '', getOptions) = 0 then if fDoc.SearchReplace(fToFind, '', getOptions) = 0 then
dlgOkInfo('the expression cannot be found') dlgOkInfo('the expression cannot be found')