Windows 10だと艦娘一覧でマウスホイールが効かないのを直す

diff --git a/KancolleSniffer/ListForm.cs b/KancolleSniffer/ListForm.cs
index 7b23478..023dedb 100644 (file)
--- a/KancolleSniffer/ListForm.cs
+++ b/KancolleSniffer/ListForm.cs
@@ -228,7 +228,7 @@ namespace KancolleSniffer
             }\r
             else\r
             {\r
-                ActiveControl = shipListPanel.ScrollBar;\r
+                ActiveControl = shipListPanel;\r
             }\r
         }\r
 \r

diff --git a/KancolleSniffer/ShipListPanel.cs b/KancolleSniffer/ShipListPanel.cs
index 91f1d53..c7f3666 100644 (file)
--- a/KancolleSniffer/ShipListPanel.cs
+++ b/KancolleSniffer/ShipListPanel.cs
@@ -40,18 +40,9 @@ namespace KancolleSniffer
 \r
         public ScrollBar ScrollBar { get; }\r
 \r
-        private class FastWheelScrollBar : VScrollBar\r
-        {\r
-            protected override void OnMouseWheel(MouseEventArgs ev)\r
-            {\r
-                Value = Math.Max(Minimum, Math.Min(Maximum - LargeChange + 1,\r
-                    Value - ev.Delta * SystemInformation.MouseWheelScrollLines / 120));\r
-            }\r
-        }\r
-\r
         public ShipListPanel()\r
         {\r
-            ScrollBar = new FastWheelScrollBar {Dock = DockStyle.Right, Visible = false};\r
+            ScrollBar = new VScrollBar {Dock = DockStyle.Right, Visible = false};\r
             ScrollBar.ValueChanged += ScrollBarOnValueChanged;\r
             Controls.Add(ScrollBar);\r
         }\r
@@ -70,6 +61,12 @@ namespace KancolleSniffer
             SetShipLabels();\r
         }\r
 \r
+        protected override void OnMouseWheel(MouseEventArgs e)\r
+        {\r
+            ScrollBar.Value = Math.Max(ScrollBar.Minimum, Math.Min(ScrollBar.Maximum - ScrollBar.LargeChange + 1,\r
+                ScrollBar.Value - e.Delta * SystemInformation.MouseWheelScrollLines / 120));\r
+        }\r
+\r
         public void Update(Sniffer sniffer, string mode, ListForm.SortOrder sortOrder, bool byShipType)\r
         {\r
             _mode = mode;\r