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

ADD: Move files from search result

Browse source
This commit is contained in:
Alexander Koblov 2018-09-15 16:19:22 +00:00
commit 4cdc8a1aa2
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/fmain.pas
View file

@ -864,7 +864,7 @@ implementation
{$R *.lfm}
uses
uFileProcs, uShellContextMenu, fTreeViewMenu,
uFileProcs, uShellContextMenu, fTreeViewMenu, uSearchResultFileSource,
Math, LCLIntf, Dialogs, uGlobs, uLng, uMasks, fCopyMoveDlg, uQuickViewPanel,
uShowMsg, uDCUtils, uLog, uGlobsPaths, LCLProc, uOSUtils, uPixMapManager, LazUTF8,
uDragDropEx, uKeyboard, uFileSystemFileSource, fViewOperations, uMultiListFileSource,
@ -3412,6 +3412,10 @@ var
begin
Result := False;
try
// Special case for Search Result File Source
if SourceFileSource.IsClass(TSearchResultFileSource) then begin
SourceFileSource:= ISearchResultFileSource(SourceFileSource).FileSource;
end;
// Only allow moving within the same file source.
if (SourceFileSource.IsInterface(TargetFileSource) or
TargetFileSource.IsInterface(SourceFileSource)) and