ClearDevice
Verze z 4. 10. 2012, 16:12, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (Created page with "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í...")
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.