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