Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Мышинное Программирование    >>    grmintxt
 True Mouse Cursor in Text Mode for EGA/VGA  Jim Loos 14.06.1991

These routines will allow you to interface with the mouse driver in your programs. It works with Microsoft compatible mouse drivers (i.e. Logitech, PC Mouse, Dexxa, etc). The routines have the added feature of displaying a 'true' mouse cursor in text mode on an EGA or VGA by reprograming the font on the fly.


June 14, 1991 When I saw Dave Kirsch's mouse routines for Turbo and Microsoft C I was impressed enough to look for a way to use them in my Turbo Pascal programs. After a lot of head scratching I finally came up with an object file that could be linked to produce a Turbo Pascal Unit. MOUSE.TPU is the result. MOUSE.TPU is ready to use for Turbo Pascal version 6. MOUSE.PAS will need to be re-compiled for other versions of Turbo Pascal. DEMO.PAS is, of course, a demonstration of the use of many of the routines. Also included are all of Mr. Kirsch's original files. Please refer to Mr. Kirsch's original MOU.DOC file for an explanation of what each one of the routines does. In addition to Mr. Kirsch's routines I've added two procedures written in Turbo Pascal: MOUmove(X, Y: integer) Moves the mouse cursor to the screen coordinates X, Y. MOUconfine(X1, Y1, X2, Y2: integer) Confines the mouse cursor to an area on the screen. X1, Y1 is the upper left hand corner and X2, Y2 is the lower right hand corner. For an example of how to use these and other procedures in the unit please refer to the DEMO.PAS file. I've already re-written one of my Pascal programs to use these new mouse routines. It sure is slick to see the mouse cursor glide across the screen rather than jerk across. Run DEMO.EXE and see if you don't agree. Jim Loos 2601 Dawn Dr. Alexandria, VA 22306 (703) 765-1054