图像的处理（一）----灰度图像像素颜色亮度处理

end;

constructor TVczhBitmap.Create;

begin

inherited Create;

SetFormat;

Line:=-1;

end;

procedure TVczhBitmap.LoadFromFile(FileName:String);

begin

inherited LoadFromFile(FileName);

SetFormat;

Line:=-1;

end;

procedure TVczhBitmap.ToGray;

var X,Y,R:Integer;

B:Byte;

begin

for Y:=0 to Height-1 do

for X:=0 to Width-1 do

begin

R:=0;

for B:=0 to 2 do

R:=R GetBytes(X*3 B,Y);

for B:=0 to 2 do

SetBytes(X*3 B,Y,R div 3);

end;

end;

end.

此后，我们需要建立几个窗体。第一个用来显示图片，第二个用来处理图片，其他的窗体都继承自第二个窗体，包含实际的处理方法。

先看第二个窗口：

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!