[ Foro de Pascal ]

Color de fondo en freepascal

Hola. Colegas
Mi problema esta en el color de fondo en freepascal. Que no tengo forma de conseguirlo.
Va por delante mi agradecimiento a todos.
Un saludo.
Antonio.

Si te refieres a cómo cambiar el color de fondo del texto, usando FreePascal en modo "consola" (texto puro, no "ventanitas", como en Delphi o Lazarus), deberías poder hacer igual que en Turbo Pascal, es decir:

uses crt;
...
TextBackground( Blue );


Tienes más detalles aquí:

http://www.aprendeaprogramar.com/mod/resource/view.php?id=153

Para complementar la respuesta del prof. Nacho Cabanes, te puedo decir que deberás agregar la sentencia ClrScr al código, después de la línea TextBackgroud(Blue). Así, el código debería ser:

uses Crt;
.
.
.
BEGIN
  TextBackgroud(1);
  ClrScr;
  .
  .
  .
END.

Eso es todo.
Saludos.

Hola. Nuevamente:
Espero me perdoneis. Pues me quedé corto al explicar el tema del
color de fondo en FREEPASCAL. Así pues, me refería al color de fondo en MODO GRAFICO; que la funcion para ello es SETBKCOLOR(X) y que amí no me funciona. Es posible, como apunta uno de Vds, que esté en la función de limpiar pantalla que para FREEPASCAL  en MODO GRAFICO es CLEARDEVICE.
Con todo esto, muy agradecido por la colaboracion.
Antonio

Pues debería funcionar. En modo gráfico, el color de fondo se cambia con SetBkColor y a continuación se debería borrar la pantalla con ClearDevice (si no borras la pantalla, no se apreciará ese nuevo color de fondo, salvo quizá al dibujar líneas discontínuas).

http://www.freepascal.org/docs-html/rtl/graph/setbkcolor.html

http://www.freepascal.org/docs-html/rtl/graph/cleardevice.html

Efectivamente. Agregando CLEARDEVICE a continuacion de SETBKCOLOR se estable el color de fondo indicado; cosa que yo ignoraba.
Muy agradecido.
Antonio.