getpltsz.pas

 Getpltsz.PAS
 
{ Пример программы для GetPaletteSize }
 
Uses Graph;
 
Var Driver, Mode  : Integer;
 
Begin
 Driver:=Detect;
 InitGraph(Driver, Mode, '');
 If GraphResult<0 Then Halt(1);
 SetColor(1);
 OutText('Color = 1, ');
 SetColor(GetPaletteSize - 1);
 OutText('Color = Max');
 ReadLn;
 CloseGraph;
End.