[ Voltar ] [ Avançar ]

Objetivo:
Posiciona o cursor na coluna e linha especificados.

Sintaxe:
TextColor(cor_da_letra);
Onde: cor_da_letra é um número entre 0 e 15 que corresponde à cor da letra desejada.
Você pode utilizar uma das seguintes constantes pré-definidas ao invés do número:

Veja também:
TextBackground; HighVideo; NormVideo; LowVideo

Exemplo:

Uses CRT;

Begin

   Window(1, 10, 60, 20);  { Define a janela ativa nas coordenadas especificadas }

   GotoXY(1,1);            { Posiciona o cursor na coluna 1, linha 1 }

   TextColor(Black);

   TextBackGround(White);

   ClrScr; 		  

   WriteLn('* <- Este é o canto superior esquerdo da janela.');

   WriteLn;

   Write('Pressione <Enter> para sair');

   ReadLn;

   TextBackGround(Black);

   TextColor(White);

   Window(1,1,80,25);      { Volta para a janela padrão }

   ClrScr(); 

End.

[ Voltar ] [ Avançar ]