灰度拉伸
提示:这里可以添加技术概要
核心源码
var
Form1: TForm1;
OriginalRangeLeft, OriginalRangeRight: integer;
ScaleFactor: real;
Grayclass: array[0…255] of integer; { Public declarations }
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Self.OpenPictureDialog1.Filter := ‘.bmp|.bmp’;
if Self.OpenPictureDialog1.Execute then
begin
Image1.picture.Bitmap.LoadFromFile(Self.OpenPictureDialog1.FileName);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
p: PByteArray;
x, y: Integer;
Bmp: TBitmap;
Gray: byte;
scanlinebytes: integer;
begin
GetParam;
Bmp := TBitmap.Create;
//创建位图实例
Bmp.Assign(Imag