Курсовая работа: Побудова динамічної графіки
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).
Функція GraphErrorMsg.
Повертає значення типу String, в якому за вказаним кодом помилки дається відповідне текстове повідомлення.