Процедура GetViewSettings

Модуль Graph

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

Объявление:

Procedure GetViewSettings(Var ViewPort : ViewPortType);

Режим: 

Замечания:
Процедура GetViewSettings возвращает переменную типа ViewPortType. / Нужно быть в графическом режиме.

Пример:

 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.

Пример программы: getvwset.pas

См. также: