Re: No cursor routine in Windows

Article View: comp.lang.pascal.borland

Article #143

Back to comp.lang.pascal.borland Previous Next

#143

From: chris.newey
Date: Thu, 10 Jan 2002 17:22

60 lines
2574 bytes

Instead of the code below, use the following procedures...

PROCEDURE cursor_off;
begin
        regs.ax := $0100;
        regs.cx := $2607;
        intr (16, regs);
end

To switch the cursor on, use an identical procedure but with the value 2607
with 0506. You alsoneed to declare a variable which is called "regs" in my
example. It is a REGISTERS type.

Hope i've been of some help!

"Alexander Ern," <erne@xs4all.nl> wrote in message
news:20020110.14390493@mis.configured.host...
I'm using the following routine in my programs to turn on and off the
cursor in my programs:

unit Cursor;

interface

procedure CursorOff;
procedure CursorOn;

implementation

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;

end.

This routine works fine in a full-screen DOS-box under Windows. But when
I change to a windowed DOS-box, the cursor is visible again.

How can I prevent my cursor to be visoble in both a windowed and
full-screen DOS-box?

Alex

Technical Details

Message-ID: <X5k%7.9853$X87.1577476@news2-win.server.ntlworld.com>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!colt.net!newspeer.clara.net!news.clara.net!news5-gui.server.ntli.net!ntli.net!news2-win.server.ntlworld.com.POSTED!not-for-mail

References: <20020110.14390493@mis.configured.host>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 111659,caf3b5b6e7495a4a
X-Google-Attributes: gid111659,public
X-Google-Thread: 10cc59,caf3b5b6e7495a4a
X-Google-Attributes: gid10cc59,public
X-Google-Thread: 108ebd,caf3b5b6e7495a4a
X-Google-Attributes: gid108ebd,public
X-Google-ArrivalTime: 2002-01-10 09:28:08 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!colt.net!newspeer.clara.net!news.clara.net!news5-gui.server.ntli.net!ntli.net!news2-win.server.ntlworld.com.POSTED!not-for-mail
From: "chris.newey" <chris.newey@ntlworld.com>
Newsgroups: comp.lang.pascal.borland,borland.public.turbopascal,comp.lang.pascal
References: <20020110.14390493@mis.configured.host>
Subject: Re: No cursor routine in Windows
Lines: 62
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <X5k%7.9853$X87.1577476@news2-win.server.ntlworld.com>
Date: Thu, 10 Jan 2002 17:22:25 -0000
NNTP-Posting-Host: 62.255.232.200
X-Complaints-To: abuse@ntlworld.com
X-Trace: news2-win.server.ntlworld.com 1010683383 62.255.232.200 (Thu, 10 Jan 2002 17:23:03 GMT)
NNTP-Posting-Date: Thu, 10 Jan 2002 17:23:03 GMT
Organization: ntlworld News Service

Reply to Parent Message