Turbo Pascal Documentation

Процедура GetPixel

Модуль Graph

     Функция: Получает значение элемента изображения в точке Х,Y.
     Описание: GetPixel(X,Y :integer)
     Тип результата: Слово (word).
     Примечания: Получает цвет элемента изображения в  точке Х,Y.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры PutPixel, GetImage,  PutImage.
     Пример:

  uses
    Graph;
   var
    Gd, Gm : integer;
    PixelColor: word;
  begin
    Gd := Detect;  { перевести в графический режим }
    InitGraph(Gd, Gm, '');
    if GraphResult < 0 then
       Halt(1);
    PixelColor := GetPixel(10, 10);
    if PixelColor = 0 then
      PutPixel(10, 10, GetMaxColor);
    Readln;
    CloseGraph;
  end.