[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]