From 53c1df30e07af532133db05ee0254f9c1dae66f7 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sun, 25 Oct 2009 10:48:55 +0100 Subject: Don't leave networking VFS engine on Go Up i.e. triggered by Backspace key or Go Up panel button. Also, the Home panel buttons and Ctrl+/ shortcut will now jump to the root of an engine (local and vfs) instead of hard jump to local root. --- UMain.pas | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/UMain.pas b/UMain.pas index 69220e8..1e46215 100644 --- a/UMain.pas +++ b/UMain.pas @@ -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 -- cgit v1.2.3