[ Foro de Pascal ]
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.
(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)