Board index » delphi » This Damn Cursor - make it go away

Narga User

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

This Damn Cursor - make it go away

Can anybody please help me get rid of the dos cursor in Pascal (7.0).
I really don't need it and i don't want to use any of pascal's routines
which came with the program. I make my own stuff.
So if u know, contact me at hellose...@hotmail.com or just kick in a reply
here. Ta
Serve

 
Papai Andra

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:This Damn Cursor - make it go away


Quote
Narga User wrote:
> Can anybody please help me get rid of the dos cursor in Pascal (7.0).
> I really don't need it and i don't want to use any of pascal's routines
> which came with the program. I make my own stuff.

This works in real mode, DPMI & also in a DOS box.

procedure hideCursor; assembler;
asm
  mov ah,1
  mov cx,2020h
  int 10h
end;

procedure blockCursor; assembler;
asm
  mov ah,1
  mov cx,001fh
  int 10h
end;

Andras

Nt

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:This Damn Cursor - make it go away


On Sat, 6 Jun 1998 10:01:58 +0200, "Narga User"

Quote
<na...@maties.sun.ac.za> wrote:
>Can anybody please help me get rid of the dos cursor in Pascal (7.0).
>I really don't need it and i don't want to use any of pascal's routines
>which came with the program. I make my own stuff.
>So if u know, contact me at hellose...@hotmail.com or just kick in a reply
>here. Ta
>Serve

procedure CursorOn;
begin
 asm
  MOV ah,01h
  MOV ch,12h
  MOV cl,13h
  INT 10h
 end;
end;

procedure CursorOff;
begin
 asm
  MOV ah,01h
  MOV ch,20h
  MOV cl,00h
  INT 10h
 end;
end;

----------------------------
"Eagles may soar, but weasels aren't sucked into jet engines."
Ntd or Jawohl on ircnet - n...@earthling.net (remove ihatespam)
http://www.flatworld.u-net.com/home.htm - newly redesigned

Osmo Ronkan

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:This Damn Cursor - make it go away


In article <357c249a.29019...@news.u-net.com>,

Quote
Ntd <n...@ihatespam.earthling.net> wrote:
>On Sat, 6 Jun 1998 10:01:58 +0200, "Narga User"
><na...@maties.sun.ac.za> wrote:

>>Can anybody please help me get rid of the dos cursor in Pascal (7.0).
>>I really don't need it and i don't want to use any of pascal's routines
>>which came with the program. I make my own stuff.
>>So if u know, contact me at hellose...@hotmail.com or just kick in a reply
>>here. Ta
>>Serve

>procedure CursorOn;
>begin
> asm
>  MOV ah,01h
>  MOV ch,12h
>  MOV cl,13h
>  INT 10h
> end;
>end;

>procedure CursorOff;
>begin
> asm
>  MOV ah,01h
>  MOV ch,20h
>  MOV cl,00h
>  INT 10h
> end;
>end;

No no no. One should make sure that CursorOn sets the shape that was
used before CursorOff.

Procedure CursorOff; Assembler;
  Asm
  Mov ah,3
  mov bx,0
  int 10h
  or ch,20h
  mov ah,1
  mov bx,0
  int 10h
  end;

Procedure CursorOn;  Assembler;
  Asm
  Mov ah,3
  mov bx,0
  int 10h
  and ch,255-20h
  mov ah,1
  mov bx,0
  int 10h
  end;

Osmo

Nt

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:This Damn Cursor - make it go away


Quote
>No no no. One should make sure that CursorOn sets the shape that was
>used before CursorOff.

hehe.... i didnt write those, ive no idea :)

----------------------------
"Eagles may soar, but weasels aren't sucked into jet engines."
Ntd or Jawohl on ircnet - n...@earthling.net (remove ihatespam)
http://www.flatworld.u-net.com/home.htm - newly redesigned

Other Threads

1. If Two TTables Point to Same SQL DataBase Tables -My Goes Damn Slow

2. Run Error 106 GO AWAY!!!!!!!!!!!!!!

3. DELPHI: Go away

4. Demo of Apollo won't go away!

5. Calculated fields - data goes away

6. gone away ?

7. StringGrid: make Blue go away!

8. Do local dynamic arrays go away?

9. RPCSS dos window wont go away after loading Delphi 4 CS

10. MDI Children handle goes away - MAJOR PROBLEM!