{ Подпрограми за поддържане на Microsoft }
{ съвместима мишка в графичен режим }

unit Mouse_Un;

interface

const

LeftButton = 0; { Ляв бутон на мишката }

RightButton = 1; { Десен бутон на мишката }

EitherButton = 2; { Един от двата бутона - ляв или десен }

procedure Mouse(var m1, m2, m3, m4 : integer);

procedure HideMouse;

procedure ShowMouse;

procedure MoveMouse(x, y : integer);

function InitMouse : boolean;

procedure GetMouseCoords(var x, y : integer);

procedure GetMouseMovement(var x, y : integer);

function MouseButtonReleased(WhichButton : integer) : boolean;

function MouseButtonPressed(WhichButton : integer) : boolean;

function GetInput(WhichButton : integer) : integer;

function WaitForInput(WhichButton : integer) : integer;

implementation

uses Graph, Crt, Dos;

const

{ Константи за обръщане към прекъсване 33h }

MouseReset = 0;

MouseShow = 1;

MouseHide = 2;

GetMouseStatus = 3;

SetMouseCoord = 4;

CheckButtonPress = 5;

CheckButtonRelease = 6;

MouseMovement = 11;

procedure Mouse(var m1, m2, m3, m4 : integer);

{ Осъществява връзка между драйвера на мишката и приложна }

{ програма. Параметрите се изпращат към и връщат от драйвера }

{ чрез регистри AX, BX, CX и DX. }

var Regs : Registers;

{ Тип за регистрите на микропроцесора от модул DOS }

begin

Regs.AX := m1; Regs.BX := m2;

Regs.CX := m3; Regs.DX := m4;

Intr($33, Regs);

m1 := Regs.AX; m2 := Regs.BX;

m3 := Regs.CX; m4 := Regs.DX;

end;

procedure HideMouse;

{ Изтрива курсора на мишката от екрана. Повиква се преди }

{ извеждане на текст или графика в графичен режим. }

{ Курсорът на мишката се възстановява на екрана с ShowMouse. }

var m1, m2, m3, m4 : integer;

begin

m1 := MouseHide; { Повиква функцията за скриване на мишката }