GetGraphMode

Z Delphi & Pascal (česká wiki)
(přesměrováno z CGA)
Skočit na navigaci Skočit na vyhledávání

Vrací aktuální grafický režim.

Deklarace
function GetGraphMode: Integer;
Režim
Reálný, Chráněný
Poznámky
GetGraphMode vrací aktuální grafický režim, nastavený pomocí InitGraph nebo SetGraphMode. Hodnota Mode je celé číslo v rozmezí od 0 do 5, v závislosti na aktuálním driveru.

Jsou definovány tyto konstanty režimů:

Grafický
driver
Jméno
konstanty
Hodnota Sloupců
x řádek
Paleta Stránek
CGA CGAC0 0 320x200 C0 1
CGAC1 1 320x200 C1 1
CGAC2 2 320x200 C2 1
CGAC3 3 320x200 C3 1
CGAHi 4 640x200 2 barvy 1
MCGA MCGAC0 0 320x200 C0 1
MCGAC1 1 320x200 C1 1
MCGAC2 2 320x200 C2 1
MCGAC3 3 320x200 C3 1
MCGAMed 4 640x200 2 barvy 1
MCGAHi 5 640x480 2 barvy 1
EGA EGALo 0 640x200 16 barev 4
EGAHi 1 640x350 16 barev 2
EGA64 EGA64Lo 0 640x200 16 barvy 1
EGA64Hi 1 640x350 4 barvy 1
EGA-MONO EGAMonoHi 3 640x350 2 barvy 1*
EGAMonoHi 3 640x350 2 barvy 1**
HERC HercMonoHi 0 720x348 2 barvy 1
ATT400 ATT400C0 0 320x200 C0 1
ATT400C1 1 320x200 C1 1
ATT400C2 2 320x200 C2 1
ATT400C3 3 320x200 C3 1
ATT400Med 4 640x200 2 barvy 1
ATT400Hi 5 640x400 2 barvy 1
VGA VGALo 0 640x200 16 barev 2
VGAMed 1 640x350 16 barev 2
VGAHi 2 640x480 16 barev 1
PC3270 PC3270Hi 0 720x350 2 barvy 1
IBM8514 IBM8514Lo 0 640x480 256 barev 1
IBM8514 IBM8514Hi 0 1024x768 256 barev 1
* 64K na kartě EGAMono
** 256K na kartě EGAMono
Omezení
Je nutno být v grafickém režimu.
Viz také
ClearDevice
DetectGraph
InitGraph
RestoreCrtMode
SetGraphMode


Vzorový příklad

{Getgrfmd.PAS}
{Vzorový příklad pro funkci GetGraphMode.}
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> skončete:');
  Readln;
  CloseGraph;
end.