Zmiana koloru tekstu

Dział przeznaczony zagadnieniom związanym z programowaniem w Pascalu / Turbo Pascalu. Gotowe rozwiązania, programy, porady, pomoc dla początkujących.
Locked
User avatar
marcon
Administrator
Administrator
Posts: 2417
Joined: 13-08-2009 19:24
Location: /root
Contact:

Zmiana koloru tekstu

Post by marcon »

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.
 

Locked

Who is online

Users browsing this forum: No registered users and 1 guest