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

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

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

Функция GetPaletteSize.

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

    Function GetPaletteSize : Integer;

  • Описание:

    Возвращает размер поисковой таблицы цветов палитры.

  • Замечания:

    Функция GetPaletteSize сообщает, сколько записей палитры могут быть установлены для текущего графического режима. Например, для EGA в цветном режиме возвращается значение равное 16.

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

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

  • Пример:

    { Пример программы для GetPaletteSize }
    Uses Graph;
    Var Driver, Mode : Integer;
    Begin
    Driver:=Detect;
    InitGraph(Driver, Mode, '');
    If GraphResult<0 Then Halt(1);
    SetColor(1);
    OutText('Color = 1, ');
    SetColor(GetPaletteSize - 1);
    OutText('Color = Max');
    ReadLn;
    CloseGraph;
    End.



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