Процедура GetPalette

Модуль Graph

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

Объявление:

Procedure GetPalette(Var Palette : PaletteType);

Режим: 

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

Пример:

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.
 

Пример программы: getplt.pas

См. также:  SetPalette