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: the issue of moving files from SearchResult

Browse source
This commit is contained in:
rich2014 2026-06-10 19:24:44 +08:00
commit 5dec42098a
1 changed files with 26 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

34
src/filesources/searchresult/usearchresultfilesource.pas
View file

@ -80,6 +80,21 @@ type
SearchResult CopyOut / TargetFileSource CopyIn / Temp file needed
}
procedure consultCopyOperation( var params: TFileSourceConsultParams );
{
when moving from SearchResult to TargetFileSource, the following needs to be considered:
1. the SearchResult created from a Wcx/Zip doesn't support moving files.
it's limited by DC's philosophy that doesn't support moving files from
WCX/ZIP files to external.
2. only the SearchResult created from FileSource that supports DirectAccess,
such as FileSystemFileSource, supports moving files. it only supports moving outwards,
not moving to SearchResult.
3. only the TargetFileSource that supports DirectAccess supports moving files from
SearchResult. it's also limited by DC's philosophy that doesn't support moving
files to Wcx/Zip.
4. therefore, only one type of movement is currently supported: moving from
SearchResult that supports DirectAccess to TargetFileSource that supports DirectAccess.
}
procedure consultMoveOperation( var params: TFileSourceConsultParams );
public
procedure consultOperation( var params: TFileSourceConsultParams ); override;
@ -115,14 +130,17 @@ begin
if params.phase = TFileSourceConsultPhase.target then
Exit;
if fspDirectAccess in params.sourceFS.Properties then begin
params.resultFS:= params.partnerFS;
params.resultOperationType:= fsoCopyIn;
params.operationTemp:= False;
params.consultResult:= fscrSuccess;
end else begin
Inherited consultOperation( params );
end;
if NOT (fspDirectAccess in params.sourceFS.Properties) then
Exit;
if NOT (fspDirectAccess in params.targetFS.Properties) then
Exit;
params.resultFS:= params.partnerFS;
params.resultOperationType:= fsoMove;
params.operationTemp:= False;
params.consultResult:= fscrSuccess;
params.handled:= False;
end;
procedure TSearchResultFileSourceProcessor.consultOperation( var params: TFileSourceConsultParams);