Тексты программ 331

{Устанавливает чувствительность мыши}

Procedure GetStepToPixel(var Hor,Ver: Integer);

{Возвращает чувствительность мыши}

Procedure SetDoubleSpeed(Speed: Word);

{Устанавливает порог удвоения скорости перемещения указателя)

Function GetDoubleSpeed: Word;

(Возвращает порог удвоения скорости} {+-—————————————————————————+

1 Координаты I +——————————————————————_——————_+;

Function MouseTextCooX(X: Integer): Byte;

{Возвращает текстовую координату по заданной виртуальной}

Function MouseTextCooYfY: Integer): Byte;

{Возвращает текстовую координату по заданной виртуальной}

Function MouseGraphCooXfX: Byte): Integer;

{Возвращает виртуальную координату по заданной текстовой)

Function MouseGraphCooY(Y: Byte): Integer;

(Возвращает виртуальную координату по заданной текстовой}

Procedure MouseWhereXY(var X,Y: Integer);

{Возвращает виртуальные координаты мыши}

Procedure MouseGotoXY(X,Y: Integer);

(Переводит указатель мыши а новое положение: X,Y - виртуальные координаты}

Function MouseWhereX: Byte;

{Возвращает горизонтальную текстовую координату}

Function MouseWhereY: Byte;

{Возвращает вертикальную текстовую координату}

Function MouseIn(XI,Y1,X2,Y2: Integer): Boolean;

{Возвращает TRUE, если указатель находится в заданном прямоугольнике} /+—————————————————————————————+

I Состояние кнопок ¦ +—————————————————————————————-+/

Function NumButton: Byte;

(Возвращает количество кнопок мыши}

Procedure GetMouseState(var Butt,X,Y: Integer);

^Возвращает текущее состояние мыши:

BUTT - флаг состояния кнопок;

X,У - текущие виртуальные координаты}

Function MousePressed: Boolean;

/Возвращает TRUE, если нажата любая кнопка}

Procedure MouseButtPressedtButt: Integer; var Stat,Count,X,Y: Integer);

{Возвращает информацию о нажатой клавише:

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

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

COUNT - количество нажатий, X,Y - координаты}