Функция GetPaletteSize()

Модуль GRAPH

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

Объявление:

Function GetPaletteSize : Integer;

Режим:

Real, Protected

Замечание:

Функция 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.