Процедура 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
См. также: