Правила форума
GetPaletteSize (функция) (модуль Graph)Язык:
Русский
English
GetPaletteSize (функция) (модуль Graph)
Возвращает размер поисковой таблицы цветов палитры.
Объявление
Function GetPaletteSize : Integer;
Режим
Real, Protected
Замечания
Функция GetPaletteSize сообщает, сколько записей палитры могут быть установлены для текущего графического режима. Например, для EGA в цветном режиме возвращается значение равное 16.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для GetPaletteSize }
uses Graph;
var
Driver, Mode : Integer;
begin
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP');
if GraphResult < 0 then
Halt(1);
SetColor(1);
OutText('Color = 1, ');
SetColor(GetPaletteSize - 1);
OutText('Color = Max');
ReadLn;
CloseGraph;
end.
var
Driver, Mode : Integer;
begin
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP');
if GraphResult < 0 then
Halt(1);
SetColor(1);
OutText('Color = 1, ');
SetColor(GetPaletteSize - 1);
OutText('Color = Max');
ReadLn;
CloseGraph;
end.
::
::
::
