Změny

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

GraphDefaults

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

Navigační menu