• Domingo 16 de Junio de 2019, 09:13

Autor Tema:  Para Textattr  (Leído 1281 veces)

_.B._

  • Miembro activo
  • **
  • Mensajes: 88
    • Ver Perfil
Para Textattr
« en: Miércoles 31 de Diciembre de 2003, 18:01 »
0
Saludos!.
Creé este código en donde aparece el valor de TextAttr (que va de 0 a 255) para cada color de texto (TextColor, que va del 0 al 31, contando los que titilan - blink), con cada color de fondo (TextBackground, que va del 0 al 7, y que son iguales a los 8 primeros colores del TextColor).
>> Para cambiar de color de fondo, presiona cualquier tecla. Para salir del programa, presiona la tecla ESC en cualquier momento <<
Hay una copia de este archivo en http://mipagina.cantv.net/bernardolg/tp/files/BACKGRD1.PAS
Despues que veas la combinación de color de texto con color de fondo, simplemente haces TextAttr:=192 (letras negras que titilan sobre fondo rojo), o TextAttr:=15 (letras blancas en fondo negro), o el que mas te sirva,  en cualquier parte de tu programa.
Utiliza Normvideo para reestablecer el TextAttr original, o lee los mensaje de este foro para otros ejemplos del TextAttr.
A programar!.
Bernardo L. :comp:

{* * * *}
PROGRAM TextoFondo;
USES CRT;
VAR C1:BYTE;
    Chr1:CHAR;

PROCEDURE TEXTOO;
  VAR C1,C2:BYTE;
  BEGIN
    FOR C1:=0 TO 31 DO
      BEGIN
        TEXTCOLOR (C1);
        FOR C2:=1 TO 4 DO
          WRITE (TEXTATTR:5)
      END;
    END;

BEGIN
  CLRSCR;
  C1:=0;
  WHILE Chr1 <> #27 DO
    BEGIN
      IF C1 = 8 THEN
        C1:=0;
      TEXTBACKGROUND (C1);
      CLRSCR;
      TEXTOO;
      INC (C1);
      Chr1:=READKEY
    END;
  NORMVIDEO;
  CLRSCR
END.
{* * * *}

NOTA: correciones bien recibidas.
¡Olmo, dame peras!
www.BernardoLG.net

¡Un error ha ocurrido!

Class 'Geshi' not found