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;