;hsp3.21 ;mouse.as ;ウィンドウ0がアクティブでマウスカーソルがクライアント(描画)領域にある場合のみ ;正しいマウスカーソル座標をタイトルバーに表示する wid=320: heit=240: main=2 ;メインウィンドウの幅と高さとID screen 2-main,200,200,,wid-100,0 ;他のウィンドウがアクティブな場合等の確認用 screen main,wid,heit,,0,0 ;メインウィンドウ pos 16,16: input a ;オブジェクト上にカーソルがある場合の確認用 prmx=ginfo_sizex: prmy=ginfo_sizey: frameW=(prmx-wid)/2: titleH=prmy-heit-frameW ;補正値の計算 repeat prmx=ginfo_wx1: prmy=ginfo_wy1: left=prmx+frameW: top=prmy+titleH ;原点のスクリーン座標 prmx=ginfo_act: prmy=ginfo_sel: active=prmx ;アクティブなウィンドウID prmx=ginfo_mx: prmy=ginfo_my: mx=prmx-left: my=prmy-top ;スクリーン座標→ウィンドウ座標 ;カーソル座標の表示 if (mx>=0)&(mx=0)&(my