Poner colores

A todos nos gustan los colores y Pascal no se queda atrás, por eso para colocar colores a nuestros programas tenemos dos procedimientos. Uno para colorear las letras y otro para los fondos, estos son:

TextColor y TextBackground
Son muy fácil de usar pero podemos llegar a hacer un desastre, por eso tienes que ir recordando (o tratar) donde declaraste cada uno para saber a que parte del programa afecta.

Su declaración es muy sencilla, solo basta con recordar sus nombres y luego elegimos el color. Los colores los podemos escribir (en ingles) o ingresar su equivalencia en número.

De Dicho Soft

Declaración
          Textcolor (3);
          Textbackground (15);

Estos afectan a todo lo declarado a su continuación, ejemplo:

Program Color;
Uses Crt;
Begin
     Clrscr;
     Writeln ('Dicho Soft'); {Fondo negro y en letras gris claro, es la configuración por defecto}
     TextColor (15); TextBackground (7);
     Writeln ('Dicho Soft'); {Fondo gris claro y en letras blancas}
End.

Efecto Titilar
Un efecto que podemos complementar con TextColor es Blink, que hace que el texto titile o parpadee (Funciona cuando se esta ejecutando el programa en pantalla completa, esto se hace apretando Alt + Enter). Y se declara sumándole 128 al valor del color o agregando la palabra "Blink". TextColor (130); o TextColor (2 + Blink);.

Ejemplo
Estas son unas líneas de un código que escribí para un trabajo práctico, y que cumplen la función de dibujar en la pantalla un submenú del programa. Solo dibuja el fondo y las líneas del contorno, el texto se agrega por separado en otra parte del programa.
Aún no he explicado como se declaran Procedure y Function (Procedimientos y Funciones), por lo que puede que no entiendas las primeras dos líneas (o si), pero lo que sigue si tienes que entenderlo por que ya lo explique.

De Dicho Soft

El resultado de ejecutar este Procedure es el siguiente:

De Dicho Soft

Lo interesante de este Procedure es que puedo dibujar un submenú del tamaño que quiera y en cualquier parte de la pantalla, solo basta con  ir variando los números que le paso al Procedure (que son los valores de X, Y, F, C). Lo mismo para los colores (Color1, Color2, Color3).

En la próxima veremos procedimientos y funciones, como a mi me gusta explicar... directo al grano y con ejemplos para que se entienda.