Правила форума
Getvwset.PASЯзык:
Русский
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.
::
::
::
