W nowszych kartach CGA mo�na wy�*
kontrol� efektu "�nie�enia" przez uatawienie *
Sta�e s� u�ywane przez proeedury TextColor *�* *j zmiennej na Falae,co pozwoli na ���
i TextBackground. przyapieszen�e operacji pisania na ekranie.V*
czenie kontroli powinno by� atosowane
�obacz . TextBackground, TextColor, zmienna TextAttr pocz�tku pro*ramu i po ka�dym wywo�aniu
ceduxy TextMode (w celu poprawienia s�ybH
ZMIENNE
uperacji pisania na ekranie).
* zobacz . zmienna DirectVideo
CheckBreak
Direct Video
ak�adnia : var CheckBreak: Boolean;
ak�adnia . uar DirectVideo: Boolean;
opia . Zmienna jest u�ywana do kontroli przyci�nigcia
klawiszy Ctrl+Break.Je�li CheckBreak ma war- * opis . Warto�� logic�na True tej zmiennej powodujf
to�� logic�n� True,to przyci�nigeie Ctrl+Break procedury W��te i WriteLn,pia��c do plik�w,
apowoduje przerwanie wykonywania programu jar�onych � CRT,b�d� umieazeza� zn
(atandardowo jeat ustawiona na True).Pr�yci�- bezpo�rednio w pami�ci ekranu,� pomini�c
nigcie Ctrl+Break,gdy CheckBreak ma warto�E odwo�a� do BIOS-u.Warto�� logic�na Fa1se
logiczn� Falae,nie wywo�a �adnych reakcji. zmiennej powoduje,�e procedury Write i *
zobacz : KeyPresaed,ReadKey,zmienna modu�u SystemteLn,�iaz�c na ekranie,b�d� si� odwo�ywa1
SavelntlB BIOS-u.
zobacz . zmienna CheckSnow
CheckEOF
* LastMode
ak�adnia : var CheckEOF: Boolean;
opia . Zmienna jest u�ywana do kontroli ko�ca pliku ak�adnia . var LaatMode: Word;
znakowego.Je�li CheckEOF ma warto�� logiczn� : * opis . W t� zmienn� jeat wpiaywany aktualny tryb
True,to przyci�ni�cie klawiazy Ctrl+Z,podczas * kstowy przy ka�dym wywo�aniu proced*
czytania z pliku akojarzonego z ekranem,apowo- TextMode.
* k*;
duje wygenerowanie ko�ca pliku.Przyci�ni�cie �obacz
Ctrl+Z,gdy CheckEOF ma warto�� logiczn� F*- TextMode
se,nie wywo�a �adnych reakcji (standardowojest
uatawiona na Falae).
212
P. Micha�kiewicz, l. �wituszak
Programowanie w Turbo Pascal 7.0
i irvvuuv*ri i r virnuvr*
TeztAttr
sk�adnia
var TextAttr:Byte; Asgi*Crt
W zmiennej a� przechowywane aktualne atrybuty s*adnia . AaaignCrt (var F: Text);
opis te*atu.Atrybuty tekstu mo�na zmieni�,zapisuj� * opia : Procedura a�u�y do gkojarzenia plik�w teksto-
odpowiednie warto�ci bezpo�rednio do zmiennej ** wych F z urz�dzeniem CRT.Procedura ta
TextAttr.Poata� bitowa tej zmiennej jest nast�pu. 1' wykonywana jegt podobnie do procedury Aaaign,
j�ca: ale nie podaje ai� w niej nazwy pliku.Pliki teketo-
we s� automatycznie kojarzone � CRT.U�ycie tej
? 6543210 procedury zapewnia gzybaze wyj�cie i wej�cie ni�
gdzie: przy u�yciu gtandardowego wyj�cia i wej*cia.
- bit 7jeat bitem migotania, ClrEo1
- bity 6-4 a� bitami okre�laj�cymi kolor t�a, g**adnia : ClrEol;
- bity 3-0 g� bitami okre�laj�cymi kolor tekatu. opia . Procedura a�u�y do uauni�eia wszyst*ieh znak�w od aktualnej po�ycji kursora do ko�ca bie��cej zobacz : LowVideo, NormVideo, TextBackground, TextCo- linii. Po wykonaniu tej operacji pozycja kursora
lor nie ulega zmianie. WindMin
zobacz : ClrScr, Window ah�adnia . var WindMin: Word� ClrSCr opig . W zmiennej tej a� wpiaywane wap�rz�dne lewego a*�adnia . ClrScr
g�rnego rogu bie��cego okna. Warto�� tajest usta- wiana przez procedur� W�ndow. Wsp�rz�dna X
opia . Proeedura a�u�y do wyczya�czenia zawarto�ci aktualnego ok��a. Po wykonaniu tej operacji pozyjegt pami�tana w m�odszym (mniej znac� c l , , cja kursora b�dzie znajdowa� si� w lewym g�rnym bajcie, natomiast wap�rz�dna Y jeat pami�*a f:
rogu ok�ta. Je�eli przed wywo�aniem tej procedury wbajcie atarszym. nie okre�lono rozmiaru okna (procedura Winzobacz : TextMode dow), to wyczys�czona zostanie �awarto�� ca�ego
ekranu. Po wykonaniu tej procedury kolorem t�a WindMaz aktualnego okna staje gi� aktualny kolor t�a sh�adnia .
var WindMax: Word� (�godnie z ustawionym w procedurze TextBackopia
W zmiennej tej a� wpiaywane wgp�r�dne prawe ground). go dolnego rogu bie��cego okna. Warto�� ta est � zobac� ClrEo1 Window ugtawiana przez procedur� Window. Wsp�**d* na X jegt pami�tana w m�odszym (mniej : Delay znac��cym) bajcie, natomiaat wap�r�dna Y jeB* '* gk�adnia . Delay (Ms: Word); pami�tana w bajeie atarazym. opig . Procedura powoduje zatr�ymanie wykonywania zobacz : TextMode programu na okre�lon� liczb� miligekund Ms. Ma
jegt wyra�eniem ca�kowitym typu Word.
214 P. Mi��a�kiewicz, I. �wituszak
Programowanie w Turbo Pascal 7.0
sk�adnia . DelLine; sk�adnia . KeyPreased*
przez aktualn �o kuraora.W * opia
Funk a zwraca warto�� lo czn True,je
gy y
nywania tej operacji wazyatliie wieraze znajduj�ce ata� na klawiaturze naci�ni t dowoln h
w przeciWnym wypadku daje warto�� li
jed p wi � d g a k c je dodaw o * Falae. Funkcja nie wykrywa klawiszy przi
nowy wieraz o akt 1 * 1 cia, np. Shift, Alt, Numlock itp.
ua nym o orze t�a. odpowiadaj�cy naci�nigtemu *lawiazowi p
zobac� . InaLine,Window je w buforze klawiatury i aby ponoWnie u
G*otoXY warto�� logiczn� Falae tej funkcji,nale�y �;
wa� funkcjg
ReadKey.
sli�adnia GotoXY (X,Y: Byte); ' w . Boolean
opia . Procedura pozwala ustawi� kursor w podanych zobacz . ReadKey
wsp�rzgdnych aktualnego okna okre�lonych LowVideo
przez X i Y.
Xjeat numerem kolumny,a Yjeat numerem wier. a*�adn�a . LowVideo�
aza.
Lewy g�rny r�g ohna ma wsp�rz�dne (1,1). : Procedura powoduje zmniejsze��ie jaakr*
zobacz Wlie*X * y znaku poprzez zmiang ata�ej reprezentuj�*
ere,Window lor tekatu w zmienne' TextAttr
* Z WartO�Cl :
W trosce o komfort korzystania z naszego serwisu chcemy dostarczać Ci coraz lepsze usługi. By móc to robić prosimy, abyś wyraził zgodę na dopasowanie treści marketingowych do Twoich zachowań w serwisie. Zgoda ta pozwoli nam częściowo finansować rozwój świadczonych usług.
Pamiętaj, że dbamy o Twoją prywatność. Nie zwiększamy zakresu naszych uprawnień bez Twojej zgody. Zadbamy również o bezpieczeństwo Twoich danych. Wyrażoną zgodę możesz cofnąć w każdej chwili.