Add mouse wheel scrolling

CnCNet · May 15, 2022 · 2a63c12 · 2a63c12
1 parent 023e80d
commit 2a63c12
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/DXMainClient/DXGUI/Multiplayer/QuickMatch/QuickMatchMapList.cs b/DXMainClient/DXGUI/Multiplayer/QuickMatch/QuickMatchMapList.cs
@@ -11,6 +11,7 @@ namespace DTAClient.DXGUI.Multiplayer.QuickMatch
 {
     public class QuickMatchMapList : INItializableWindow
     {
+        private const int ScrollRate = 6;
         public const int ItemHeight = 22;
         public event EventHandler<QmMapSelectedEventArgs> MapSelected;
 
@@ -30,6 +31,27 @@ public override void Initialize()
             scrollBar.ClientRectangle = new Rectangle(Width - scrollBar.ScrollWidth - 1, 1, scrollBar.ScrollWidth, Height - 2);
             scrollBar.Scrolled += ScrollBarScrolled;
             AddChild(scrollBar);
+
+            MouseScrolled += OnMouseScrolled;
+        }
+
+        private void OnMouseScrolled(object sender, EventArgs e)
+        {
+            int scrollWheelValue = Cursor.ScrollWheelValue;
+            int viewTop = scrollBar.ViewTop - (scrollWheelValue * ScrollRate);
+            int maxViewTop = scrollBar.Length - scrollBar.DisplayedPixelCount;
+
+            if (viewTop < 0)
+                viewTop = 0;
+            else if (viewTop > maxViewTop)
+                viewTop = maxViewTop;
+
+            if (viewTop == scrollBar.ViewTop)
+                return;
+
+            scrollBar.ViewTop = viewTop;
+            RefreshScrollbar();
+            RefreshItemLocations();
         }
 
         public void AddItem(QuickMatchMapItem item)