1 578
editací
Změny
bez shrnutí editace
Vrátí ukazatel aktuální pozice (CP) do výchozí pozice a obnoví implicitní nastavení grafiky.
;Deklarace
procedure GraphDefaults;
;Režim
:Reálný, Chráněný
;Poznámky
:Vrátí ukazatel aktuální pozice CP (current pointer) do výchozí pozice a znovunastaví grafický systém na implicitní hodnoty pro
:* výřez (viewport)
:* paletu
:* kreslící barvy a barvy pozadí
:* styl čáry a vzorek čáry
:* styl, barvu a vzorek vyplňování
:* aktivní font, styl textu, zarovnávání textu a uživatelskou velikost znaků
;Omezení
:Je nutno být v grafickém režimu.
Vzorový příklad
{Grfdeflt.PAS}
{Vzorový příklad pro proceduru ýGraphDefaultsý.}
uses
Crt, Graph;
var
Gd, Gm : Integer;
begin
Gd := Detect; InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then Halt(1);
SetColor(1);
OutText('Tento text je v barvě #1');
ReadLn;
ClearViewPort;
GraphDefaults; { Inicializuje režim }
OutText('Tento text je v implicitní barvě');
ReadLn;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure GraphDefaults;
;Režim
:Reálný, Chráněný
;Poznámky
:Vrátí ukazatel aktuální pozice CP (current pointer) do výchozí pozice a znovunastaví grafický systém na implicitní hodnoty pro
:* výřez (viewport)
:* paletu
:* kreslící barvy a barvy pozadí
:* styl čáry a vzorek čáry
:* styl, barvu a vzorek vyplňování
:* aktivní font, styl textu, zarovnávání textu a uživatelskou velikost znaků
;Omezení
:Je nutno být v grafickém režimu.
Vzorový příklad
{Grfdeflt.PAS}
{Vzorový příklad pro proceduru ýGraphDefaultsý.}
uses
Crt, Graph;
var
Gd, Gm : Integer;
begin
Gd := Detect; InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then Halt(1);
SetColor(1);
OutText('Tento text je v barvě #1');
ReadLn;
ClearViewPort;
GraphDefaults; { Inicializuje režim }
OutText('Tento text je v implicitní barvě');
ReadLn;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]