Функция GetMaxMode()

Модуль GRAPH

Возвращает максимальный номер доступного в настоящее время видеорежима.

Объявление:

Function GetMaxMode : Integer;

Режим:

Protected,  Real

Замечание:

Функция GetMaxMode позволяет вам определить максимальный номер видеорежима для текущего драйвера, прямо через обращение к нему. Прежде, единственным способом получить этот номер был вызов подпрограммы GetModeRange. Сейчас GetModeRange все еще поддерживается, но только для драйверов Borland. Значение, возвращенное GetMaxMode - максимальный номер режима, который вы можете передать в процедуру SetGraphMode. Каждый драйвер поддерживает режимы в диапазоне 0..GetMaxMode.

Ограничения:

Нужно быть в графическом режиме.

Пример:

Uses Graph;
 
Var Driver, Mode : Integer;
               I : Integer;
Begin
 Driver:=Detect;
 { Инициализируем графику }
 InitGraph(Driver, Mode, '');
 If GraphResult < 0 Then Halt(1);
 { Выводим имена всех режимов }
 For I:=0 To GetMaxMode Do OutTextXY(10, 10*Succ(I), GetModeName(I));
 ReadLn;
 CloseGraph;
End.