Функция GetDefaultPalette

Модуль Graph

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

Объявление:

 Function GetDefaultPalette(Var Palette : PaletteType);
 

Режим: 

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

Пример:

 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 <Return> to exit ...');
   ReadLn;
   CloseGraph;
  End.
 

См. также: