Timeline: scroll faster with mouse wheel

An easy-going vertical wheel scroll over the timeline is expected by
the users even if shuttleDial is enabled.

Author: rpallai

client/qml/Timeline.qml

@@ -262,6 +262,16 @@ Rectangle {
                 contentY = Math.min(originY + contentHeight - height,
                                     contentY + height)
             }
+            function onWheel(wheel) {
+                var yDelta = wheel.angleDelta.y / 120 * 100
+
+                if (yDelta > 0) {
+                    contentY = Math.max(originY, contentY - yDelta)
+                } else {
+                    contentY = Math.min(contentY + (originY + contentHeight) - (contentY + height),
+                                        contentY + Math.abs(yDelta))
+                }
+            }
             Connections {
                 target: controller
                 onPageUpPressed: chatView.pageUp()
@@ -353,6 +363,18 @@ Rectangle {
             }
         }
     }
+    MouseArea {
+        anchors.fill: chatScrollView
+        acceptedButtons: Qt.NoButton
+        onWheel: {
+            if (wheel.angleDelta.x == 0) {
+                chatView.onWheel(wheel)
+                wheel.accepted = true
+            } else {
+                wheel.accepted = false
+            }
+        }
+    }
     Slider {
         id: shuttleDial
         orientation: Qt.Vertical