1 578
editací
Změny
Created page with "Smaže aktuální výřez. ;Deklarace procedure ClearViewPort; ;Režim :Reálný, Chráněný ;Poznámky :ClearViewPort nastaví výplňovou barvu na barvu pozadí ([[..."
Smaže aktuální výřez.
;Deklarace
procedure ClearViewPort;
;Režim
:Reálný, Chráněný
;Poznámky
:[[ClearViewPort]] nastaví výplňovou barvu na barvu pozadí ([[Palette]] [0]) a přemístí aktuální ukazatel do bodu (0, 0).
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[ClearDevice]]
:[[GetViewSettings]]
:[[SetViewPort]]
Vzorový příklad
{Clrvwprt.PAS}
{Vzorový příklad pro proceduru ClearViewPort.}
uses Graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
Rectangle(19, 19, GetMaxX - 19, GetMaxY - 19);
SetViewPort(20, 20, GetMaxX - 20, GetMaxY - 20, ClipOn);
OutTextXY(0, 0, '<ENTER> smaže výřez:');
Readln;
ClearViewPort;
OutTextXY(0, 0, '<ENTER> ukončí program:');
Readln; CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure ClearViewPort;
;Režim
:Reálný, Chráněný
;Poznámky
:[[ClearViewPort]] nastaví výplňovou barvu na barvu pozadí ([[Palette]] [0]) a přemístí aktuální ukazatel do bodu (0, 0).
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[ClearDevice]]
:[[GetViewSettings]]
:[[SetViewPort]]
Vzorový příklad
{Clrvwprt.PAS}
{Vzorový příklad pro proceduru ClearViewPort.}
uses Graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
Rectangle(19, 19, GetMaxX - 19, GetMaxY - 19);
SetViewPort(20, 20, GetMaxX - 20, GetMaxY - 20, ClipOn);
OutTextXY(0, 0, '<ENTER> smaže výřez:');
Readln;
ClearViewPort;
OutTextXY(0, 0, '<ENTER> ukončí program:');
Readln; CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]