OSDN Git Service

using var を使用する
[opentween/open-tween.git] / OpenTween / MouseWheelMessageFilter.cs
1 // OpenTween - Client of Twitter
2 // Copyright (c) 2015 kim_upsilon (@kim_upsilon) <https://upsilo.net/~upsilon/>
3 // All rights reserved.
4 //
5 // This file is part of OpenTween.
6 //
7 // This program is free software; you can redistribute it and/or modify it
8 // under the terms of the GNU General Public License as published by the Free
9 // Software Foundation; either version 3 of the License, or (at your option)
10 // any later version.
11 //
12 // This program is distributed in the hope that it will be useful, but
13 // WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
14 // or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 // for more details.
16 //
17 // You should have received a copy of the GNU General Public License along
18 // with this program. If not, see <http://www.gnu.org/licenses/>, or write to
19 // the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
20 // Boston, MA 02110-1301, USA.
21
22 using System;
23 using System.Collections.Generic;
24 using System.Drawing;
25 using System.Linq;
26 using System.Reflection;
27 using System.Text;
28 using System.Threading.Tasks;
29 using System.Windows.Forms;
30
31 namespace OpenTween
32 {
33     /// <summary>
34     /// コントロールにフォーカスが当たってなくても無理矢理 MouseWheel イベントを発生させるクラス
35     /// </summary>
36     public class MouseWheelMessageFilter : IMessageFilter
37     {
38         private readonly List<Control> controls = new List<Control>();
39
40         public MouseWheelMessageFilter()
41             => Application.AddMessageFilter(this);
42
43         public void Register(Control target)
44             => this.controls.Add(target);
45
46         public void Unregister(Control target)
47             => this.controls.Remove(target);
48
49         public bool PreFilterMessage(ref Message m)
50         {
51             const int WM_MOUSEWHEEL = 0x020A;
52
53             if (m.Msg == WM_MOUSEWHEEL)
54             {
55                 foreach (var control in this.controls)
56                 {
57                     var details = ParseMessage(m);
58                     var controlRectangle = control.Parent.RectangleToScreen(control.DisplayRectangle);
59                     if (controlRectangle.Contains(details.ScreenLocation))
60                     {
61                         var clientLocation = control.PointToClient(details.ScreenLocation);
62
63                         var ev = new HandledMouseEventArgs(MouseButtons.None, 0, clientLocation.X, clientLocation.Y, details.WheelDelta);
64                         this.RaiseMouseWheelEvent(control, ev);
65
66                         // フォーカスが当たっているか否かに関わらず OnMouseWheel イベントを発生させているため、
67                         // 二重にイベントが発生することを防ぐために標準のメッセージ処理は抑制する
68                         return true;
69                     }
70                 }
71             }
72
73             return false;
74         }
75
76         internal class MouseEvent
77         {
78             public Point ScreenLocation { get; }
79             public int WheelDelta { get; }
80
81             public MouseEvent(Point location, int delta)
82             {
83                 this.ScreenLocation = location;
84                 this.WheelDelta = delta;
85             }
86         }
87
88         internal static MouseEvent ParseMessage(Message m)
89         {
90             var screenLocation = new Point((int)(m.LParam.ToInt64() & 0xffffffff));
91             var wheelDelta = (int)(m.WParam.ToInt64() & 0xffff0000) >> 16;
92
93             return new MouseEvent(screenLocation, wheelDelta);
94         }
95
96         public void RaiseMouseWheelEvent(Control control, MouseEventArgs e)
97         {
98             var method = typeof(Control).GetMethod("OnMouseWheel", BindingFlags.Instance | BindingFlags.NonPublic);
99             method.Invoke(control, new[] { e });
100         }
101     }
102 }