Инициирует графический режим работы адаптера. Заголовок процедуры:
Procedure InitGraph(var Driver,Mode: Integer; Path: String);
Здесь Driver - тип графического драйвера;
Mode – переменная, в которую процедура помещает код работы графического адаптера;
Path - имя файла драйвера и, возможно, маршрут его поиска.
К моменту вызова процедуры на одном из дисковых носителей информации должен находиться файл, содержащий нужный графический драйвер. Процедура загружает этот драйвер в оперативную память и переводит адаптер в графический ре-жим работы. Тип драйвера должен соответствовать типу графического адаптера. Для указания типа драйвера в модуле предопределены следующие константы:
const
Detect=0;{Режим автоопределения типа}
CGA=1;
MCGA=2;
EGA=3;
EGA64=4;
EGAMono=5;
IBM8514=6;
HercMono=7;
ATT400=8;
VGA=9;
PC3270=10;
Большинство адаптеров могут работать в различных режимах. Для того чтобы указать адаптеру требуемый режим работы, используется переменная Mode, значе-нием которой в момент обращения к процедуре могут быть такие константы:
const
{ Адаптер CGA : }
CGACO = 0; {Низкое разрешение, палитра0}
CGAC1 = 1; {Низкое разрешение, палитра1}
CGAC2 = 2; {Низкое разрешение, палитра2}
CGAC3 = 3; {Низкое разрешение, палитра3}
CGAHi = 4; {Высокое разрешение}
{Адаптер MCGA:}
MCGACO = 0; {Эмуляция CGACO}
MCGAC1 = 1; {Эмуляция CGAC1}
MCGAC2 = 2; {Эмуляция CGAC2}
MCGAC3 = 3; {Эмуляция CGAC3}
MCGAMed = 4; {Эмуляция CGAHi}
MCGAHi = 5; {640x480}
{Адаптер EGA :}
EGALo = 0; {640x200, 16 цветов}
EGAHi = 1; {640x350, 16 цветов}
EGAMonoHi = 3; {640x350, 2 цвета}
{Адаптеры HGC и HGC+:}
HercMonoHi = 0; {720x348}
{АдаптерАТТ400:}
ATT400CO = 0; {Аналог режима CGACO}
ATT400C1 = 1; (Аналог режима CGAC1}
ATT400C2 = 2; {Аналог режима CGAC2}
ATT400C3 = 3; {Аналог режима CGAC3}
ATT400Med = 4; {Аналог режима CGAHi}
ATT400H1 = 5; {640x400, 2 цвета}
{Адаптер VGA:}
VGALo = 0; {640x200}
VGAMed = 1; {640x350}
VGAHi = 2; {640x480}
PC3270H1 = 0; {Аналог HercMonoHi}
{Адаптер 1ВМ8514}
IBM8514LO =0; {640x480, 256 цветов}
IBM8514H1 = 1; {1024x768, 256 цветов}
Пусть, например, драйвер CGA.BGI находится в каталоге TP\BGI на диске С и устанавливается режим работы 320x200 с палитрой 2. Тогда обращение к процедуре будет таким:
Uses Graph;
var
Driver, Mode : Integer;
begin
Driver := CGA;{Драйвер}
Mode := CGAC2;{Режим работы}
InitGraph(Driver, Mode,' С:\TP\BGI') ;
.......
Если тип адаптера ПК неизвестен или если программа рассчитана на работу с любым адаптером, используется обращение к процедуре с требованием автоматического определения типа драйвера:
Driver := Detect;
InitGraph(Driver, Mode, 'C:\TP\BGI');
После такого обращения устанавливается графический режим работы экрана, а при выходе из процедуры переменные Driver и Mode содержат целочисленные значения, определяющие тип драйвера и режим его работы. При этом для адаптеров, способных работать в нескольких режимах, выбирается старший режим, т.е. тот, что закодирован максимальной цифрой. Так, при работе с CGA -адаптером обращение к процедуре со значением Driver = Detect вернет в переменной Driver значение 1 (CGA) и в Mode -значение 4 (CGAHi), а такое же обращение к адаптеру VGA вернет Driver = 9 (VGA) и Mode = 2 (VGAHi). |
Главная
Каталог файлов
