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

uses untViewer;

procedure TfrmProcessor.DrawBar;

var I:Integer;

begin

Bar.Canvas.FillRect(Bar.Canvas.ClipRect);

Bar.Canvas.MoveTo(0,255-BarData[0]);

for I:=1 to 255 do

Bar.Canvas.LineTo(I,255-BarData[I]);

end;

procedure TfrmProcessor.FormCreate(Sender: TObject);

begin

Bar:=TVczhBitmap.Create;

Bar.Width:=256;

Bar.Height:=256;

Bar.Canvas.Brush.Color:=clWhite;

Bar.Canvas.Brush.Style:=bsSolid;

end;

procedure TfrmProcessor.FormDestroy(Sender: TObject);

begin

Bar.Free;

end;

procedure TfrmProcessor.FormShow(Sender: TObject);

var I:Integer;

begin

for I:=0 to 255 do

BarData[I]:=I;

DrawBar;

end;

procedure TfrmProcessor.pbBarPaint(Sender: TObject);

begin

pbBar.Canvas.Draw(0,0,Bar);

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