对图像进行浮雕处理的函数
procedure TForm1.btnOpenClick(Sender: TObject);
var
Color1,Color2:TColor;
red:Integer;
green:Integer;
blue:Integer;
i,j:Integer;
x,y:Integer;
begin
if self.OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(self.OpenPictureDialog1.FileName);
MyBitmap.LoadFromFile(self.OpenPictureDialog1.FileName);
x:=Image1.Picture.Width;
y:=Image1.Picture.Height;
for i:=1 to x-2 do
begin
for j:=1 to y-2 do
begin
Color1:=Image1.Canvas.Pixels[i,j];
Color2:=Image1.Canvas.Pixels[i+1,j+1];
red:=abs(GetRValue(Color1)-GetRValue(Color2)+128);
green:=abs(GetGValue(Color1)-GetGValue(Color2)+128);
blue:=abs(GetBValue(Color1)-GetBValue(Color2)+128);
//颜色处理
if(red>255) then red:=255;
if(red<0) then red:=0;
if(green>255) then green:=255;
if(green<0) then green:=0;
if(blue>255) then blue:=255;
if(blue<0) then blue:=0;
MyBitmap.Canvas.Pixels[i,j]:=RGB(red,green,blue);
end;
end;
Image1.Picture.Bitmap.Assign(MyBitmap);
end;
end;