GraphDefaults
Verze z 4. 10. 2012, 17:01, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit Graph)
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.