مرکز تخصصی دلفی

برای این کار یک image بر روی فرم قرار دهید و یک button هم قرار دهید .

حالا کد های زیر را بنویسید :

procedure TForm1.Button1Click(Sender: TObject);

var I,q : integer;

begin

for q:= 1 to image1.Height-1 do

begin

for I := 1 to image1.Width-1 do

Image1.canvas.pixels[i,q]:=image1.canvas.pixels[i,q] div 256;

end;

end;

اگر رنگ هر پیکسل را بر 256 تقسیم کنیم رنگ ان  زرد می شود