mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Copy files by template

Browse source
This commit is contained in:
Alexander Koblov 2015-12-07 18:48:48 +00:00
commit 3823d07d46
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/filesources/ufilesourcetreebuilder.pas
View file

@ -239,9 +239,14 @@ var
begin
if Assigned(FFileTemplate) then
begin
Matches := CheckFile(FFileTemplate.SearchRecord, FFileChecks, aFile);
if Matches and (AFile.IsDirectory or AFile.IsLinkToDirectory) then
Matches := CheckDirectoryNameRelative(FFileChecks, aFile.FullPath, FRootDir);
if AFile.IsDirectory or AFile.IsLinkToDirectory then
begin
Matches := CheckDirectoryName(FFileChecks, aFile.Name) and
CheckDirectoryNameRelative(FFileChecks, aFile.FullPath, FRootDir);
end
else begin
Matches := CheckFile(FFileTemplate.SearchRecord, FFileChecks, aFile);
end;
if not Matches then
begin
(CurrentNode.Data as TFileTreeNodeData).SubnodesHaveExclusions := True;