mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Find files.

Browse source
This commit is contained in:
cobines 2012-04-22 08:35:20 +00:00
commit 4310ba018b
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/fFindDlg.pas
View file

@ -781,6 +781,7 @@ var
sTemp,
sPath : UTF8String;
sr: TDsxSearchRecord;
SearchTemplate: TSearchTemplateRec;
begin
sTemp:= edtFindPathStart.Text;
repeat
@ -822,15 +823,19 @@ begin
btnClose.Enabled:= False;
btnNewSearch.Enabled:= False;
FillFindOptions(SearchTemplate, True);
if not Assigned(FLastSearchTemplate) then
FLastSearchTemplate := TSearchTemplate.Create;
FillFindOptions(FLastSearchTemplate.SearchRecord, False);
FLastSearchTemplate.SearchRecord := SearchTemplate;
FLastSearchTemplate.SearchRecord.StartPath := ''; // Don't remember starting path.
try
if (cbUsePlugin.Checked) and (cmbPlugin.ItemIndex<>-1) then
begin
if DSXPlugins.LoadModule(cmbPlugin.ItemIndex) then
begin
FindOptionsToDSXSearchRec(FLastSearchTemplate.SearchRecord, sr);
FindOptionsToDSXSearchRec(SearchTemplate, sr);
DSXPlugins.GetDSXModule(cmbPlugin.ItemIndex).CallInit(@SAddFileProc,@SUpdateStatusProc);
DSXPlugins.GetDSXModule(cmbPlugin.ItemIndex).CallStartSearch(sr);
end
@ -839,7 +844,7 @@ begin
end
else
begin
FFindThread := TFindThread.Create(FLastSearchTemplate.SearchRecord);
FFindThread := TFindThread.Create(SearchTemplate);
with FFindThread do
begin
Items := FoundedStringCopy;