Функция 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.
См. также: