stavis na formu komponentu TImage (sa palete Additional) i ucitas joj sliku (za pocetak neku BMP sliku u sivim nijansama grayscale) preko Picture property-a.
Stavis dugme na formu i na OnClick stavis sledece:
Code:
procedure TForm1.BitBtn1Click(Sender: TObject);
Var Color : TColor;
r, g, b : byte;
begin
With Image1.Picture.Bitmap.Canvas do begin
Color := Pixels[1,1]; // Pristupas pixelu na slici
// koji se nalazi na 1,1
// poziciji.
// Boju pixela razlazes na r, g i b komponente
r := GetRValue(Color);
g := GetGValue(Color);
b := GetBValue(Color);
// Sada radi sa komponentama sta zelis
// Kod slike u nijansama sive (grayscale)
// r, g i b imaju iste vrednosti i to
// tako da je vrednost nula - puna crna, a
// vrednost 255 - puna bela boja, a sve izmedju
// predstavlja nijanse
end;
end;
Ako zelis da prolazis kroz sve pixele slike moras to da uradis tako sto ces napraviti
petlju. U svakom slucaju za brz prolazak kroz sliku mora se napraviti drugaciji
pristup, ali hajde prvo probaj ovo.