Функция GetPixel()

Модуль GRAPH

Возвращает значение пиксела в точке с координатами (X, Y).

Объявление:

Function GetPixel(X, Y : Integer) : Word;

Режим:

Real, Protected

Замечание:

Функция возвращает цвет пиксела в точке с координатами (X, Y).

Ограничения:

Нужно быть в графическом режиме.

Пример:

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