【图像处理高级编程】-Gray灰度三种方式

Gray灰度三种方式

提示：这里可以添加技术概要

核心源码

procedure TForm1.Button4Click(Sender: TObject);
begin
if Opendialog1.Execute then
begin
Self.Image1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName);
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Opendialog1.Filter := ‘.bmp|.bmp’;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
MyDC: HDC;
begin
MyDC := GetDC(Form1.Handle);
if not PatBlt(MyDC,
Image1.Left,
Image1.Top,
Image1.Left + Image1.Width,
Image1.Top + Image1.Height,
DSTINVERT) then
ShowMessage(‘ERROR :~(’);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
BMP: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.Width := Image1.Picture.Bitmap.Width;