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

search from beg/end only the first hit

This commit is contained in:
Basile Burg 2014-08-09 23:33:10 +02:00
parent 240c08a61e
commit 98253a3d30
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_search.pas
View File

@ -37,6 +37,7 @@ type
fSearchMru, fReplaceMru: TMruList; fSearchMru, fReplaceMru: TMruList;
fCancelAll: boolean; fCancelAll: boolean;
fHasSearched: boolean; fHasSearched: boolean;
fHasRestarted: boolean;
procedure optset_SearchMru(aReader: TReader); procedure optset_SearchMru(aReader: TReader);
procedure optget_SearchMru(aWriter: TWriter); procedure optget_SearchMru(aWriter: TWriter);
procedure optset_ReplaceMru(aReader: TReader); procedure optset_ReplaceMru(aReader: TReader);
@ -189,7 +190,11 @@ begin
if chkBack.Checked then if chkBack.Checked then
fEditor.CaretXY := Point(high(Integer), high(Integer)) fEditor.CaretXY := Point(high(Integer), high(Integer))
else else
begin
if not fHasRestarted then
fEditor.CaretXY := Point(0,0); fEditor.CaretXY := Point(0,0);
fHasRestarted := true;
end;
end end
else if fHasSearched then else if fHasSearched then
begin begin
@ -200,7 +205,12 @@ begin
end; end;
if fEditor.SearchReplace(fToFind, '', getOptions) = 0 then if fEditor.SearchReplace(fToFind, '', getOptions) = 0 then
dlgOkInfo('the expression cannot be found') dlgOkInfo('the expression cannot be found')
else fHasSearched := true; else
begin
fHasSearched := true;
fHasRestarted := false;
chkFromCur.Checked := true;
end;
UpdateByEvent; UpdateByEvent;
end; end;