NormVideo
Verze z 1. 10. 2012, 14:14, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Knihovna CRT)
Zvolí původní atribut textu, který byl přečten v místě kurzoru při startu.
- Deklarace
procedure NormVideo;
- Režim
- Reálný, Chráněný
- Poznámky
- V jednotce Crt je proměnná typu Byte TextAttr ve které je uložen aktuální video atribut. NormVideo obnoví TextAttr na hodnotu, kterou měla, když byl program spuštěn.
- Viz také
- HighVideo
Vzorový příklad
{ NormVid.PAS } { Vzorový příklad pro NormVideo, TextBackGround a TextColor } uses Crt; begin { Zelené znaky na černé } TextColor(Green); TextBackground(Black); WriteLn('Hey there!'); { Blikající světle červené znaky } { na šedé } TextColor(LightRed+Blink); TextBackground(LightGray); WriteLn('Hi there!'); { Žluté znaky na modré } TextColor(14); { Žlutá = 14 } TextBackground(Blue); WriteLn('Ho there!'); NormVideo; { Původní atribut } WriteLn('Zpět do normálu...'); end.