Składnia :
Code: Select all
TextColor( color:byte );Wymagane moduły :
Code: Select all
crt;Lista możliwych do użycia kolorów :
- Black = 0
- Blue = 1
- Green = 2
- Cyan = 3
- Red = 4
- Magenta = 5
- Brown = 6
- LightGray = 7
- DarkGray = 8
- LightBlue = 9
- LightGreen = 10
- LightCyan = 11
- LightRed = 12
- LightMagenta = 13
- Yellow = 14
- White = 15
Przykładowy program :
Code: Select all
program kolory;
uses crt;
begin
textcolor( 0 );
writeln( 'TEST' );
textcolor( 1 );
writeln( 'TEST' );
textcolor( 2 );
writeln( 'TEST' );
textcolor( 3 );
writeln( 'TEST' );
textcolor( 4 );
writeln( 'TEST' );
textcolor( 5 );
writeln( 'TEST' );
textcolor( 6 );
writeln( 'TEST' );
textcolor( 7 );
writeln( 'TEST' );
textcolor( 8 );
writeln( 'TEST' );
textcolor( 9 );
writeln( 'TEST' );
textcolor( 10 );
writeln( 'TEST' );
textcolor( 11 );
writeln( 'TEST' );
textcolor( 12 );
writeln( 'TEST' );
textcolor( 13 );
writeln( 'TEST' );
textcolor( 14 );
writeln( 'TEST' );
textcolor( 15 );
writeln( 'TEST' );
repeat until keypressed;
end.