درست کردن فیلتر زرد رنگ روی IMAGE
اینم چیزه خوبیه . برای شروع کار گرافیکی در دلفی
برای این کار یک image بر روی فرم قرار دهید و یک button هم قرار دهید .
حالا کد های زیر را بنویسید :
procedure TForm1.Button1Click(Sender: T);
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 تقسیم کنیم رنگ ان زرد می شود