Функция GetPaletteSize

Модуль Graph

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

Объявление:

 Function GetPaletteSize : Integer;
 

Режим: 

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

Пример:

 
 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.

См. также: