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;