Otevřít hlavní menu

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.