ClearDevice
Skočit na navigaci
Skočit na vyhledávání
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
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.