Zmiana koloru tekstu

marcon · Post by **marcon** » 21-02-2012 15:10

Zmiana koloru wyświetlanego tekstu w Pascalu jest bardzo prosta. Służy do tego funkcja TextColor zawarta w module crt. Aby z niej korzystać musimy dołączyć do naszego programu tenże moduł.

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.

Rozpierducha-CS - Serwery CS, Forum dyskusyjne, Counter-Strike - Najlepsze polskie serwery Counter Strike Steam i Non-Steam

Zmiana koloru tekstu

Zmiana koloru tekstu

Who is online