PutPixel: Porovnání verzí

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

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

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.