GetPixel

Zjistí hodnotu pixelu o souřadnicích (X, Y).

Deklarace

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

Režim

Reálný, Chráněný

Poznámky

Zjistí barvu pixelu o souřadnicích (X, Y).

Omezení

Je nutno být v grafickém režimu.

Viz také

GetImage

PutImage

PutPixel

Vzorový příklad

{Getpixel.PAS}
{Vzorový příklad pro funkci 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.