ウィンドウ外やオブジェクト上のマウス座標を取得

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

#module
#deffunc rm_init
    WakuSize = (ginfo(10) - ginfo(12)) / 2        // ウィンドウ枠の幅
    TBarSize = ginfo(11) - ginfo(13) - WakuSize   // タイトルバーの幅
    return
 
#defcfunc rmousex
    return ginfo(0) - ginfo(4) - WakuSize
 
#defcfunc rmousey
    return ginfo(1) - ginfo(5) - TBarSize
 
#global
 
    screen 0, 480, 320
    rm_init                     // タイトルバーとウィンドウの枠の幅を測定
    message = {"青ラインがデフォルトのmousex&mousey、
橙ラインが自前のrmousex&rmousey。
 
橙ラインはウィンドウ外やオブジェクト上でも正確にマウスを追いかけます。"}
    pos 60,60
    mesbox message, 300, 100
 
*main
    wait 2
    redraw 0
    color 255, 255, 255 : boxf  // 画面を消去
 
    color 0, 0, 255             // mousex&mousey（青）
    line mousex, ginfo_winy, mousex, 0
    line ginfo_winx, mousey, 0, mousey
 
    color 255, 128, 0           // rmousex&rmousey（橙）
    line rmousex(), ginfo_winy, rmousex(), 0
    line ginfo_winx, rmousey(), 0, rmousey()
 
    redraw 1
    goto *main

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30

 
 
 
 
 
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

#uselib "user32.dll"
#func ScreenToClient "ScreenToClient" int, int
;#include "user32.as"	;user32.asを使用するときは上２行をコメントアウト。
 
    screen 0, 480, 320
    message = {"青ラインがデフォルトのmousex&mousey、
橙ラインが自前のrmousex&rmousey。
 
橙ラインはウィンドウ外やオブジェクト上でも正確にマウスを追いかけます。"}
    pos 60,60
    mesbox message, 300, 100
 
*main
    wait 2
    redraw 0
    color 255, 255, 255 : boxf  // 画面を消去
 
    color 0, 0, 255             // mousex&mousey（青）
    line mousex, ginfo_winy, mousex, 0
    line ginfo_winx, mousey, 0, mousey
 
    color 255, 128, 0           // rmousex&rmousey（橙）
    mxy = ginfo_mx, ginfo_my
    ScreenToClient hwnd, varptr(mxy)
 
    line mxy(0), ginfo_winy, mxy(0), 0
    line ginfo_winx, mxy(1), 0, mxy(1)
 
    redraw 1
    goto *main