4种反色
提示:这里可以添加技术概要
核心源码
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;
b