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

protected

published

constructor Create;

public

property Bytes[X,Y:Integer]:Byte read GetBytes write SetBytes;

procedure LoadFromFile(FileName:String);

procedure ToGray;

end;

implementation

procedure TVczhBitmap.SetFormat;

begin

HandleType:=bmDIB;

PixelFormat:=pf24bit;

end;

function TVczhBitmap.GetBytePointer(X,Y:Integer):PByte;

begin

if Line<>Y then

begin

Line:=Y;

Data:=ScanLine[Y];

end;

Longint(result):=Longint(Data) X;

end;

procedure TVczhBitmap.SetBytes(X,Y:Integer;Value:Byte);

begin

GetBytePointer(X,Y)^:=Value;

end;

function TVczhBitmap.GetBytes(X,Y:Integer):Byte;

begin

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