GetDefaultPalette (функция) (модуль Graph)

Язык:
Русский
English

 GetDefaultPalette (функция)     (модуль Graph)


Возвращает палитру, заданную по умолчанию.

Объявление

 Function GetDefaultPalette(Var Palette : PaletteType);

Режим

Real, Protected

Замечания

Функция GetDefaultPalette возвращает запись типа PaletteType, которая содержит палитру в том виде, в котором она была создана графическим драйвером при инициализации графической системы обращением к процедуре InitGraph.

Ограничения

Нужно быть в графическом режиме.

Смотри также

Пример

Язык:
Русский
English


 { Пример программы для функции GetDefaultPalette }

uses Crt, Graph;

var
  Driver, Mode, I : Integer;
  MyPal, OldPal   : PaletteType;

begin
  DirectVideo := False;
 Randomize;
  Driver := Detect;   { Инициализируем графику }
  InitGraph(Driver, Mode, 'X:\BP');
 if GraphResult < 0 then
   Halt(1);
  GetDefaultPalette(OldPal);   { Сохраняем старую палитру }
  MyPal := OldPal;   { Копируем палитру }
 { Выводим текст }
 for I := 0 to MyPal.Size - 1 do
 begin
    SetColor(I);
    OutTextXY(10, I * 10, '...Press any key...');
 end;
 repeat   { Меняем палитру }
   with MyPal do
      Colors[Random(Size)] := Random(Size + 1);
    SetAllPalette(MyPal);
 until KeyPressed;
  SetAllPalette(OldPal);   { Восстанавливаем старую палитру }
  ClearDevice;
  OutTextXY(10, 10, 'Press <Return> to exit ...');
 ReadLn;
  CloseGraph;
end.
Тэги: GetDefaultPalette
| G+
Код для вставки: :: :: :: ::
Поделиться: // //