Board index » delphi » hidecursor with tp

hidecursor with tp

hello.

how can I use the instruction 'hidecursor'?

if you know, please e-mail me.
thank you.

 

Re:hidecursor with tp


Quote
jan wrote in message <01bd4f77$f7c00120$7e2a35c3@valor>...
>hello.

>how can I use the instruction 'hidecursor'?

>if you know, please e-mail me.
>thank you.

From SWAG

Uses Crt;

Var
  Continue : Char;

Procedure HideCursor; Assembler;
Asm
  MOV   ax,$0100
  MOV   cx,$2607
  INT   $10
end;

Procedure ShowCursor; Assembler;
Asm
  MOV   ax,$0100
  MOV   cx,$0506
  INT   $10
end;

begin
  Writeln('See the cursor ?');
  Continue := ReadKey;
  HideCursor;                                {This is the bit you wanted to
know}
  Writeln('Gone! ');
  Continue := ReadKey;
  ShowCursor;
end.

Regards, David
----
http://www.geocities.com/SiliconValley/Lab/2197/
raw...@hotmail.com

Re:hidecursor with tp


Hi!

Quote
> how can I use the instruction 'hidecursor'?

Just use these small procedures:

---
procedure ShowCursor;

begin
asm;
  mov ch,06
  mov cl,07
  mov ah,01
  int 10h
end;
end;

procedure HideCursor;

begin
asm;
  mov ch,32h
  mov cl,00
  mov ah,01
  int 10h
end;
end;
---
--
  Daniel [ http://www.prima.de/home/evocator/ ].

Re:hidecursor with tp


Quote
e...@evocator.prima.de (Daniel Moelle) wrote:
>Hi!
>> how can I use the instruction 'hidecursor'?
>Just use these small procedures:
>---
>procedure ShowCursor;
>procedure HideCursor;
>begin
>asm;
>  mov ch,32h
>  mov cl,00
>  mov ah,01
>  int 10h
>end;
>end;

This program resets the cursor. You could use:
{$S-}
PROCEDURE Int10;
ASSEMBLER;
ASM
        PUSH BP
        INT  $10
        POP  BP
END;
{$S+}

FUNCTION XBGetCS:Word;
ASSEMBLER;
ASM
        MOV  AH,$03
        CALL Int10
        MOV  AX,CX
END;

PROCEDURE XBSetCS(NewCS:Word);
ASSEMBLER;
ASM
        MOV  AH,$01
        MOV  CX,NewCS
        CALL Int10
END;

PROCEDURE XBHideCS;
ASSEMBLER;
ASM
        CALL  XBGetCS
        OR    AH,$20
        PUSH  AX
        CALL  XBSetCS
END;

PROCEDURE XBShowCS;
ASSEMBLER;
ASM
        CALL XBGetCS
        AND  AH,$DF
        PUSH AX
        CALL XBSetCS
END;

Quote
>  Daniel [ http://www.prima.de/home/evocator/ ].

Mail to S...@EuroNet.NL

Other Threads