TB Paranoia 2016

MouseGestureL.ahkでスクロール

• 2009/12/21 野良犬日記：ほんとに WheelBall や TrackScroll ぽくできた

• 「MouseGestureL.ahk」への登録方法

1.「ジェスチャー」タブで下記を登録する。

2.「メイン」タブでアクションスクリプトを記述する。

　(1)中央枠「ジェスチャー(G):」から、新規登録した"X1B_"を選択
　(2)右下枠「アクションスクリプト(S):」に下記をコピー&ペースト

;X1ボタン長押しでスクロール
   MouseGetPos, sx, sy, hwnd, ctrl, 1
   while GetKeyState("XButton1", "P")
   {
     MouseGetPos, x, y
     delta := sy - y
     if(delta != 0)
     {
         wParam := 0x10000 * 120 * (delta / Abs(delta))
         lParam := sx + sy * 0x10000
         loop % (Ceil(Abs(delta) / 10))
         {
           PostMessage, 0x20A, %wParam%, %lParam%, %ctrl%, ahk_id %hwnd%
         }
     }
     MouseMove, sx, sy, 0
   }

3.「認証認識」タブの右下「拡張マウスボタンの動作」

　「第4ボタンのデフォルト動作を無効化する」にチェックを入れる。
　このチェックを入れておかないと、スクロールする以前に「戻る」と認識されてしまうため。

• 応用：AutoHotKeyのキーリスト

   while GetKeyState("XButton1", "P")

1.「ジェスチャー」タブで下記を登録する。

2.「メイン」タブでアクションスクリプトを記述する。

　(1)中央枠「ジェスチャー(G):」から、新規登録した"X1B_"を選択
　(2)右下枠「アクションスクリプト(S):」に下記をコピー&ペースト

 ;右ボタン長押しでスクロール
 MouseGetPos, sx, sy, hwnd, ctrl, 1
    while GetKeyState("RButton", "P")
    {
      MouseGetPos, x, y
      delta := sy - y
      if(delta != 0)
      {
          wParam := 0x10000 * 120 * (delta / Abs(delta))
          lParam := sx + sy * 0x10000
          loop % (Ceil(Abs(delta) / 10))
          {
            PostMessage, 0x20A, %wParam%, %lParam%, %ctrl%, ahk_id %hwnd%
          }
      }
      MouseMove, sx, sy, 0
    }