マウスのポインタを設定するこのとできるxtra、フリーです。
メッセージウィンドウで、put mMessageList( xtra "setmousextra" ) を実行してみますと、以下のようにメッセージが表示されます。
-- xtra SetMouseXtra -- Version 1.0
-- --------------------------------------------------------------------
-- this Xtra allows to set the mouse position through Lingo
-- --------------------------------------------------------------------
-- ゥ1997 by Stephan Eichhorn, Scirius Multimedia
-- e-mail: xtras@scririus.com
-- WWW: http://www.scirius.com
* SetMouse integer x,integer y -- set the cursor to position x,y
--
-- all x,y are in screen coordinates,
-- not relative to the stage!
--
では、各コマンドに関して見てみます。
この xtra は、インスタンスを作成する必要がありません。
コマンドは、ひとつです。
SetMouse integer x,integer y は、マウスポインタの位置を画面サイズのx,y位置に設定します。
|
メッセージボックスで、SetMouse(320,240)を実行しますと、 画面サイズが640×480で、Directorのステージサイズも640×480のときは、ステージの中央にポインタが移動します。