Pascal/Turbo Pascal - TextAttr

Saludos!.
El TextAttr devuelve un valor numerico del color utilizado para el texto, y mas nada?.
Es la única información que da?.
Gracias!.
Bernardo.

No, en realidad guarda más que eso, también almacena el atributo del texto, (inverso, parpadeando, etc). TextAttr es una variable de tipo byte y es muy útil cuando quieres recordar los tributos de textos antes de modificarlo con TextColor o TextBackGround y luego restaurar esos atributos a los originales, por ejemplo:
uses Crt;
var
BkTxtAtrr: byte;
begin
BkTxtAttr:=TextAttr;
TextColor(2);
TextBackGround(7);
WriteLn('Esto es una prueba.');
TextAttr:=BkTxtAttr;
WriteLn('La pruena finalizó.');
end.

Gracias Diego!.
Prefiero esto al NormVideo.
Later!.

Hola!
Información extra:

Tambien puedes asignar el valor que necesites
a la variable -TextAttr -. Ejem:

TextAttr:= Blue * $10 + Green;
Writeln ('PRUEBA 1');

La variable TextAttr es de solamente un byte
y esta codificada de la siguiente manera:
El primer nibble(bits 0,1,2,3) indican el color del texto 0-15
Los bits 4, 5, y 6 indican el color de fondo 0-7
El ultimo bit o el bit 7 se refiere al parpadeo(blink).
Si el bit 7 esta activo entonces habra parpadeo.

ok
Att:Ge-ergon

Epale Ge-ergon!.
Voy a probarlo entonces.
Thanks!, y felices fiestas a todos!.
Bernardo.