Turbo Pascal Documentation

Процедура GetViewSettings

Модуль Graph

     Функция: Позволяет пользователю выдать запрос о текущей
области просмотра на экране и параметрах "вырезанного" изображения.
     Описание: GetViewSettings(var ViewPort : ViewPortType)
     Примечания: Данная процедура возвращает переменную типа
ViewPortType. Этот тип предварительно описан следующим образом:

   type
    ViewPortType = record
                     x1, y1, x2, y2: integer;
                     Clip : boolean;
                   end;
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Точки (x1,y1) и (x2,y2) представляют собой размеры  ак-
тивной  области  просмотра. Параметр Clip представляет собой
переменную булевского типа и указывает на наличие  "вырезан-
ного" (отсеченного за заданными границами) изображения.
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуру SetViewPort.
     Пример:

  uses
    Graph;
  var
    Gd, Gm : integer;
   ViewPortType = ViewPortType;
  begin
    Gd := Detect;  { перевести в графический режим }
    InitGraph(Gd, Gm, '');
    if GraphResult < 0 then
       Halt(1);
    GetViewSettings(ViePort);
    with ViewPort do
    begin
      Rectangle(0, 0, x2 - x1, y2 - y1);
      if Clip then
         OutText('Отсечение изображения не активно');
      else
      OutText('Сегодня отсечение изображения не действует');
     end;
     Readln;
     CloseGraph;
  end.