[Back to MOUSE SWAG index]  [Back to Main SWAG index]  [Original]

{
MIKE BURNS

> How did you get a mouse Pointer into your Program?
}


Procedure Clear_Regs;
begin
  FillChar(Regs, SizeOf(Regs), 0);
end;


Function InitMouse : Boolean;
begin
  Clear_Regs;

  Regs.AX := 00;
  Intr ($33, Regs);
  if Regs.AX <> 0 then            { if not 0 then YES THERE IS A MOUSE }
  begin
    InitMouse := True;
    MbutS     := BX;              { Number of buttons on the mouse }
  end
  else
  begin
    InitMouse := False;
    Mbuts     := 0;
  end;
end;


Procedure ShowMouse;
 begin
  Clear_Regs;
  Regs.AX := 01;
  Intr ($33, Regs);
end;

Procedure HideMouse;
 begin
  Clear_Regs;
  Regs.AX := 02;
  Intr ($33, Regs);
end;

[Back to MOUSE SWAG index]  [Back to Main SWAG index]  [Original]