浏览代码

UPD: jump to Home directory instead of Root directory after unmounting the driver (#863)

rich2014 2 年之前
父节点
当前提交
55191ab158
共有 1 个文件被更改,包括 4 次插入4 次删除
  1. 4 4
      src/platform/unix/ushellcontextmenu.pas

+ 4 - 4
src/platform/unix/ushellcontextmenu.pas

@@ -71,11 +71,11 @@ implementation
 uses
 uses
   LCLProc, Dialogs, Graphics, uFindEx, uDCUtils, uShowMsg, uFileSystemFileSource,
   LCLProc, Dialogs, Graphics, uFindEx, uDCUtils, uShowMsg, uFileSystemFileSource,
   uOSUtils, uFileProcs, uShellExecute, uLng, uPixMapManager, uMyUnix, uOSForms,
   uOSUtils, uFileProcs, uShellExecute, uLng, uPixMapManager, uMyUnix, uOSForms,
-  fMain, fFileProperties, DCOSUtils, DCStrUtils, uExts, uArchiveFileSourceUtil
+  fMain, fFileProperties, DCOSUtils, DCStrUtils, uExts, uArchiveFileSourceUtil, uSysFolders
   {$IF DEFINED(DARWIN)}
   {$IF DEFINED(DARWIN)}
   , MacOSAll
   , MacOSAll
   {$ELSEIF NOT DEFINED(HAIKU)}
   {$ELSEIF NOT DEFINED(HAIKU)}
-  , uKeyFile, uMimeActions, uSysFolders
+  , uKeyFile, uMimeActions
     {$IF DEFINED(LINUX)}
     {$IF DEFINED(LINUX)}
   , uRabbitVCS
   , uRabbitVCS
     {$ENDIF}
     {$ENDIF}
@@ -215,14 +215,14 @@ begin
   begin
   begin
     if IsInPath(FDrive.Path, frmMain.ActiveFrame.CurrentPath, True, True) then
     if IsInPath(FDrive.Path, frmMain.ActiveFrame.CurrentPath, True, True) then
     begin
     begin
-      frmMain.ActiveFrame.CurrentPath:= PathDelim;
+      frmMain.ActiveFrame.CurrentPath:= GetHomeDir;
     end;
     end;
   end;
   end;
   if frmMain.NotActiveFrame.FileSource.IsClass(TFileSystemFileSource) then
   if frmMain.NotActiveFrame.FileSource.IsClass(TFileSystemFileSource) then
   begin
   begin
     if IsInPath(FDrive.Path, frmMain.NotActiveFrame.CurrentPath, True, True) then
     if IsInPath(FDrive.Path, frmMain.NotActiveFrame.CurrentPath, True, True) then
     begin
     begin
-      frmMain.NotActiveFrame.CurrentPath:= PathDelim;
+      frmMain.NotActiveFrame.CurrentPath:= GetHomeDir;
     end;
     end;
   end
   end
 end;
 end;