normvideo

(procedimiento)
Lenguaje: Pascal   (Versión: Turbo Pascal)

Volver a colores iniciales

Biblioteca: crt

Declaración: procedure NormVideo;

Detalles:
Devuelve los atributos de texto a los que había en la posición del cursor en el momento de comenzar el programa.

Nota: Existe una variable en la unit Crt, llamada TextAttr, que almacena el color actual de texto. El efecto de NormVideo es restaurar TextAttr al valor que tenía cuando comenzó el programa.


Ejemplo:

uses Crt;
begin
   { Verde con fondo negro }
   TextColor(Green);
   TextBackground(Black);
   WriteLn('Hola!');
 
   { Rojo claro parpadeante }
   { sobre fondo gris  }
   TextColor(LightRed+Blink);
   TextBackground(LightGray);
   WriteLn('Hola!');
 
   { Amarillo sobre azul }
   TextColor(14); { Yellow = 14 }
   TextBackground(Blue);
   WriteLn('Hola otra vez!');
 
   NormVideo; { Colores por defecto }
   WriteLn('Hemos terminado...');
end.

Órdenes relacionadas:   crt   highvideo   lowvideo   textattr   textbackground   textcolor  

  Volver al índice de la referencia o al apartado de Pascal