www.techinf1.fora.pl

tehran

Składnia: TextColor(kolor:byte); CRT

Black = 0 - czarny
Blue = 1 - niebieski
Green = 2 - zielony
Cyan = 3 - turkusowy
Red = 4 - czerwony
Magenta = 5 - karmazynowy
Brown = 6 - brązowy
LightGray = 7 - jasnoszary
DarkGray = 8 - ciemnoszary
LightBlue = 9 - jasnoniebieski
LightGreen = 10 - jasnozielony
LightCyan = 11 - jasnoturkusowy
LightRed = 12 - jasnoczerwony
LightMagenta = 13 - jasnokarmazynowy
Yellow = 14 - żółty
White = 15 - biały

Można wykonać również kolor migoczący, uzyskuje się poprzez dodanie do wybranego koloru liczby 128 ( Blink ) np.
program kolor;
Uses CRT;{ pozwalają na kontrolę trybów ekranu, rozszerzonymi kodami i
klawiatury, kolorami, oknami i dźwiękiem}
Begin
TextColor(Blue);
Write('Napis Niebieski');
TextColor(8);
Write('Napis Ciemnoszary');
TextColor(Red+Blink);
Write('Napis Czerwony mrugajacy');
TextColor(15+128); { TextColor(143); }
Write('Napis Biały mrugający');
End.

Chyba nic nie trzeba wyjasniac odnosnie programu bo jest oczywisty:D