Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Мышинное Программирование    >>    t4_mouse
   
 
 Includable Mouse Library for TP4+  Unknown 08.03.1988

Простая мышиная библиотека для графического (BGI) и текстового режима, подключаемая директивой Include. Позволяет устанавливать произвольную форму указателя мыши. В качестве примера приведены 2 программы: выбор мышью одного из файлов каталоге и простейший графический редактор в стиле Paint.



13k 
 

  PROGRAM MouseDemo; {$M 16384,10000,20000 } uses crt, graph, dos; {$I global.ini } {$I goodies.ini } {$I mouse.ini } TYPE poly = RECORD count : word; min_x : word; min_y : word; max_x : word; max_y : word; hot_x : word; hot_y : word; points : ARRAY[1..8] OF point; END; CONST pencil : mouse_graphics_cursor = ( hot_x : 5; hot_y : $FFFF; cursor_mask : ( $F7FF, {1111011111111111} $E3FF, {1110001111111111} $C1FF, {1100000111111111} $80FF, {1000000011111111} $007F, {0000000001111111} $007F, {0000000001111111} $007F, {0000000001111111} $007F, {0000000001111111} $007F, {0000000001111111} $007F, {0000000001111111} $007F, {0000000001111111} $007F, {0000000001111111} $007F, {0000000001111111} $007F, {0000000001111111} $007F, {0000000001111111} $007F {0000000001111111} ); screen_mask : ( $0000, {0000000000000000} $0000, {0000000000000000} $0000, {0000000000000000} $2200, {0010001000000000} $4B00, {0110101100000000} $6B00, {0110101100000000} $6B00, {0110101100000000} $6B00, {0110101100000000} $6B00, {0110101100000000} $6B00,