Turbo Pascal Documentation

Процедура Window

Модуль Сrt

     Функция: Определяет на экране текстовое окно.
     Описание: Window(X1, Y1, X2, Y2)
     Примечания: Параметры Х1, Y1 представляют собой коорди-
наты верхнего левого угла окна, параметры Х2, Y2 представля-
ют собой координаты правого нижнего угла. Правый левый  угол
экрана  соответствует  координате  (1,1). Минимальный размер
текстового окна - один столбец на одну строку. Если  коорди-
наты являются каким-то образом недопустимыми, то обращение к
процедуре Window игнорируется.
     В 80-символьных режимах по умолчанию определяется  окно
(1,1,80,25),  а  в  40-символьных режимах - (1,1,40,25), что
соответствует всему экрану.
     Все координаты экрана (кроме самих координат окна)  яв-
ляются  относительными  координатами данного окна. Например,
GotoXY(1,1) всегда позиционирует  курсор  на  верхний  левый
угол текущего окна.
     Многие процедуры и функции модуля Сrt, включая  зависят
от текущего окна.
     Процедуры WindMin и WindМах сохраняют текущее определе-
ние окна (см. Главу 12).
     Пример:

       uses Crt;
       var
         x, y : byte;
       begin
         TextBackGround(Black);           { очистить экран }
         ClrScr;
         repeat
           x := Succ(Random(80));      { нарисовать
случайным
                                        образом окна }
           y := Succ(random(25));
           Window(x, y, x + Random(10), y + Random(8));
           TextBackGround(Random(16));  { использовать
случайные
                                          фоновые цвета }
           ClrScr;
         until KeyPressed;
        end.