RestoreCrtMode

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.