[ Acima ]

Voltar ] Avançar ]

Unit CRT: GotoXY

Objetivo:
Posiciona o cursor na coluna e linha especificados.

Sintaxe:
GotoXY(col, lin);

Onde: col - coluna, lin - linha.
OBS: no modo texto padrão as colunas variam de 1 a 80 e linhas de 1 a 25.

Veja também:

Window; WhereX; WhereY;

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.
[ Acima ]

Voltar ] Avançar ]