主题：怎样copy图像中某一区域的图像
zwt
[专家分：1230] 发布于 2007-08-07 15:19:00
我想把一图像中某区域copy出来另存一图像。
回复列表 （共1个回复）
沙发
wt_yxs [专家分：50] 发布于 2007-08-07 15:37:00
procedure TForm1.Button1Click(Sender: TObject);
VAR
W,w1: TRect;
begin
w:=Rect(0,0,image1.Width div 2,image1.Height div 2);
w1:=rect(0,0,image2.Width ,image2.Height);
image2.Canvas.CopyRect(w1,image1.Canvas,w);
end;
我来回复
您所在位置：