• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

如何制作照片底片效果的图像(即反色)_Delphi

Delphi 搞代码 3年前 (2018-08-09) 143次浏览 已收录 0个评论

大家对照片的底片一定都很熟悉了,底片上的颜色与色彩鲜艳的照片的颜色是正好相反的,即反色,这也是我们制作反色图像的核心。 编程原理:你所见到的各种色彩都是由红、绿、蓝三种颜色按不同的比例混合而成的,这就是我们所说的三基色,它们的颜色值(RGB值)是 0~255 ,所以我们只需去的图像上各个点的RGB值,然后用255减去这个值,并将这个值重新赋值给各个点,就会达到我们想要的底片效果了,下面我们看具体过程:
所用函数:getRvalue:取得某一点的红色的值
getGvalue:取得某一点的绿色的值
getBvalue:取得某一点的蓝色的值

新建一个窗体,上面放置一个image控件,autosize设为true,一个按钮控件,用默认属性,一个进度条控件ProgressBar,name设为p,用来显示处理进程,下面是完整的代码:
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, shellapi,OleCtrls, SHDocVw, Menus, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)

http://www.gaodaima.com/?p=66032如何制作照片底片效果的图像(即反色)_Delphi

Image1: TImage;
Button1: TButton;
P: TProgressBar;
procedure Button1Click(Sender: TObject);
private
  { Private declarations }
public
{ Public declarations }
end;
var Form1:
TForm1; implementation {$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var r,g,b,i,j:integer;
begin
p.Max:=image1.Width;
for i:=0 to image1.Width-1 do
  begin p.Position:=i;
   for j:=0 to image1.Height-1 do
    begin
     r:=255-getrvalue(image1.Canvas.Pixels[i,j]);//取得各点红色值              g:=255-getgvalue(image1.Canvas.Pixels[i,j]);//取得各点绿色值      b:=255-getbvalue(image1.Canvas.Pixels[i,j]);//取得各点蓝色值      image1.Canvas.Pixels[i,j]:=rgb(r,g,b);//重新设置各点的rgb值
  end;
image1.Refresh;
end;
end;
end. 

欢迎大家阅读《如何制作照片底片效果的图像(即反色)_Delphi,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址