getplt.pas

{Getplt.PAS}
 
{ Пример программы для процедуры 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.