RestoreCrtMode: Porovnání verzí
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...") |
|||
| (Není zobrazena jedna mezilehlá verze od stejného uživatele.) | |||
| Řádek 49: | Řádek 49: | ||
end. | end. | ||
[[Category:Graph]] | [[Category:Graph]] | ||
| − | [[Category: | + | [[Category:Procedúry Graph]] |
Aktuální verze z 4. 10. 2012, 17:10
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
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.
