Правила форума
GetViewSettings (процедура) (модуль Graph)Язык:
Русский
English
GetViewSettings (процедура) (модуль Graph)
Получает параметры текущей области просмотра.
Объявление
Procedure GetViewSettings(Var ViewPort : ViewPortType);
Режим
Real, Protected
Замечания
Процедура GetViewSettings возвращает переменную типа ViewPortType.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры GetViewSettings }
uses Graph;
var
Gd, Gm : Integer;
ViewPort : ViewPortType;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
var
Gd, Gm : Integer;
ViewPort : ViewPortType;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
::
::
::
