1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Created page with "Vrátí obrazovku do stejného režimu, v jakém byl před inicializací grafiky. ;Deklarace procedure RestoreCrtMode; ;Režim :Reálný, Chráněný ;Poznámky :Obnoví p..."
Vrátí obrazovku do stejného režimu, v jakém byl před inicializací grafiky.
;Deklarace
procedure RestoreCrtMode;
;Režim
:Reálný, Chráněný
;Poznámky
:Obnoví původní video režim, detekovaný procedurou [[InitGraph]]. Spolu s procedurou [[SetGraphMode]] může být tato procedura použita k operativnímu přepínání mezi textovým a grafickým režimem bez nutnosti ukládání všech parametrů.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[CloseGraph]]
:[[DetectGraph]]
:[[InitGraph]]
:[[SetGraphMode]]
Vzorový příklad
{Rstcrtmd.PAS}
{Vzorový příklad pro proceduru RestoreCrtMode.}
uses Graph;
var
Gd, Gm: Integer;
Mode: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
OutText('Stisknutím <ENTER> opusťte grafiku:');
Readln;
RestoreCrtMode;
Writeln('Nyní jste v textovém režimu');
Write('Stisknutím <ENTER> se přepněte do grafického režimu:');
Readln;
SetGraphMode(GetGraphMode);
OutTextXY(0, 0, 'Zpátky v grafickém režimu');
OutTextXY(0, TextHeight('H'), 'Stisknutím <ENTER> program ukončete:');
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Funkce Graph]]
;Deklarace
procedure RestoreCrtMode;
;Režim
:Reálný, Chráněný
;Poznámky
:Obnoví původní video režim, detekovaný procedurou [[InitGraph]]. Spolu s procedurou [[SetGraphMode]] může být tato procedura použita k operativnímu přepínání mezi textovým a grafickým režimem bez nutnosti ukládání všech parametrů.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[CloseGraph]]
:[[DetectGraph]]
:[[InitGraph]]
:[[SetGraphMode]]
Vzorový příklad
{Rstcrtmd.PAS}
{Vzorový příklad pro proceduru RestoreCrtMode.}
uses Graph;
var
Gd, Gm: Integer;
Mode: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
OutText('Stisknutím <ENTER> opusťte grafiku:');
Readln;
RestoreCrtMode;
Writeln('Nyní jste v textovém režimu');
Write('Stisknutím <ENTER> se přepněte do grafického režimu:');
Readln;
SetGraphMode(GetGraphMode);
OutTextXY(0, 0, 'Zpátky v grafickém režimu');
OutTextXY(0, TextHeight('H'), 'Stisknutím <ENTER> program ukončete:');
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Funkce Graph]]
