end else

Mousein := False end; (Mousein}

^———————————————————.——.——-——...+

¦ Состояние кнопок ¦

+-——————————————————.————_—_——+;

Function NumButton: Byte;

/'Возвращает количество кнопок ыыаш) begin

NumButton := NButton end; {NumButton} _•——————————————;

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

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

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

Х,У - текущие виртуальные координаты/ begin

if IsMouse then with Reg do begin

ax := $3;

Intr($33,Reg) ;

Butt := bx;

X :=» ex;

Y :- dx end else begin

Butt := 0;

X := 0;

Y := 0 end end; {GetMouseState} ^_——————————————/

Function MousePressed: Boolean;

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

if IsMouse then with Reg do begin

ax := $3;

Intr($33,Reg) ;

MousePressed := bxOO end else

MousePressed := False end; {MousePressed.) __————.——————————/

Procedure MouseButtPressed(Butt: Integer; var Stat,Count,X,Y: Integer);

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

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

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

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

if IsMouse then with Reg do begin

ax := $5;

bx :» Butt;

Intr($33,Reg) ;

Count := bx;

X := ex;