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

UPD: replace the check on TFileSystemFileSource with fspDirectAccess in cm_FileProperties and TestArchive.

Browse source
This commit is contained in:
rich2014 2026-06-08 09:30:30 +08:00
commit f5b670bc2d
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/filesources/uarchivefilesourceutil.pas
View file

@ -189,7 +189,7 @@ begin
end
else
// if filesystem
if aFileView.FileSource.IsClass(TFileSystemFileSource) then
if fspDirectAccess in aFileView.FileSource.Properties then
begin
// If archives count > 1 then put to queue
if (aFiles.Count > 1) and (QueueIdentifier = FreeOperationsQueueId) then

2
src/umaincommands.pas
View file

@ -4200,7 +4200,7 @@ var
begin
with frmMain do
begin
if ActiveFrame.FileSource.IsClass(TFileSystemFileSource) then
if fspDirectAccess in ActiveFrame.FileSource.Properties then
begin
SelectedFiles := ActiveFrame.CloneSelectedOrActiveFiles;
if Assigned(SelectedFiles) then