GetPixel: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
(Created page with "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řad...")
 
m (1 revízia: Unit Graph)
 
(Žádný rozdíl)

Aktuální verze z 4. 10. 2012, 17:01

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.