Реферат: Модуль Graph в программе Turbo Pascal
InitGraph (GraphDriver, GraphMode, '');
ErrorCode: =GraphResult;
if ErrorCode <> grOK then
begin
Writeln (‘ Ошибка графики : ‘, GraphErrorMsg (ErrorCode));
Writeln(‘Программа остановлена...');
Halt(1);
end;
Begin { Пример инициализации}
GrInit ;
Line (0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
E nd.
В дальнейшем процедуру Grlnit лучше записать в отдельный файл (например, INITGRAF.PAS) и использовать директиву включения этого файла при компиляции. Такой блок всегда включает стандартный графический режим максимального разрешения.
Классификация и анализ графических режимов
Возможные графические режимы для различных адаптеров приведены в таблице. Во втором столбце приведены имена предопределенных констант, которые можно передавать в процедуры, управляющие графическими режимами. Последний столбец показывает количество полноэкранных изображений, которые могут храниться в памяти видеоадаптера одновременно.
| Драйвер | Имя константы режима и ее значение | Разрешение экрана (в точках) | Палитра | Число видеостраниц |
| CGA | CGAC0 = 0 | 320x200 | 4 цвета | 1 |
| CGAC1 = 1 | 320x200 | 4 цвета | 1 | |
| CGAC2 = 2 | 320x200 | 4 цвета | 1 | |
| CGAC3 = 3 | 320x200 | 4 цвета | 1 | |
| CGAHi = 4 | 640x200 | 2 цвета | 1 | |
| MCGA | MCGAC0 = 0 | 320x200 | 4 цвета | 1 |
| MCGAC1 = 1 | 320x200 | 4 цвета | 1 | |
| MCGAC2 = 2 | 320x200 | 4 цвета | 1 | |
| MCGAC3 = 3 | 320x200 | 4 цвета | 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 | |
| EGAMono | EGAMonoHi = 3 | 640x350 | 2 цвета | 1(2) |
| Herc | HercMonoHi = 0 | 720x348 | 2 цвета | 2 |
| АТТ | АТТ400С0 = 0 | 320x200 | 4 цвета | 1 |
| АТТ400С1 = 1 | 320x200 | 4 цвета | 1 | |
| АТТ400С2 = 2 | 320x200 | 4 цвета | 1 | |
| АТТ400СЗ = 3 | 320x200 | 4 цвета | 1 | |
| ATT400Med = 4 | 640x200 | 2 цвета | 1 | |
| АТТ400Нi= 5 | 640x400 | 2 цвета | 1 | |
| VGA | VGALo = 0 | 640x200 | 16 цветов | 4 |
| VGAMed=1 | 640x350 | 16 цветов | 2 | |
| VGAHi= 2 | 640x480 | 16 цветов | 1 | |
| PC3270 | PC3270Hi = 0 | 720x350 | 2 цвета | 1 |
|
IBM8514 | IBM8514Lo= 0 | 640x480 | 256 цветов | 1 |
| IBM8514= 1 | 1024x768 | 256 цветов | 1 |
Для того чтобы полностью использовать возможности установленного в ПК адаптера, необходимо воспользоваться инструкцией по работе с ним.
Процедура DetectGraph . Для тестирования графического адаптера в модуле Graph объявлена процедура:
DetectGraph (VAR GraphDriver, GraphMode: Integer)
Эта процедура может быть вызвана до инициализации графики. Через формальный параметр GraphDriver возвращается значение из первого столбца таблицы указанной выше таблицы, а через параметр GraphMode - обычно последнее значение из соответствующего раздела второго столбца. Эти значения и рекомендуется подставлять в качестве фактических параметров в процедуру InitGraph. После определения GraphDriver автоматически становится доступным диапазон графических режимов, реализуемых адаптером
Существует возможность манипуляции режимами работы графического адаптера - при помощи группы процедур и функций, но уже после инициализации графики. Но часто бывает важным сначала определить разрешенные значения режимов.
Диапазоны графических режимов. Номер текущего графического режима для установленного драйвера определяется функцией
GetGraphMode : Integer ,
Функция
GetMaxMode : Word
возвращает номер максимального режима для графического адаптера; таким образом, каждый драйвер поддерживает диапазон режимов 0...GetMaxMode. Обычно этот же результат можно получить из процедуры
GetModeRange (GraphDriver: Integer; VAR LoMode, HiMode: Integer),
через параметры LoMode и HiMode , возвращающей соответственно нижнюю и верхнюю границу режимов для драйвера GraphDriver. Но по ряду технических соображений предпочтительнее пользоваться функцией GetMaxMode, полагая минимальный номер режима равным нулю.