textcolor

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

Cambia el color de texto

Biblioteca: crt

Declaración: procedure TextColor(Color: Byte);

Detalles:
Escoge el color de primer plano que se usará para escribir el texto en pantalla.

El color es un valor del 0 al 15, o una de las siguiente constantes:

Black 0
Blue 1
Green 2
Cyan 3
Red 4
Magenta 5
Brown 6
LightGray 7
DarkGray 8
LightBlue 9
LightGreen 10
LightCyan 11
LightRed 12
LightMagenta 13
Yellow 14
White 15

Si al color se le suma 128 (o la constante Blink), éste parpadeará. (En las últimas versiones de Turbo Pascal, y por compatibilidad con TP3, parpadea cualquier color por encima del 15).

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   gotoxy   highvideo   lowvideo   normvideo   textbackground   window  


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