|
|
! 以下の現象は、ver.5.9.1 以前からの伝統のようです。
! 下のテストプログラムは、
!
! 左クリック押下 状態で
! カーソルを、グラフィック・ウィンドウの外へ出し、指を離すと、終了しますが、
! 右クリック押下 状態で
! カーソルを、グラフィック・ウィンドウの外へ出し、指を離しても、終了できません。
!
! ( 右クリックの場合、メイン･ウインドウの上で離すと、
! 中断メニューが開いてしまうので、避けて下さい。)
! SET bitmap SIZE で、→ 小画面にする際、
! 右クリックでの開始は、指を離す前に、グラフィック・ウィンドウが縮み、
! カーソルが外へ出た状態になれば、同様の状況になります。
!
! DO
! mouse poll mx,my,mlb,mrb
! WAIT DELAY 0 !← save full_clock/power
! LOOP UNTIL mrb=0
! SET bitmap SIZE → 小画面
!
! 障害が出る場合、上の様に直前チェックすると回避できる。
!
!-----------------------------------------------------
PLOT TEXT,AT .3,.6 :"ボタン押下のまま、カーソルを外へ"
SET TEXT font "",48
SET TEXT background "opaque"
DO
mouse poll mx,my,mlb,mrb
WAIT DELAY 0
LOOP UNTIL 0< mlb OR 0< mrb
!
!---- チェッカー
DO
mouse poll mx,my,mlb,mrb
IF 0< mlb OR 0< mrb THEN
PLOT TEXT,AT .3,.5 :"L="& STR$(mlb)& " R="& STR$(mrb)
WAIT DELAY 0.2
PLOT TEXT,AT .3,.5 :" "
WAIT DELAY 0.05
END IF
LOOP UNTIL mlb=0 AND mrb=0
END
|
|