332 Приложение

Procedure MouseButtReleased(Butt: Integer; var Stat,Count,X,Y: Integer); . {Возвращает информацию об отпущенной клавише:

BUTT - флаг выбора клавиши;

STAT - состояние клавиш;

COUNT - количество отпусканий;

X,У - координаты} ^+——————————————————————————————+

I Окна 1

+—————————————————————————————+;

Procedure MouseWindow(Xl,Yl,X2,Y2; Integer);

{Задает координаты области перемещения указателя.

XI...Y2 - виртуальные координаты}

Procedure MouseScreen;

{Устанавливает окно во весь экран} {+— —__-———————————————— ————————— +

¦ Форма указателя I +—————————————————————————————— +}

Procedure ShowMouse;

{Показать указатель мыши}

Procedure HideMouse;

{Убрать указатель мыши}

Procedure MouseTextCursor(ScrMaslc,CurMask: Word);

{Устанавливает новый вид текстового указателя}

Procedure MouseBlink(YUp,YDn: Byte);

{Задает аппаратный курсор нужного размера}

Procedure MouseGraphCursor(var ScrCurMask;X,Y: Byte);

{Задает вид графического указателя)

^————„———————————————.———————+

I Сохранение/восстановление состояния 1 +——————————————————————————————+;

Function MouseBuffSize: Word;

{Возвращает длину буфера для сохранения параметров}

Procedure SaveMouse(var Buff);

{Сохраняет в буфере текущее состояние мыши)

Procedure RestoreMouse (var Buff)-;

{Восстанавливает сохраненное состояние мыши}

^+_______———————————————--———————+

I Эмуляция клавиатуры 1 +—————————————————————————————+;

Procedure SetMouseltemtNItem: Byte; var Items);

(Устанавливает элементы для выбора мышью:

NItem - количество элементов;

Items - array [1..NItem] of MouseItemType;

Старые установки сбрасываются}

Procedure AddMouseItemdtem: MouseItemType);

{Добавляет еще один элемент для выбора мышью. Старые установки сохраняются}

Procedure ClearMouseItems;

{Сбрасывает ранее установленные элементы}

Procedure GetMouseItemfvar NItem: Byte; var Items);

{Возвращает установленные элементы} •