Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

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 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