Pascal/Turbo Pascal - COMO HAGO DESAPARECER EL CURSOR?

 
Vista:

COMO HAGO DESAPARECER EL CURSOR?

Publicado por Alvaro-Payaso (4 intervenciones) el 30/10/2001 03:43:12
COMO HAGO DESAPARECER "_" ESE SIMPOLITO DEL CURSOR?? QUIERO HACER UN MENU DESPLEGABLE Y ENCUENTRO QUE SE VE MUY FEO QUE AL MOVERSE SALGA ESA COSA "_"
COMO LO HAGO DESAPARECER??¿¿AH??
EXISTE ALGUNA FUNCION QUE LO HAGA INVISIBLE???
GRACIAS POR AYUDARME!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:COMO HAGO DESAPARECER EL CURSOR?

Publicado por Diego Romero (282 intervenciones) el 01/11/2001 01:06:49
Veamos, esto se puede hacer usando un poco de assembler.
uses crt,dos;
var
bkx,bky:byte;

procedure fueracursor;
var a:registers;
begin
bkx:=wherex; {guardo la posicion actual del cursor}
bky:=wherey;
a.ah:=02; {servicio 2 de la int 10h}
a.dh:=25; {fila del cursor}
a.dl:=00; {columna del cursor}
a.bh:=00; {página de video}
intr($10,a); {llamo a la int 10h}
end;

procedure ponercursor;
var a:registers;
begin
a.ah:=02; {servicio 2 de la int 10h}
a.dh:=bky-1; {traigo el cursor a la pos. anterior - 1 porque la BIOS considera la pantalla de 0 a 24 y de 0 a 79, Pascal de 1 a 25 y de 1 a 80}
a.dl:=bkx-1; {idem}
a.bh:=00; {pagina de video}
intr($10,a); {llamo a la int 10h}
end;

begin
clrscr;
gotoxy(10,10);
readkey;
fueracursor;
readkey;
ponercursor;
readkey;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar