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;