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: File search by some masks

Browse source
This commit is contained in:
Alexander Koblov 2009-05-21 07:13:22 +00:00
commit d5bc3eea7b
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ufindthread.pas
View file

@ -375,12 +375,9 @@ begin
if FRegExp and not ExecRegExpr(FFileMask, sr.Name) then
Exit(False);
{$IFDEF MSWINDOWS}
(* This is hack *)
//DebugLn('File = ', sr.Name);
if (not FRegExp) and (not MatchesMaskList(sr.Name, FFileMask)) then
Exit(False);
{$ENDIF}
if (FIsDateFrom or FIsDateTo or FIsTimeFrom or FIsTimeTo) then
Result := CheckFileDate(sr.Time);
@ -466,7 +463,7 @@ begin
Inc(FCurrentDepth);
// if regular expression then search all files
if FRegExp then
if FRegExp or (Pos(';', FFileMask) <> 0) then
Path := sNewDir + PathDelim + '*'
else
Path := sNewDir + PathDelim + FFileMask;