Процедура GetViewSettings

Модуль GRAPH

Получает параметры текущей области просмотра.

Объявление:

Procedure GetViewSettings(Var ViewPort : ViewPortType);

Режим:

Real, Protected

Замечание:

Процедура GetViewSettings возвращает переменную типа ViewPortType.

Ограничения:

Нужно быть в графическом режиме.

Пример:

{ Пример программы для процедуры GetViewSettings }

Uses Graph;

Var Gd, Gm : Integer;
  ViewPort : ViewPortType;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 GetViewSettings(ViewPort);
 With ViewPort Do
  Begin
   Rectangle(0, 0, X2 - X1, Y2 - Y1);
   If Clip Then OutText('Clipping is active.')
           Else OutText('No clipping today.');
  End;
 ReadLn;
 CloseGraph;
End.