Y :° dx;

Stat := bx end else

end; {MouseButtPressed} /———————————————;

Procedure MouseButtReleasedfButt: Integer; var Stat,Count»X,Ys Integer);

(Возвращает информацию об отпущенной клавише:

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

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

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

X,Y - координаты} begin

if IsMouse then with Reg do begin

ax := $6;

bx := Butt;

Intr($33,Reg) ;

Count :«=• bx;

X := ex;

Y := dx;

Stat := bx end else

end; (MouseButtReleased.) ^+—————————————————————————————+

I Окна I +———.——.-—————————————————————.^

Procedure MouseWindow(XI,Y1,X2,Y2: Integer);

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

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

if IsMouse then begin

xlm := XI;

ylm := Yl;

x2m •.ss X2;

y2m := Y2;

with Reg do begin

ax » $7 ex = XI dx = X2 Intr($33 Reg) ;

ax - $8 ex = Yl dx = Y2 Intr($33,Reg) end end end; {MouseWinciow} ^-.—————————————;

Procedure MouseScreen;

(Устанавливает окно во весь экран} var

х2,у2: Integer;

begin

if IsMouse then with Reg do begin

ah := ?F;