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

این فیلتر برای تبدیل تصویر به نقاشی با مداد است.شما این فیلتر را در برنامه های معروفی چون فتوشاپ دیده اید.یک دکمه بر روی فرم ایجاد کنید و از کد زیر استفاده کنید.ُُ

//© 2005 koosha system Software http://delphi-center.blogfa.com
procedure TForm1.Button2Click(Sender: TObject);
var x,y,z : integer;
begin
//© 2005 koosha system Software http://delphi-center.blogfa.com
for x:= 1 to image1.Height-1 do
 begin
  for y := 1 to image1.Width-1 do
 Image1.canvas.pixels[y,x]:=image1.canvas.pixels[y,x] div 256;
 end;
//© 2005 koosha system Software http://delphi-center.blogfa.com
for z:=0 to 2 do
begin
  for y:= 1 to image1.Height-1 do
   begin
//© 2005 koosha system Software http://delphi-center.blogfa.com
    for x := 1 to image1.Width-1 do
    Image1.canvas.pixels[x,y]:=image1.canvas.pixels[x,y] * 256;
  end;
end;
//© 2005 koosha system Software http://delphi-center.blogfa.com
end;