Процедура GetPalette

Модуль GRAPH

Возвращает текущую палитру и ее размер.

Объявление:

Procedure GetPalette(Var Palette : PaletteType);

Режим:

Real, Protected

Замечание:

Возвращает текущую палитру и ее размер в переменной типа PaletteType.

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

Нужно быть в графическом режиме, и может использоваться только с адаптерами EGA, EGA 64 или VGA (не с IBM 8514 или (S)VGA в 256-цветном режиме).

Пример:

{ Пример программы для процедуры GetPalette }

Uses Graph;

Var Gd, Gm : Integer;
     Color : Word;
   Palette : PaletteType;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 GetPalette(Palette);
 If Palette.Size <> 1 Then
 For Color:=0 To Pred(Palette.Size) Do
  Begin
   SetColor(Color);
   Line(0, Color * 5, 100, Color * 5);
  End
 Else Line(0, 0, 100, 0);
 ReadLn;
 CloseGraph;
End.