| [ Acima ] |
| Unit CRT: GotoXY |
Objetivo:
|
|
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 ] |