Turbo Pascal Documentation

Процедура GetPalette

Модуль Graph

     Функция: Возвращает текущую палитру и ее размер.
     Описание: GetPalette(var палитра :
     Примечания: Возвращает в  переменной  типа  PaletteType
текущую палитру и ее размер. Тип PaletteType описан в модуле
следующим образом:

const
   MaxColor = 15;
type
   PaletteType = record
     Size   : byte;
     Colors : array[0..MaxColors] of shortint;
  end;

     В поле размера (size) содержится число цветов в палитре
для текущего графического режима и драйвера. Поле Colors со-
держит действительные значения цветов от 0 до Sizе-1.
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры SetPalette, SetAllPalette.
     Пример:

  uses
    Graph;
  var
    Driver, Mode : integer;
    i : integer;
  begin
    Driver := Detect;  { перевести в графический режим }
    InitGraph(Driver, Mode, '');
    if GraphResult < 0 then
       Halt(1);
    GetPalette(Palette);
    If Palette.Size <> 1 then
  for i := 0 to Pred(Palette.Size) do
  begin
    SetColor(Color);
     Line(o, Color*5, 100, Color*5);
    end
    else
      Line(0, 0, 100, 0);
    Readln;
    CloseGraph;
    end.

Функция GetPaletteSize

Модуль Graph

     Функция: Возвращает размер таблицы палитры цветов.
     Описание: GetPaletteSize
     Тип результата: Слово (word).
     Примечания: Данная функция показывает, сколько  записей
палитры  можно задать для текущего графического режима. Нап-
ример, при использовании  цветного  режима  и  адаптера  EGA
функция возвратит значение 16.
     Аналогичная функция имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также функцию GetMaxColor.