home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / pascal / 7722 < prev    next >
Encoding:
Internet Message Format  |  1992-12-29  |  1.9 KB
  1. Path: sparky!uunet!mcsun!fuug!kiae!demos!newsserv
  2. From: evsikov@lcta5.jinr.dubna.su (Igor Evsikov)
  3. Newsgroups: comp.lang.pascal
  4. Subject: Re: GRAPHIC MOUSE CURSOR IN Text mode
  5. Date: Wed, 30 Dec 92 02:00:43 +0300
  6. Distribution: world
  7. Organization: Lcta
  8. Message-ID: <AARYDGh8q9@lcta5.jinr.dubna.su>
  9. Sender: news-service@newcom.kiae.su
  10. Reply-To: evsikov@lcta5.jinr.dubna.su
  11. Lines: 41
  12.  
  13. >vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael) writes:
  14.  
  15. >>I extremely highly suspect this is, say, easily, done by dynamically
  16. >>(i.e.
  17. >>whenever you move the mouse) redefining the character set :
  18. >>When showing the mouse, replace the (up to) four characters (partially)
  19. >>covered by the mouse cursor by, say     #255 #254
  20. >>                                        #253 #252
  21. >>then redefine the characters #252 to #255 to display... those characters
  22. >>that where under the mouse... PLUS a mouse cursor !
  23. >>That of course implies that you've got no other #252..#255 characters on
  24. >>the screen (try #0..#3).
  25. >>If you have never seen one thousand of mouse cursors moving
  26. >>simultaneously
  27. >>on your screen, just try to edit a binary file with PC-Tools 7....!!!
  28. >
  29. >You overlook the fact that in text mode, you can have 8 or so character
  30. >sets available for use. Pick the highests numbered one and define your
  31. >mouse cursor characters *there*. That way, since the default font is
  32. >what gets picked for everything else, you can get away with all kinds
  33. >of things.
  34. >Leonard Erickson                     leonard@qiclab.scn.rain.com
  35.  
  36. This not easy. You must:
  37.  
  38.   1) Save old image 4 characters under cursor
  39.   2) Get image characters under cursor
  40.   3) Use miky Intr($33,$0b) for cursor position
  41.   4) Restore old rectangle if mouse position changed
  42.   5) CharImage OR ArrowImage in rectangle
  43.   6) Put new Image to 2 layer video RAM
  44.   7) Write new characters to cursor position
  45.   8) and not all ...
  46.  
  47. I wrote TPU (see SIMTEL: <MSDOS.TURBOPAS>RMOUSE11.ZIP) which it do.
  48. Igor
  49. evsikov@lcta5.jinr.dubna.su
  50.  
  51.  
  52.  
  53.  
  54.