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: simplify TMountedFileSourceProcessor.detectIfSupportOperation() by TFiles.params.files.allFilesAtSamePath()

Browse source
This commit is contained in:
rich2014 2026-06-12 19:23:53 +08:00
commit 3276638149
1 changed files with 12 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

34
src/filesources/mounted/umountedfilesource.pas
View file

@ -312,36 +312,26 @@ end;
procedure TMountedFileSourceProcessor.detectIfSupportOperation(
var params: TFileSourceConsultParams);
var
files: TFiles;
i: Integer;
path: String;
begin
if params.phase<>TFileSourceConsultPhase.source then
Exit;
if NOT params.partnerFS.IsClass(TWcxArchiveFileSource) then
if fspDirectAccess in params.partnerFS.Properties then
Exit;
files:= params.files;
if files.Count = 1 then
if params.files.allFilesAtSamePath then
Exit;
path:= files[0].Path;
for i:=1 to files.Count-1 do begin
if files[i].Path = path then
continue;
MessageDlg(
rsMountedFileSourceCopyMultiFilesToWcxDlgTitle,
rsMountedFileSourceCopyMultiFilesToWcxDlgMessage,
mtInformation,
[mbOK],
0 );
MessageDlg(
rsMountedFileSourceCopyMultiFilesToWcxDlgTitle,
rsMountedFileSourceCopyMultiFilesToWcxDlgMessage,
mtInformation,
[mbOK],
0 );
params.consultResult:= fscrCancel;
params.handled:= True;
Exit;
end;
params.consultResult:= fscrCancel;
params.handled:= True;
Exit;
end;
procedure TMountedFileSourceProcessor.consultCopyOperation(var params: TFileSourceConsultParams);