Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура DetectGraph.

  • Объявление:

    Procedure DetectGraph(Var GraphDriver, GraphMode : Integer);

  • Описание:

    Тестирует аппаратные средства и определяет, какой графический драйвер и режим можно использовать.

  • Замечания:

    Процедура DetectGraph возвращает обнаруженный драйвер и значение режима, которое может быть передано в процедуру InitGraph, которая затем загрузит правильный графический видеодрайвер. Если аппаратное обеспечение машинной графики не было обнаружено, то параметры GraphDriver и GraphResult становятся равными значению grNotDetected.

    Если не указано иначе, то InitGraph вызывает DetectGraph, находит и загружает правильный драйвер, а затем инициализирует графическую систему. Единственая причина вызывать DetectGraph вручную состоит в том, что вы можете захотеть отменить драйвер, который рекомендует InitGraph. Если вы передаете в процедуру InitGraph номер драйвера не равный значению Detect, то вы также должны передать и допустимое для нужного драйвера значение GraphMode.

  • Пример:

    { Пример программы для функции DetectGraph }
    Uses Graph;
    Var GraphDriver, GraphMode : Integer;
    Begin
    DetectGraph(GraphDriver, GraphMode);
    If (GraphDriver = EGA) Or (GraphDriver = EGA64) Then
    Begin
    GraphDriver:=CGA;
    GraphMode:=CGAHi;
    End;
    InitGraph(GraphDriver, GraphMode, 'C:\BP\BGI'); { Путь к BGI драйверам }
    If GraphResult <> grOk Then Halt(1);
    Line(0, 0, GetMaxX, GetMaxY);
    ReadLn;
    CloseGraph;
    End.



Вернуться к оглавлению справочника