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 :