GetGraphMode (функция) (модуль Graph)

Язык:
Русский
English

Возвращает текущий графический режим.

Объявление

Function GetGraphMode : Integer;

Режим

Real, Protected

Замечания

Функция GetGraphMode возвращает текущий графический режим, установленный с помощью InitGraph или SetGraphMode. Значение Mode - целое число от 0 до 5, в зависимости от текущего драйвера.

Определены следующие константы видеорежимов:

Имя константы Разрешение
Драйвер Значение Палитра Cтраниц

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 цвета     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 цвета     1
             MCGAHi       5     640x480   2 цвета     1
EGA         EGALo        0     640x200   16 цветов   4
             EGAHi        1     640x350   16 цветов   2
EGA64       EGA64Lo      0     640x200   16 цветов   1
             EGA64Hi      1     640x350   4 цвета     1
EGA-MONO    EGAMonoHi    3     640x350   2 цвета     1*
             EGAMonoHi    3     640x350   2 цвета     2**
HERC        HercMonoHi   0     720x348   2 цвета     2
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 цвета     1
             ATT400Hi     5     640x400   2 цвета     1
VGA         VGALo        0     640x200   16 цветов   2
             VGAMed       1     640x350   16 цветов   2
             VGAHi        2     640x480   16 цветов   1
PC3270      PC3270Hi     0     720x350   2 цвета     1
IBM8514     IBM8514Lo    0     640x480   256 цветов 1
IBM8514     IBM8514Hi    0    1024x768   256 цветов 1

* 64Кб памяти на плате EGAMono
** 256Кб памяти на плате EGAMono

Ограничения

Нужно быть в графическом режиме.

Смотри также

ClearDevice
DetectGraph
InitGraph
RestoreCrtMode
SetGraphMode

Пример

Язык:
Русский
English

{Getgrfmd.PAS}

{ Пример программы для функции GetGraphMode }

uses Graph;

var
  Gd, Gm : Integer;
  Mode   : Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, 'X:\BP');
  if GraphResult <> grOk then
    Halt(1);
  OutText('Press <ENTER> to leave graphics:');
  ReadLn;
  RestoreCrtMode;
  WriteLn('Текстовый режим');
  Write('Нажмите <ENTER>, чтобы войти в графику:');
  ReadLn;
  SetGraphMode(GetGraphMode);
  OutTextXY(0, 0, 'Back in graphics mode');
  OutTextXY(0, TextHeight('H'), 'Press <ENTER> to quit:');
  ReadLn;
  CloseGraph;
end.

Навигация Главная Скачать Turbo Pascal Скачать справочник Turbo Pascal Онлайн Форум \| Группа ВК \| Чат Лекции Алфавитный указатель Содержание справки Язык Turbo Pascal Стандартные модули Функции и процедуры Директивы компилятора Примеры программ Меню Turbo Pascal Ада-2020. Современный Паскаль Адское программирование Статьи по Ада-2020 Отзывы и идеи Об этом сайте Чат Войти Форум Загрузка...	Язык: Русский English GetGraphMode (функция) (модуль Graph) Возвращает текущий графический режим. Объявление Function GetGraphMode : Integer; Режим Real, Protected Замечания Функция GetGraphMode возвращает текущий графический режим, установленный с помощью InitGraph или SetGraphMode. Значение Mode - целое число от 0 до 5, в зависимости от текущего драйвера. Определены следующие константы видеорежимов: Имя константы Разрешение Драйвер Значение Палитра Cтраниц 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 цвета 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 цвета 1 MCGAHi 5 640x480 2 цвета 1 EGA EGALo 0 640x200 16 цветов 4 EGAHi 1 640x350 16 цветов 2 EGA64 EGA64Lo 0 640x200 16 цветов 1 EGA64Hi 1 640x350 4 цвета 1 EGA-MONO EGAMonoHi 3 640x350 2 цвета 1* EGAMonoHi 3 640x350 2 цвета 2** HERC HercMonoHi 0 720x348 2 цвета 2 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 цвета 1 ATT400Hi 5 640x400 2 цвета 1 VGA VGALo 0 640x200 16 цветов 2 VGAMed 1 640x350 16 цветов 2 VGAHi 2 640x480 16 цветов 1 PC3270 PC3270Hi 0 720x350 2 цвета 1 IBM8514 IBM8514Lo 0 640x480 256 цветов 1 IBM8514 IBM8514Hi 0 1024x768 256 цветов 1 * 64Кб памяти на плате EGAMono 256Кб памяти на плате EGAMono Ограничения Нужно быть в графическом режиме. Смотри также ClearDevice DetectGraph InitGraph RestoreCrtMode SetGraphMode Пример Язык: Русский** English {Getgrfmd.PAS} { Пример программы для функции GetGraphMode } uses Graph; var Gd, Gm : Integer; Mode : Integer; begin Gd := Detect; InitGraph(Gd, Gm, 'X:\BP'); if GraphResult <> grOk then Halt(1); OutText('Press <ENTER> to leave graphics:'); ReadLn; RestoreCrtMode; WriteLn('Текстовый режим'); Write('Нажмите <ENTER>, чтобы войти в графику:'); ReadLn; SetGraphMode(GetGraphMode); OutTextXY(0, 0, 'Back in graphics mode'); OutTextXY(0, TextHeight('H'), 'Press <ENTER> to quit:'); ReadLn; CloseGraph; end.
	Тэги: GetGraphMode