ClearViewPort

Z Delphi & Pascal (česká wiki)
Verze z 4. 10. 2012, 17:01, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit Graph)
Skočit na navigaci Skočit na vyhledávání

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.