 | ||
| 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,