Система программирования Turbo Pascal



                


Процедуры и функции


h2> GetModeRange.

Возвращает диапазон возможных режимов работы заданного графического адаптера. Заголовок:

Procedure GetModeRange(Drv: Integer; var Min, Max: Integer);

Здесь Drv - тип адаптера; Min - переменная типа Integer, в которой возвращается нижнее возможное значение номера режима; Мах - переменная того же типа, верхнее значение номера.

Если задано неправильное значение параметра Drv, процедура вернет в обеих переменных значение -1. Перед обращением к процедуре можно не устанавливать графический режим работы экрана. Следующая программа выводит на экран названия всех адаптеров и диапазоны возможных номеров режимов их работы.

Uses Graph; 

var

D,L,H: Integer; 

const

N: array [1..11] of String [8] =

('CGA ', 'MCGA ', 'EGA ', 

'EGA64 ', 'EGAMono ', ЧВМ8514 ', 

'HercMono', 'ATT400 ', 'VGA ', 

'PC3270 ', 'Ошибка '); 

begin

WriteLn('Адаптер Мин. Макс.'); 

for D := 1 to 11 do 

begin

GetModeRange(D, L, H); 

WriteLn(N[D], L:7, H:10) 

end 

end.









Содержание  Назад  Вперед