Otevřít hlavní menu

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.