Приклад. Program Graphic Demo;

Program Graphic Demo;

Uses Graph;

Var Driver, Mode:integer;

begin

Druver:=detect;

InitGraph(Driver, Mode, 'C:\TP\BGI');

…

{графічні дії}

CloseGraph;

end.

Рис. 28

3. Процедури та функції роботи з відеорежимами

1. Процедура DetectGraph виконується для тестування графічного адаптера DetectGraph(var Driver, Mode: integer);

Ця процедура може бути викликана до ініціалізації графічного режиму. Параметри: Driver – повертає тип драйвера; Mode – повертає максимальне значення відповідного режиму. Ці значення і рекомендується підставляти як фактичні параметри процедури InitGraph.

2. Група процедур та функцій управління режимами роботи графічного адаптера:

a) функція GetGraphMode:integer; повертає код установленого режиму роботи графічного адаптера;

b) функція GetMaxMod:integer; повертає максимальний номер коду режиму графічного адаптера;

c) функція GetModName(ModNum:integer):string; повертає значення типу string, яке містить ім’я режиму роботи за його номером;

d) функція GetDriverName:string; повертає ім’я поточного графічного драйвера;

e) процедура GetModeRange(Driver: integer; var LoMode, HіMode: integer); повертає діапазон можливих режимів роботи заданого графічного драйвера:

Driver – тип адаптера;

LoMode – мінімальне значення коду режиму адаптера;

HіMode – максимальні значення коду режиму адаптера.

Дата добавления: 2015-05-24