Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Мышинное Программирование    >>    m_sharp
   
 
 Mouse-Sharp 2.01 - Модуль для Работы с Мышкой   Ivan Kalininskiy 14.07.1997

Модуль для поддержки работы с мышкой. Координаты в функциях "мыши" задаются в виртуальных координатах: для X от 0 до 639, а для Y от 0 до 199. Приведен пример использования и краткое описание функций.



20k 
 
 +-------------------------------------------------------------------------+
 |                             SHARP (2.01)                                |
 |    Библиотеки для работы с PCX файлами, EMS, XMS памятью и "мышью".     |
 |              из программ на Turbo / Borland Pascal 7.0                  |
 |                          All right reserved                             |
 |                        -= FreeWare  Release =-                          |
 +-------------------------------------------------------------------------+
 |                      Описание функций библиотек:                        |
++-------------------------------------------------------------------------++
|                              MOUSE-SHARP                                  |
|              Библиотека для работы с манипулятором "мышь"                 |
+---------------------------------------------------------------------------+
|   Переменные используемые в библиотеке:                                   |
|                                                                           |
|    MouseX, MouseY, LeftKey, RightKey, MiddleKey : integer;                |
|    Status, KeyNumber, HorizMove, VertMove, DSpeed : integer;              |
|    ButtonNum, ButtonX, ButtonY, HorizCount, VertCount : integer;          |
|                                                                           |
|   Описание процедур:                                                      |
|                                                                           |
|   Procedure MouseInit;                                                    |
|     Инициализация манипулятора "мышь", в Status дается 0 если все хорошо  |
|     или -1 если ошибка, а в KeyNumber дается кол-во кнопок "мыши".        |
|                                                                           |
|   Procedure MouseGoToXY(GoX, GoY : integer);                              |
|     Установка курсора "мыши" в заданные координаты.