[pascal] ukrycie kursora w trybie textowym

yo

jak ukryc kursor textowy w trybie textowym?

pozdr

asm
  mov ah,02h
  xor bh,bh
  mov dx,-1
  int 10h
end;

Jedna z metod. Po prostu ustawienie kursora poza ekranem.

asm mov cx,2000h;mov ah,1;int 10h;end; {Hide cursor}

moduł tcrt - http://4programmers.net/download.php?id=617

Marooned, Twój sposób był najlepszy! Dzięki wielkie za pomysł:D

w jaki sposób można z powrotem wyświetlić kursor?

Trzeba zmodyfikować to, co napisał Marooned i zapisać do rejestru CX wartość 0B0CH
Poniżej zapis bez używania asemblera.

procedure Kursor;
var r: Registers;
begin
  r.ah:= 1;      { numer funkcji 01H }
  r.ch:= $0B;    { początkowa linia kursora }
  r.cl:= $0C;    { końcowa linia kursora }
  intr($10, r);  { wywołanie przerwania 10H }
end;

Możesz również zapisywać do rejestrów CH i CL inne wartości z zakresu 0..15, aby otrzymać różne rozmiary kursora.
Wpisanie do rejestru CH wartości 20H powoduje ukrycie kursora.

nekrofile