[ Voltar ]

Objetivo:
Define uma janela de texto na tela e torna-a ativa.

Sintaxe:
Window(ci, li, cf, lf);
Onde: ci - coluna inicial, li - linha inicial, cf - coluna final, lf - linha final.
OBS: no modo texto padrão as colunas variam de 1 a 80 e linhas de 1 a 25.

Veja também:

ClrEol; ClrScr; DelLine; GotoXY; WhereX; WhereY;

Exemplo:

Uses CRT;

Var x, y: Byte;

Begin

   TextBackGround(Black); { Muda cor de fundo para preto }
   ClrScr; 		  { Apaga a tela }

   Repeat

      { Cria janelas aleatórias } 

      x := Succ(Random(80));

      y := Succ(Random(25));

      Window(x, y, x + Random(10), y + Random(8));

      TextBackGround(Random(16)); 

      ClrScr;   

   Until KeyPressed;

End.

[ Voltar ]