ANN: Mouse pointer handler
[1/1] from: cyphre::seznam::cz at: 29-Jan-2002 16:07
Hi all /Pro key owners,
I'd like to announce mouse pointer handler which I made "remotely" thanks to
Pekr ;). Many times there was discussion about mouse pointer handling in
Rebol so I decided to write it using some Win API function calls. Because I
still doesnot have the /Pro key I wrote the script just in a "blindfold"
way without key and then sent the script to Pekr for testing/bugreporting
and again...
If you are interested in that, have a look at desktop/sites/cyphre/cursors.r
or get the script at http://www.rebol.cz/~cyphre/cursors.r
NOTE: this handler runs properly only under WIN9x and NT. It was tested also
under Win XP and Win2000 but the script messed up system mouse pointers on
those systems due to some changes in behavior of the Win API functions?!?
Enjoy it!
Cyphre
PS: If you will like the handler or want for me to make enhancements or
XP/2000 version or other useful /Pro scripts for free, send me your ideas
and/or donate my efforts with small amounts of $ so I could buy the /Pro
key. Thanks in advance.
------------------------
short docs follows:
USAGE:
It's pretty easy!
Place ctx-cursor object and "insert-event-func get in ctx-cursor
'cursor-handler" line before your script.
Then just enhance your choosen VID-style "with [cursor: cursor_id_sring ]"
and you are done.
useful variables:
ctx-cursor/master-cursor: cursor_id_sring
-setting this override all other cursors, when set to 'none other cursor
settings are functional
ctx-cursor/layout-cursor: cursor_id_sring
-this contains default cursor which is shown on rest of layout...
useful functions:
ctx-cursor/hide-cursor - hide system mouse pointer, so you can replace it by
your own face
ctx-cursor/show-cursor - shows already hidden mouse pointer
NOTE: These two functions above works also under WIN2000 and WIN-XP.
possible cursor_id_sring values:
"arrow+hourglass"
"arrow"
"cross"
"I-shape"
"no"
"size-all"
"size-nesw"
"size-ns"
"size-nwse"
"size-we"
"up-arrow"
"wait"
for more look into the demo script... ;-)
possible future enhancements:
-possibility of loading custom cursor or cursor animation
-possibility to simple use View's face(bitmap or animation with effects
etc.) for replacing the system cursor
-other features wanted by users feedback