图像合并 ( 积分: 200 )

就像photoshop一样两个图合并一个图。不知那个高手能提供源码（300分）

就像photoshop一样两个图合并一个图。不知那个高手能提供源码（300分）

转一位大虾
bmp的
image1+image2->image3
我测试过，没问题
1.image1->image3
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
image3.Width:= image1.Width;
image3.Height:=image1.Height;
image3.Canvas.CopyRect(Rect (0, 0, image1.Width, image1.Height), image1.Canvas, Rect(0, 0, image1.Width, image1.Height));
end;
2.image1+image2->image3
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
image3.Width:= image1.Width+image2.width;
image3.Canvas.CopyRect(Rect(image1.Width, 0, image1.Width+image2.Width, image1.Height), image2.Canvas, Rect (0, 0, image2.Width, image2.Height));
end;