1 578
editací
Změny
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..."
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.
[[Category:Graph]]
[[Category:Funkce Graph]]
;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.
[[Category:Graph]]
[[Category:Funkce Graph]]