【图像处理高级编程】-图像的着色

图像的着色

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

核心源码

var
Form1: TForm1;
bmp0: TBitmap;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
bmp0 := tbitmap.Create;
bmp0.Assign(Image1.Picture.Bitmap);
self.DoubleBuffered := true;

end;

procedure TForm1.Button1Click(Sender: TObject);

var
bmp: tBITMAP;
begin
BMP := tbitmap.Create;
bmp.Assign(Image1.Picture.Bitmap);
Highlight(bmp, Image2.Picture.Bitmap, clyellow);
Image1.Invalidate;
bmp.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
bmp0.Free;
end;

procedure TForm1.Highlight(aSource, ATarget: TBitmap; AColor: TColor);
var
i, j: Integer;
s, t: pRGBTriple;
r, g,