NormVideo

From Delphi & Pascal (česká wiki)
Jump to navigation Jump to search

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
LowVideo
TextBackground
TextColor


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.