From 161357d33119e33c30ec48576c1dc9d4b1dbaf05 Mon Sep 17 00:00:00 2001
From: Thomas Bernard <miniupnp@free.fr>
Date: Fri, 22 Jun 2018 02:31:36 +0200
Subject: [PATCH] Win32: support Key modifiers and mouse wheel

---
 src/win32screen.c | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/src/win32screen.c b/src/win32screen.c
index f38dbcac..61566fd3 100644
--- a/src/win32screen.c
+++ b/src/win32screen.c
@@ -131,10 +131,21 @@ static LRESULT CALLBACK Win32_WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LP
   case WM_MBUTTONDOWN:
   //case WM_MBUTTONUP:
     Key = KEY_MOUSEMIDDLE|Get_Key_modifiers();
+    user_feedback_required = 1;
+    return 0;
+  case WM_MOUSEWHEEL:
+    {
+      short delta = HIWORD(wParam);
+      if (delta > 0)
+        Key = KEY_MOUSEWHEELUP|Get_Key_modifiers();
+      else
+        Key = KEY_MOUSEWHEELDOWN|Get_Key_modifiers();
+    }
+    user_feedback_required = 1;
     return 0;
 // WM_MBUTTONDBLCLK
   case WM_KEYDOWN:  // lParam & 0xffff => repeat count.   (lParam >> 16) & 0x1ff => scancode
-    Key = wParam;
+    Key = wParam|Get_Key_modifiers();
     user_feedback_required = 1;
     return 0;
   case WM_KEYUP: