ClearViewPort

Smaže aktuální výřez.

Deklarace

procedure ClearViewPort;

Režim

Reálný, Chráněný

Poznámky

ClearViewPort nastaví výplňovou barvu na barvu pozadí (Palette [0]) a přemístí aktuální ukazatel do bodu (0, 0).

Omezení

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

Viz také

ClearDevice

GetViewSettings

SetViewPort

Vzorový příklad

{Clrvwprt.PAS}
{Vzorový příklad pro proceduru ClearViewPort.}
uses Graph;
var Gd, Gm: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  Rectangle(19, 19, GetMaxX - 19, GetMaxY - 19);
  SetViewPort(20, 20, GetMaxX - 20, GetMaxY - 20, ClipOn);
  OutTextXY(0, 0, '<ENTER> smaže výřez:');
  Readln;
  ClearViewPort;
  OutTextXY(0, 0, '<ENTER> ukončí program:');
  Readln;  CloseGraph;
end.