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

    {> And how can I hide my cursor ? I know it's something With INT 10 but
    > that's all I know...

    Try this:
    SType 'C' or 'M' - Color or monchrome display
    Size 'S' or 'B' or 'O' cursor small, big, or none (invisible)
    }
    Uses Dos;

    Procedure CursorSize(SType, Size : Char);

    Var
      Regs : Registers;
      i : Integer;

    begin
      Size := UpCase(Size);
      if UpCase(SType) = 'M' then
        i := 6
      ELSE
       i := 0;

    Regs.AH := $01;
    CASE Size of
    'O' :
      begin
       Regs.CH := $20;
       Regs.CL := $20;
      end;
    'B' :
      begin
       Regs.CH := $0;
       Regs.CL := $7 + i;
      end;
    'S' :
      begin
       Regs.CH := $6+i;
       Regs.CL := $7+i;
      end;
    end;
    Intr($10, Regs);
    end;

    begin
      CursorSize('C','B');
      readln;
    end.

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