ИНИЦИАЛИЗАЦИЯ ГРАФИЧЕСКОГО РЕЖИМА

Множество графических процедур и функций среды программирования Pascal собраны в модуле Graph . Для подключения библиотеки графических функций и процедур необходимо подключить модуль к вашей программе строкой

Uses graph;

Взаимодействие программы и видеосистемы в графических режимах обеспечивают драйверы. Драйверы собраны в файлах, имеющих расширение BGI: CGA . BGI , EGAVGA . BGI , HERC . BGI , IBM 8514. BGI , ATT . BGI , PC 3270. BGI и др. Драйвер – это специальная программа, осуществляющая управление тем или иным техническим средством ПК. Графический драйвер управляет графическим адаптером в графическом режиме.

Графические возможности конкретного адаптера определяются разрешением экрана, т.е. общим количеством пикселей, а также количеством цветов. Кроме того, многие адаптеры могут работать с несколькими графическими страницами.

Для инициализации графического режима используется процедура:

InitGraph(var Driver, Mode: integer; Path:string);

Где Driver – переменная типа integer , определяющая тип графического драйвера; Mode – переменная того же типа, задающая режим работы графического адаптера; Path – выражение типа string , содержащее путь доступа к файлу драйвера. Путь доступа к файлу можно записать по-разному:

·        InitGraph(DriverVar, ModeVar,’ C:\FPC\2.6.0\demo\graph’);

·        InitGraph(DriverVar, ModeVar,’\TP\GRAPH’);

·        В FPC-Pascal путь можно и не прописывать: InitGraph (DriverVar, ModeVar,’’).

КОНСТАНТЫ, ОПРЕДЕЛЯЮЩИЕ ГРАФИЧЕСКИЙ РЕЖИМ

Пример фрагмента программы, где инициализируется графический режим:

Program primer;
Uses graph; 
Var 
   D, M: integer; {переменные для установки драйвера и режима работы} 
Begin 
   D:=9; 
   M:=2; 
   InitGraph (D , M , ‘здесь нужно указать путь к драйверу EGAVGA . BGI ’} 
……

Наиболее простой способ выбора графического драйвера и режима – автоматический (detect).

Пример фрагмента программы, где инициализируется графический режим

Program primer; 
Uses graph ; 
Var D, M: integer; {переменные для установки драйвера и режима работы} 
Begin 
   D:= detect ; 
   InitGraph (D, M , ‘здесь нужно указать путь к драйверу EGAVGA . BGI ’}