1 578
editací
Změny
Created page with "Nakreslí bod na souřadnicích X, Y. ;Deklarace procedure PutPixel(X, Y: Integer; Pixel: Word); ;Režim :Reálný, Chráněný ;Poznámky :Nakreslí bod v barvě, definov..."
Nakreslí bod na souřadnicích X, Y.
;Deklarace
procedure PutPixel(X, Y: Integer; Pixel: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:Nakreslí bod v barvě, definované parametrem Pixel, v (X, Y).
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[GetImage]]
:[[GetPixel]]
:[[PutImage]]
Vzorový příklad
{PutPixel.PAS}
{Vzorový příklad pro proceduru PutPixel.}
uses Crt, Graph;
var
Gd, Gm: Integer;
Color: Word;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
Color := GetMaxColor;
Randomize;
repeat
PutPixel(Random(100), Random(100), Color); { Vykreslí "hvězdy" }
Delay(10);
until KeyPressed;
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure PutPixel(X, Y: Integer; Pixel: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:Nakreslí bod v barvě, definované parametrem Pixel, v (X, Y).
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[GetImage]]
:[[GetPixel]]
:[[PutImage]]
Vzorový příklad
{PutPixel.PAS}
{Vzorový příklad pro proceduru PutPixel.}
uses Crt, Graph;
var
Gd, Gm: Integer;
Color: Word;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
Color := GetMaxColor;
Randomize;
repeat
PutPixel(Random(100), Random(100), Color); { Vykreslí "hvězdy" }
Delay(10);
until KeyPressed;
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]