Allow slash "/" key to trigger panel quicksearch

1 files changed, 5 insertions, 4 deletions

diff --git a/UMain.pas b/UMain.pas
index 78dbcc3..2d436d0 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -1434,10 +1434,11 @@ begin
               end else if Assigned(AListView.Selected) and (AListView.ConvertToSorted(AListView.Selected.Index) = 0) then Accept := False;
     GDK_END: if Assigned(AListView.Selected) and (AListView.ConvertToSorted(AListView.Selected.Index) = AListView.Items.Count - 1) then Accept := False;
     GDK_SLASH, GDK_KP_SLASH: if Shift = [ssCtrl] then begin
-                if LeftPanel then PathButtonClick(LeftRootButton)
-                             else PathButtonClick(RightRootButton);
-                Accept := False;
-               end;
+                               if LeftPanel then PathButtonClick(LeftRootButton)
+                                            else PathButtonClick(RightRootButton);
+                               Accept := False;
+                             end else
+                             if (Shift = []) then ActivateQuickFind(Sender = LeftListView);
 {    GDK_0..GDK_9: if ConfBookmarkQuickJump and (Shift = [ssAlt]) then QuickJumpToBookmark(LeftPanel, Key - GDK_1)
                   else begin
                          Accept := False;