[ Voltar ] [ Avançar ]

Objetivo:
Seleciona os atributos de texto originais lidos na posição do cursor no início do programa.

Veja também:

HighVideo; NormVideo; TextColor; TextBackground

Exemplo:

Uses CRT;

Begin

   { Caracteres verdes sobre fundo preto } 

   TextColor(Green); 

   TextBackground(Black); 

   WriteLn('Ei você!');

   { Caracteres vermelho-claro piscantes sobre fundo cinza } 

   TextColor(LightRed+Blink); 

   TextBackground(LightGray); 

   WriteLn('Olá');

   { Caracteres amarelos sobre fundo azul } 
   TextColor(14);           { Amarelo (Yellow) = 14 } 
   TextBackground(Blue); 
   WriteLn('Tudo bem?');

   NormVideo; { Atributos de cor originais } 
   WriteLn('De volta ao normal!');   

   Write('Pressione <Enter> para sair...'); 
   ReadLn;  

End.

[ Voltar ] [ Avançar ]