Функция GetDefaultPalette()

Модуль GRAPH

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

Объявление:

Function GetDefaultPalette(Var Palette : PaletteType);

Режим:

Real, Protected

Замечание:

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

Ограничения:

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

Пример:

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

Uses Crt, Graph;

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

Begin
 DirectVideo:=False;
 Randomize;
 Driver:=Detect;   { Инициализируем графику }
 InitGraph(Driver, Mode, '');
 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 > to exit ...');
 ReadLn;
 CloseGraph;
End.