NormVideo

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.