GetGraphMode
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
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.