getpixel.pas

 {Getpixel.PAS}
 
 { Пример программы для функции GetPixel }
 
 Uses Graph;
 
 Var  Gd, Gm : Integer;
  PixelColor : Word;
 
 Begin
  Gd:=Detect;
  InitGraph(Gd, Gm, '');
  If GraphResult <> grOk Then Halt(1);
  PixelColor:=GetPixel(10, 10);
  If PixelColor = 0 Then PutPixel(10, 10, GetMaxColor)
  ReadLn;
  CloseGraph;
 End.