我 我是酒鬼 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-29 #1 如果将image图片的一部分复制到另一个image中 能否给出完整代码？
O only you Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-29 #3 Image1.Picture.Bitmap.Canvas.CopyRect(Rect(0,0,10,10),Image2.Picture.Bitmap.Canvas,Rect(10,10,20,20));
Image1.Picture.Bitmap.Canvas.CopyRect(Rect(0,0,10,10),Image2.Picture.Bitmap.Canvas,Rect(10,10,20,20));
秋 秋风萧萧 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-29 #6 procedure TForm1.BitBtn1Click(Sender: TObject); var MyRect, MyOther: TRect; begin MyRect := Rect(10,10,100,100); MyOther := Rect(10,111,100, 201); image2.Canvas.CopyRect(MyOther,image1.Canvas,MyRect); //其中myrect 和myother指定范围大小，可以缩放的哦
procedure TForm1.BitBtn1Click(Sender: TObject); var MyRect, MyOther: TRect; begin MyRect := Rect(10,10,100,100); MyOther := Rect(10,111,100, 201); image2.Canvas.CopyRect(MyOther,image1.Canvas,MyRect); //其中myrect 和myother指定范围大小，可以缩放的哦
X xyf2001721 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-29 #8 agree 秋风萧萧: MyRect:源文件的图像区域。你要复制的部分 MyOther：你要复制到的区域。
动 动起来 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-30 #11 得不到图片,不会吧，是不是 Rect(int,int,int,int);里面范围问题
还 还是朋友 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-30 #12 用Canvas.CopyRect一定没有问题的。。 做完后你最好refresh一下。。 另：用Bitblt也可以的。。
