willemk@nijmeg.UUCP (willem kutschruiter) (09/18/90)
Does some body known how to change the cursor with TP5.0. -- Willem Kutschruiter. Sr Technician network systems. Intergraph Nijmegen, The Netherlands Phone +31 (80) 525709 ext 709 Mailpath : ingr!nijmeg!w_kutschruiter
ts@uwasa.fi (Timo Salmi LASK) (09/19/90)
In article <121@nijmeg.UUCP> willemk@nijmeg.UUCP (willem kutschruiter) writes: > >Does some body known how to change the cursor with TP5.0. The question is slightly ambiguous, but if you mean how to change the cursor size within a program there are ready-made routines for this in the /pc/ts/tspas22.arc unit collection. There are routines to change the cursor size, and routines for turning the cursor off and back on. They work for TP versions 4.0, 5.0 and 5.5. But if you mean how to change the cursor size permanently, this requires TSR programming and is much more complicated to do. If you need the latter stand-alone TSR utility (no source), you'll find it in /pc/ts/tsutld18.arc. Available by anonymous ftp (as usual) from our site. ................................................................... Prof. Timo Salmi (Moderating at anon. ftp site 128.214.12.3) School of Business Studies, University of Vaasa, SF-65101, Finland Internet: ts@chyde.uwasa.fi Funet: gado::salmi Bitnet: salmi@finfun
kamal@wpi.WPI.EDU (Kamal Z Zamli) (11/28/90)
I need to make the cursor invisible.... If I'm not mistaken I could use Bios service to do that. I tried to scan my MS DOs book but could 'nt find it. Any help would be appreciated.
zhou@brazil.psych.purdue.edu (Albert Zhou) (11/28/90)
You can use Interrupt $10 to hide or reveal cursor. Here is the code:
To hide cursor:
With Regs do
begin
AH := 1;
CH := MEM[$40:$61] AND $1F;
CL := MEM[$40:$60];
end;
Intr($10, Regs);
To reveal cursor:
With Regs do
begin
AH := 1;
CH := MEM[$40:$61] OR $20
CL := MEM[$40:$60];
end;
Intr($10, Regs)ts@uwasa.fi (Timo Salmi) (11/28/90)
In article <1990Nov27.161904.30603@wpi.WPI.EDU> kamal@wpi.WPI.EDU (Kamal Z Zamli) writes: >I need to make the cursor invisible.... If I'm not mistaken I could use Bios >service to do that. I tried to scan my MS DOs book but could 'nt find it. >Any help would be appreciated. Try getting /pc/ts/tspas22.arc Turbo Pascal units by anonymous ftp or mail server from uwasa.fi, Vaasa, Finland. It's all there ready preprogrammed. Alternatively take a look at the references in faqpas.txt (Ezzel's book in particular) in the /pc/ts/tsfaq14.arc collection (available ditto). ................................................................... Prof. Timo Salmi (Moderating at anon. ftp site 128.214.12.3) School of Business Studies, University of Vaasa, SF-65101, Finland Internet: ts@chyde.uwasa.fi Funet: gado::salmi Bitnet: salmi@finfun
mjensen@ccwf.cc.utexas.edu (Marc S. Jensen) (11/29/90)
In article <1990Nov27.161904.30603@wpi.WPI.EDU> kamal@wpi.WPI.EDU (Kamal Z Zamli) writes: >I need to make the cursor invisible.... If I'm not mistaken I could use Bios >service to do that. I tried to scan my MS DOs book but could 'nt find it. >Any help would be appreciated. Try this: procedure kill_cursor; var regs : registers; begin regs.AX := $0100; regs.CX := $2607; intr($10,regs) end; You can try changing the value of regs.CX to get a variety of different cursor shapes and sizes. -- Marc Jensen mjensen@ccwf.cc.utexas.edu University of Texas at Austin ----- "Never attribute to malice that which is adequately explained by stupidity!"