getdfplt.pas

{Getdfplt.PAS}
 
{ Пример программы для функции 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 <Return> to exit ...');
  ReadLn;
  CloseGraph;
 End.