Правила форума
Getmxmd.PASЯзык:
Русский
English
{ Пример программы для функции GetMaxMode }
uses Graph;
var
Driver, Mode : Integer;
I : Integer;
begin
Driver := Detect;
{ Инициализируем графику }
InitGraph(Driver, Mode, 'X:\BP');
if GraphResult < 0 then
Halt(1);
{ Выводим имена всех режимов }
for I := 0 to GetMaxMode do
OutTextXY(10, 10 * Succ(I), GetModeName(I));
ReadLn;
CloseGraph;
end.
var
Driver, Mode : Integer;
I : Integer;
begin
Driver := Detect;
{ Инициализируем графику }
InitGraph(Driver, Mode, 'X:\BP');
if GraphResult < 0 then
Halt(1);
{ Выводим имена всех режимов }
for I := 0 to GetMaxMode do
OutTextXY(10, 10 * Succ(I), GetModeName(I));
ReadLn;
CloseGraph;
end.
::
::
::
