Autor: Will Smith (prince_at_optimus.wroc.pl)
Data: Tue 16 Dec 1997 - 20:45:52 MET
Oto procedury:
Var kp,kk : Byte;
rejestry : Registers;
procedure UkryjKursor;
begin
rejestry.AH:=3;
Intr ($10,rejestry);
with rejestry do
begin
kp:=CH;
kk:=CL;
AH:=1;
CH:=16;
CL:=0
end;
Intr ($10,rejestry);
end;
procedure PokazKursor;
begin
with rejestry do
begin
AH:=1;
CH:=kp;
CL:=kk
end;
Intr ($10,rejestry)
end;
Leszek Pawłusiów <Leszekpa_at_Bigfoot.com> napisał(a) w artykule
<01bd0a32$bd468580$LocalHost_at_ppp>...
> Nie mogę sobie poradzić z włączaniem i wyłączaniem kursora w Turbo
Pascalu.
> Jeszcze na studiach to zrobiłem, ale gdzieś mi się zapodziało - pamiętam
> tylko, że procedury w asemblerze miały po osiem bajtów. Nie pamiętam,
która
> funkcja
> MS-Dos realizuje to zadanie i z jakimi parametrami. Będzie mi bardzo
miło,
> gdyby ktoś mógł mi podać te informacje lub ew. inne rozwiązanie tego
> zagadnienia.
>
> --
> Leszek Pawłusiów
> Leszekpa_at_bigfoot.com
> http://friko.onet.pl/gd/leszekpa/
>
>
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 16:38:17 MET DST