GetGraphMode

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.