HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 ноября. В 1922 году (95 лет назад) - Писатель А.С. ГРИН завершает в Петербурге написание фантастической феерии "Алые паруса", посвятив ее своей жене Нине Грин.
 
 

Turbo Pascal Documentation

Процедура SetGraphMode

Модуль Graph


     Функция: Устанавливает для системы графический  режим и
очищает экран.
     Описание: SetGraphMode(режим : integer)
     Примечания: Параметр "режим" должен задавать  для теку-
щего драйвера устройства допустимый графический режим.
Данная процедура используется для  выбора  графического  ре-
жима, отличного от того, который  по умолчанию  устанавлива-
ется процедурой InitGraph.
     Процедура SetGraphMode может также использоваться вмес-
те с процедурой  RestoreCrtMode для переключения между  тек-
стовым и графическим режимами.
     Процедура SetGraphMode сбрасывает все графические пара-
метры (текущий указаетель, палитру, цвет, область просмотра,
и т. д.) в те значения, которые назначаются для них по умол-
чанию.
     Если  делается  попытка  выбрать для текущего  драйвера
устройства недопустимый режим, то функция  GraphResult
возвращает значение -10 (grInvalidMode).
     Определены следующие константы:

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Графический   Имя     Значение   Столбцов    Палитра  Страниц
  драйвер  константы              х строк
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
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

EGA         EGALo         0      640x200     16 цветов    1
            ЗЙДКк         1      640щ350     16 цветов    2

ЗЙД64       ЗЙД64Ор       0      640щ200     16 цветов    1
            ЗЙД64Кк       1      640щ350      4 цвета     1

EGA-        EGAMonoHi     3      640x350      2 цвета     1*

MONO        EGAMonoHi     3      640x350      2 цвета    1**

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      640x200       2 цвета    1

VGA         VGALo         0      640x200      16 цветов   2
            VGAMed        1      640x350      16 цветов   2
            VGAHi         2      640x480      16 цветов   1

PC3270      PC3270Hi      0      640x200       2 цвета    1

8514        IBM8514Lo     0      640x480      256 цветов  1
8514        IBM8514Hi     0     1024x768      256 цветов  1
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

* - 64К на плате EGAMono
** - 256К на плате EGAMomo
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Перед обращением к данной процедуре  необ-
ходимо  выполнить (с нормальным завершением) вызов процедуры
InitGraph.
     Прочее: См. также процедуры ClrearDevice,  DetectGraph,
GetGraphMode, InitGraph, RestoreCrtMode.
     Пример:

uses Graph;
var
   GraphDriver : integer;
   GraphMode   : integer;
   LowMode     : integer;
   HighMode    : integer;
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, '');
if GraphResult <> grOk then
    Halt(1);
GetModeRange(GraphDriver, LowMode, HighMode);
SetGraphMode(LowMode); { выбрать режим с низким разрешением }
Line(0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
end.




HOME