diff options
| -rw-r--r-- | UMain.pas | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -2072,10 +2072,13 @@ begin else Exit; // Close VFS connections - if ((Sender = LeftRootButton) or (Sender = LeftHomeButton)) and (not (LeftPanelEngine is TLocalTreeEngine)) then + if (Sender = LeftHomeButton) and (not (LeftPanelEngine is TLocalTreeEngine)) then while (LeftPanelEngine is TVFSEngine) do CloseVFS(LeftPanel, True); - if ((Sender = RightRootButton) or (Sender = RightHomeButton)) and (not (RightPanelEngine is TLocalTreeEngine)) then + if (Sender = RightHomeButton) and (not (RightPanelEngine is TLocalTreeEngine)) then while (RightPanelEngine is TVFSEngine) do CloseVFS(LeftPanel, True); + if ((Sender = LeftUpButton) and (LeftPanelEngine is TVFSEngine) and (not (LeftPanelEngine as TVFSEngine).ArchiveMode) and (LeftPanelEngine.Path = '/')) or + ((Sender = RightUpButton) and (RightPanelEngine is TVFSEngine) and (not (RightPanelEngine as TVFSEngine).ArchiveMode) and (RightPanelEngine.Path = '/')) + then NewPath := '/'; ChangingDir(LeftPanel, NewPath); if LeftPanel then LeftListView.SetFocus |