ClearDevice

Smaže grafickou obrazovku a připraví ji pro výstup.

Deklarace

procedure ClearDevice;

Režim

Reálný, Chráněný

Poznámky

ClearDevice přemístí aktuální ukazatel do bodu (0, 0), smaže obrazovku použitím aktuální barvy pozadí (nastavenou pomocí SetBkColor) a připraví obrazovku pro výstup.

Omezení

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

Viz také

ClearViewPort

CloseGraph

InitGraph

RestoreCrtMode

SetGraphMode

Vzorový příklad

{Clrdevc.PAS}
{Vzorový příklad pro proceduru ClearDevice.}
uses Crt, Graph;
var Gd, Gm: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  Randomize;
  repeat
    LineTo(Random(200), Random(200));
  until KeyPressed;
  ClearDevice;
  Readln;
  CloseGraph;
end.