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

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

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

Функция GetMaxColor.

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

    Function GetMaxColor : Word;

  • Описание:

    Возвращает максимальный номер цвета, который может быть передан в процедуру SetColor.

  • Замечания:

    На 256Кб EGA, GetMaxColor всегда возвращает 15, что означает, что любое обращение к SetColor со значением цвета в пределах от 0 до 15 является допустимым. На CGA в режиме с высоким разрешением или на монохромном Hercules, GetMaxColor возвращает значение 1, потому что эти адаптеры поддерживают цвет рисунка только 0 или 1.

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

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

  • Пример:

    { Пример программы для функции GetMaxColor }
    Uses Crt, Graph;
    Var GraphDriver, GraphMode : Integer;
    Begin
    GraphDriver:=Detect;
    InitGraph(GraphDriver, GraphMode, '');
    If GraphResult <> grOk Then Halt(1);
    Randomize;
    Repeat
    SetColor(Random(GetMaxColor)+1);
    LineTo(Random(GetMaxX), Random(GetMaxY));
    Until KeyPressed;
    End.



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