Fix flickable pages keyboard scrolling

src/gui/Pages/AccountSettings/Sessions.qml

@@ -1,10 +1,12 @@
 // SPDX-License-Identifier: LGPL-3.0-or-later
 
 import QtQuick 2.12
+import QtQuick.Controls 2.12
 import QtQuick.Layouts 1.12
 import "../../Base"
 import "../../Base/ButtonLayout"
 import "../../PythonBridge"
+import "../../ShortcutBundles"
 
 HColumnPage {
     id: page
@@ -19,6 +21,9 @@ HColumnPage {
 
     property string userId
 
+    property bool enableFlickShortcuts:
+        SwipeView ? SwipeView.isCurrentItem : true
+
     property Future loadFuture: null
 
     // property var pr: column.childrenRect.height
@@ -112,6 +117,12 @@ HColumnPage {
         Layout.fillWidth: true
         Layout.fillHeight: true
 
+        FlickShortcuts {
+            flickable: deviceList
+            active:
+                ! mainUI.debugConsole.visible && page.enableFlickShortcuts
+        }
+
         HLoader {
             id: busyIndicatorLoader
             anchors.centerIn: parent