浏览代码

FIX: Copy/Cut to clipboard from search results

Alexander Koblov 11 年之前
父节点
当前提交
ec8ec7dfce
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      src/umaincommands.pas

+ 2 - 2
src/umaincommands.pas

@@ -2784,14 +2784,14 @@ begin
   Result := False;
   Result := False;
 
 
   with frmMain.ActiveFrame do
   with frmMain.ActiveFrame do
-  if FileSource.IsClass(TFileSystemFileSource) then
+  if (fspDirectAccess in FileSource.Properties) then
   begin
   begin
     sl := TStringList.Create;
     sl := TStringList.Create;
     try
     try
       theSelectedFiles := CloneSelectedOrActiveFiles;
       theSelectedFiles := CloneSelectedOrActiveFiles;
 
 
       for i := 0 to theSelectedFiles.Count - 1 do
       for i := 0 to theSelectedFiles.Count - 1 do
-        sl.Add(CurrentPath + theSelectedFiles[i].Name);
+        sl.Add(theSelectedFiles[i].FullPath);
 
 
       case ClipboardMode of
       case ClipboardMode of
         uClipboard.ClipboardCut:
         uClipboard.ClipboardCut: