Início / Programação / TextColor no Pascal

TextColor no Pascal

Tabela de cores no Pascal – TextColor

Unit CRT: TextColor

Esta Procedure permite selecionar a cor com que o texto ser imprimido.

Tabela de cores:

Constante Cor
0BlackPreto
1BlueAzul
2GreenVerde
3CyanCiano
4RedVermelho
5MagentaMagenta
6BrownMarrom
7Light GrayCinza claro
8Dark GrayCinza escuro
9Light BlueAzul claro
10Light GreenVerde claro
11Light  CyanCiano claro
12Light RedVermelho claro
13Light MagentaMagenta claro
14YellowAmarelo
15WhiteBranco

Exemplo:

// Autor: Portal Clique - portalclique.com
program TextColor;
uses crt;
begin
textcolor(14);
writeln('Cor: Amarelo');
textcolor(3);
writeln('Cor: Ciano');
textcolor(15);
// Exibe com a cor branca
writeln('Pressione para fechar');
readkey;
end.

Resultado:
textcolor_exemplo

Texto piscando (blink)

textcolor (cor+blink)

Verifique Também

Como Desmarcar a Opção “Detectar automaticamente as configurações” em Configurações da LAN – Delphi

Desmarcando a Opção “Detectar automaticamente as configurações” em Configurações da LAN com Delphi Crie um …