Colore en pascal

Colores, estilos de línea y patrones de relleno

Manejo de colores
En el modo gráfico, también es posible cambiar el color del primer plano y el fondo de pantalla, y para hacer esto Turbo Pascal emplea 16 constantes de colores que permiten establecer el color de los graficos que se muestren en pantalla, tales como la que se muestra en la siguiente tabla:
Colores oscuros (para primer plano yfondo) Colores claros (solo para primer plano)
Constante Valor Color Constante Valor Color
Black 0 Negro DarkGray 8 Gris Oscuro
Blue 1 Azul LightBlue 9 Azul claro
Green 2 Verde LightGreen 10 Verde claro
Cyan 3 Cyan LightCyan 11 Cyan claro
Red 4 Rojo LightRed 12 Rojo claro
Magenta 5 Magenta LightMagenta 13 Magenta claro
Brown 6 Café Yellow 14 Amarillo
LightGray 7 Gris claro White 15 BlancoEn Turbo Pascal existen varios procedimientos que utilizan estas constantes como parámetros para asingar los colores, y los cuales se explican a continuación.
Procedimiento SetColor
Este permite seleccionar el color del primer plano o de los graficos que se vayan a dibujar, tales como un círculo, una linea, un texto gráfico, etc. Su sintaxis es la siguiente:
SetColor(Color);
El argumentoColor puede ser cualquier nombre de constante o un valor numérico directo que representa el color tal como se muestran en la tabla de colores anteriormente descrita. Por ejemplo:
PROGRAM uso_del_SetColor; {+-----------------------------------------+ |Este programa dibuja dibuja varias linea | |partiendo desde el centro de la pantalla | |hacia los bordes de la pantalla en forma | |aleatorea| +-----------------------------------------+} USES Crt, Graph; VAR Gd, GM, CentroX, CentroY: INTEGER; BEGIN GD := Detect; {Autodetecta el controlador gráfico} INITGRAPH(GD, GM, 'C:\TP\BGI'); {Inicializa el modo gráfico} IF GRAPHRESULT GROK THEN HALT(1); {Si inicialización no fue OK,cierra el programa} RANDOMIZE; {Activa el generador de números aleatorios} REPEAT {Repite el cliclo hasta que el usuario presiona una tecla} CentroX := GetMaxX DIV 2; {Calcula el centro en X} CentroY := GetMaxY DIV 2; {Calcula el centro en Y}SETCOLOR(RANDOM(14)+1); {Fija aleatoriamente los colores} LINE(CentroX,CentroY, RANDOM(GETMAXx), RANDOM(GETMAXy)); {Dibuja una linea} UNTIL KEYPRESSED; {Final del ciclo Repeat} CLOSEGRAPH; {Cierra el modo gráfico} END.{Final del programa}
Procedimiento SetBkColor;
Este permite seleccionar el color del fondo de la pantalla por un color especifico, es el equivalente al procedimientoTextBackground utilizado en el modo texto. Su sintaxis es la siguiente:
SetBkColor(ColorFondo);
El parámetro ColorFondo funciona para los nombres de constantes de colores y valores numéricos especificados unicamente para elcolor de fondo según se muestra en la tabla de colores anteriormente decrita. Por ejemplo:
PROGRAM uso_del_SetBkColor; {+----------------------------------------+ |Este programa cambia en forma aleatoria | |el color de fondo de la pantalla | +----------------------------------------+} USES Crt, Graph; VAR GD, GM, Color: INTEGER; BEGIN GD := DETECT;{Autodetecta el controlador gráfico} INITGRAPH(GD, GM, 'C:\TP\BGI'); {Inicializa el modo gráfico} IF GRAPHRESULT GROK THEN HALT(1);{si inicialización no fue OK, cierra el programa} RANDOMIZE; {Activa el generador de números aleatorios} REPEAT {Repite ciclo hasta que el usuario presiona una...