From 030483badb3fef85d680ceb4fcfca1684a467dc6 Mon Sep 17 00:00:00 2001
From: Uwe Rathmann <Uwe.Rathmann@tigertal.de>
Date: Mon, 10 Jan 2022 08:46:20 +0100
Subject: [PATCH] wheel + Ctrl/Shift scrolls pagewise

---
 src/controls/QskBoundedInput.cpp | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/controls/QskBoundedInput.cpp b/src/controls/QskBoundedInput.cpp
index b55ec4dd..f62f0a64 100644
--- a/src/controls/QskBoundedInput.cpp
+++ b/src/controls/QskBoundedInput.cpp
@@ -201,13 +201,17 @@ void QskBoundedInput::keyPressEvent( QKeyEvent* event )
 
 void QskBoundedInput::wheelEvent( QWheelEvent* event )
 {
-    if ( !isReadOnly() )
+    if ( isReadOnly() )
     {
-        increment( qskWheelSteps( event ) * m_stepSize );
+        Inherited::wheelEvent( event );
         return;
     }
 
-    Inherited::wheelEvent( event );
+    auto offset = qskWheelSteps( event ) * m_stepSize;
+    if ( event->modifiers() & ( Qt::ControlModifier | Qt::ShiftModifier ) )
+        offset *= m_pageSize;
+
+    increment( offset );
 }
 
 #endif