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

    {
    RAPHAEL VANNEY

    > Can anybody help me out on the Function INT 33 - 9/8. It's the set mouse
    > cursor Function. I see that you can draw your own mouse cursor, but I don't
    > understand how to move a bitmap into Es:Dx. I don't know the size for
    > the bit map to be, or the dimensions. Could anybody help me out?
    }

    Const Disque : Array [0..31] of Word =
          (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
           0,32766,32766,32760,32760,32766,32382,31806,
           31806,32382,32766,32382,32382,32382,32766,0);

    Procedure CurseurSouris(Var Motif; x, y : Word); Assembler;
    Asm
      Mov  AX, 9     { set cursor shape }
      Mov  BX, x
      Mov  CX, y
      LES  DX, Motif
      Int  $33
    end ;

    begin
      { ... }
      CurseurSouris(Disque, 8, 8);
      { ... }
    end.

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