RestoreCrtMode
Verze z 4. 10. 2012, 16:33, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (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
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.