Změny

Skočit na navigaci Skočit na vyhledávání

ClearDevice

Přidáno 881 bajtů, 4. 10. 2012, 17:12
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]]

:[[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.

[[Category:Graph]]
[[Category:Procedúry Graph]]

Navigační menu