GetPixel
Verze z 4. 10. 2012, 17:01, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit Graph)
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
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.
