Turbo Pascal Documentation

Функия GetDefaultPalette

Модуль Graph

     Функция: Возвращает запись описания паплитры.
     Описание: GetDefaultPalette(var палитра: PaletteType)
     Примечания:   Данная    функция    возвращает    запись
PaletteType,  содержащую палитру, инициализированную драйве-
ром при вызове процедуры InitGraph.

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

     Аналогичная фукнция имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также функции  InitGraph,  GetPalette,  Se-
tAllPalette, SetPalette.
     Пример:

  uses
   Crt, Graph;
  var
   Driver, Mode,
    i : integer;
   MyPal, OldPal : PletteType;
  begin
    DirectVideo := false;
    Randomize;
    Driver := Detect;   { перевести в граический режим }
    InitGraph(Driver, Mode, '');
    if GraphResult < 0 then
       Halt(1);
    GetDefultPalette(OldPal); { сохранить старую палитру }
    MyPal := OldPal; { скопировать и изменить }
    { вывести инормацию на экран }
    for i = 0 to MyPal.Size - 1 do
    begin
      GetColor(i);
      OutTextXY(10, i * 10, '...нажмите любую клавишу...');
    end;
    repeat      { менять палтру, пока нажата клавиша }
      with MyPl do
        Colors[Random(Size)] := Random(Size + 1);
      SetAllPalette(MyPal);
    until KeyPressed;
    SetAllPalette(OldPal); { восстановить исходную палитру }
    ClearDevice;
    OutTextXY(10, 10, 'Нажмите RETURN...')
    ReadLn;
    CloseGraph;
end.