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