getvwset.pas

{Getvwset.PAS}
 
{ Пример программы для процедуры 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.