[ Acima ]

[ Voltar ] [ Avançar ]
Unit CRT: TextMode

Objetivo:
Seleciona um modo de texto específico.

Sintaxe:
TextMode(modo);
Onde: modo é um número correspondente ao modo de vídeo desejado.
Você pode utilizar uma das seguintes constantes pré-definidas ao invés do número:

Número

 Constante Cor
0 BW40 Preto-e-branco com 40 colunas e 25 linhas em um monitor CGA
1 CO40 Colorido com 40 colunas e 25 linhas em um monitor CGA
2 BW80 Preto-e-branco com 80 colunas e 25 linhas em um monitor CGA
3 CO80 Colorido com 80 colunas e 25 linhas em um monitor CGA
7 MONO Preto-e-branco com 80 colunas e 25 linhas em um monitor MDA ou HGC
256 FONT8X8 Colorido com 80 colunas e 43-50 linhas em um monitor EGA/VGA

Exemplo:

 
Uses CRT;
 
Var modoOriginal: Integer;


 
Begin
   { 
Muda
 o 
modo
 de 
vídeo
 
para
 40 
colunas
 e 
volta
 
para
 o 
modo
 80 
colunas
 }
   { OBS: 
Não
 funciona 
em
 
monitores
 
monocromáticos
 }


   modoOriginal := LastMode; { LastMode significa “último modo” e 
          é uma variável do Pascal que armazena o modo de texto corrente }
   TextMode(CO40); 


   WriteLn(‘
Caracteres
 
grandes
’);


   ReadLn;


   TextMode(modoOriginal);


End.
[ Acima ]

[ Voltar ] [ Avançar ]