1 578
editací
Změny
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]]
;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]]