GetViewSettings

Vrací aktuální výřez (viewport) a parametry ořezávání.

Deklarace

procedure GetViewSettings(var ViewPort: ViewPortType);

Režim

Reálný, Chráněný

Poznámky

GetViewSettings vrací proměnnou typu ViewPortType.

Omezení

Je nutno být v grafickém režimu.

Viz také

ClearViewPort

SetViewPort

Vzorový příklad

{Getvwset.PAS}
{Vzorový příklad pro proceduru 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('Ořezávání je aktivní.')
    else
      OutText('Dnes žádné ořezávání.');
  end;
  Readln;
  CloseGraph;
end.