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

unit untProc;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, untBitmapProc, StdCtrls, ComCtrls;

type

TfrmProcessor = class(TForm)

pbBar: TPaintBox;

gpProc: TGroupBox;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure pbBarPaint(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

BarData:array[0..255]of Byte;

Bar:TVczhBitmap;

procedure DrawBar;

end;

var

frmProcessor: TfrmProcessor;

implementation

{$R *.dfm}

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