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;