Процедуры и функции
Процедура InitGraph
Инициирует графический режим работы адаптера. Заголовок процедуры:
Procedure InitGraph(var Driver,Mode: Integer; Path: String);
Здесь:
- Driver – переменная типа Integer, определяет тип графического драйвера;
- Mode – переменная того же типа, задающая режим работы графического адаптера;
- Path – выражение типа String, содержащее имя файла драйвера и, возможно, маршрут его поиска.
К моменту вызова процедуры на одном из дисковых носителей информации должен находиться файл, содержащий нужный графический драйвер. Процедура загружает этот драйвер в оперативную память и переводит адаптер в графический режим работы. Тип драйвера должен соответствовать типу графического адаптера. Для указания типа драйвера в модуле предопределены следующие константы:
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 цветов}