10-sinf informatika 16. pdf

1. Ranglar palitrasi. Piksellar xossasi yordamida qizil va yashil
ranglami turli ulushda aralashtirishdan hosil bo'ladigan 65536 ta rangli piksellami ekranda tasvirlaydigan ilova yaratamiz. Ilovaga Image (256x256) va Button obyektlarini quyidagi rasmda ko'rsatilgandek joylaymiz. Button tugmasini ikki marta bosib, dastur kodiga quyidagi protsedurani kiritamiz:
procedure TForml.ButtonlClick(Sender: TObject); var i,j,rang:integer;
begin
for i:=0 to 255 do
for j:=0 to 255 do begin rang:=RGB(i,j,0); Imagel.Canvas.Pixels[i,j]:=rang; end;
end;
Ilovani ishga tushirib, qizil va yashil ranglaming aralashib, ar rang hosil bo'lishini ko'ramiz:

Ilovadagi rang:=RGB(i,j,O); operatonm rang:=RGB(i,O,j); ga almashtirib, qizil va ko'k ranglaming aralashib pushti rang, rang:=RGB(O,i,j); ga almashtirib, yashil va ko'k ranglaming aralashib havo rang hosil bo'lishiga amin bo'lamiz:

149