home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / pascal / 7590 < prev    next >
Encoding:
Internet Message Format  |  1992-12-21  |  2.7 KB
  1. Path: sparky!uunet!noc.near.net!hri.com!spool.mu.edu!darwin.sura.net!dtix!mimsy!nmrdc1!frmug!lill!vanney.raphael
  2. From: vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael)
  3. Newsgroups: comp.lang.pascal
  4. Subject: GRAPHIC MOUSE CURSOR IN T
  5. Message-ID: <932.6.uupcb@lill.frmug.fr.mugnet.org>
  6. Date: 18 Dec 92 01:29:00 GMT
  7. Reply-To: vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael)
  8. Organization: Li'LL BBS - Paris, France
  9. Lines: 66
  10.  
  11. MC}From: currin@unpsun1.cc.unp.ac.za (Michael Currin)
  12. MC}Newsgroups: comp.lang.pascal
  13. MC}Subject: Graphic Mouse cursor in TP6
  14. MC}Keywords: mouse,cursor,pascal
  15. MC}Date: 2 Dec 92 09:16:27 GMT
  16. MC}Organization: Univeristy of Natal, Pietermaritzburg, RSA
  17.  
  18. MC}Hello all pascal enthusiasts,
  19.  
  20. MC}I am currently using Borlands Turbo Pascal v6.0 and have been writing
  21. a text
  22. MC}based application that uses the mouse as the primary input device.
  23.  
  24. MC}I have recently seen the emergence of a few programs ( Norton
  25. Utilities /
  26. MC}Desktop for DOS, PCTools v7.x, CompuShow v8.50a and other ) that use
  27. an arrow
  28. MC}or some other mouse cursor on VGA systems.  Does anyone have any idea
  29. on how
  30. MC}to do this ?  I have thought of redefining a character in the VGA
  31. character
  32. MC}set and then setting this as the mouse cursor but this would still
  33. only make
  34. MC}the mouse cursor move in jumps of one character at a time ( unlike
  35. the afore
  36. MC}mentioned programs, and not very smooth !! ).  Maybe the routine
  37. would have
  38. MC}to be written in assembly to get it fast enough ?
  39.  
  40. MC}I would appreciate it if anyone can offer any help / source code /
  41. references
  42. MC}in this regard.
  43.  
  44. MC}Many thanks
  45. MC}Michael
  46. MC}  - currin@unpsun1.cc.unp.ac.za
  47.  
  48.  
  49. MC}--- GEcho 1.00
  50. MC} * Origin: Li'LL BBS - Paris France - (33-1) 43.07.40.97 (2:320/7)
  51.  
  52. Hello !
  53.  
  54. I extremely highly suspect this is, say, easily, done by dynamically
  55. (i.e.
  56. whenever you move the mouse) redefining the character set :
  57. When showing the mouse, replace the (up to) four characters (partially)
  58. covered by the mouse cursor by, say     #255 #254
  59.                                         #253 #252
  60. then redefine the characters #252 to #255 to display... those characters
  61. that where under the mouse... PLUS a mouse cursor !
  62. That of course implies that you've got no other #252..#255 characters on
  63. the screen (try #0..#3).
  64. If you have never seen one thousand of mouse cursors moving
  65. simultaneously
  66. on your screen, just try to edit a binary file with PC-Tools 7....!!!
  67.  
  68. Actually, I have not tried to that myself, but will sure come to it
  69. somday...
  70.  
  71.                                                   Raphael.
  72.  * OLX 2.1 TD * Please, user, stop expanding your phone bill with tag
  73. lin
  74. --- FMail 0.92
  75.  * Origin: ICEBERG - La Garenne * FRANCE * Tel:(33)-1-47699261 (2:320/1)
  76.                     
  77.