安 安安 Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-13 #1 我现在有一张大图，上边是把一些小的图片拼在一起,然后根据给定的四个点的数据，如Rect(450, 212, 451, 213)；来截取一个图形在image里面显示； 请问如何实现？
安 安安 Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-13 #2 我现在有一张大图，上边是把一些小的图片拼在一起,然后根据给定的四个点的数据，如Rect(450, 212, 451, 213)；来截取一个图形在image里面显示； 请问如何实现？
R royal1442 Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-13 #4 var Bitmap: TBitmap; MyRect, MyOther: TRect; begin MyRect := Rect(10,10,100,100); MyOther := Rect(10,111,100, 201); Bitmap := TBitmap.Create; Bitmap.LoadFromFile('c:/windows/tartan.bmp'); Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack); Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect); Bitmap.Free; end;
var Bitmap: TBitmap; MyRect, MyOther: TRect; begin MyRect := Rect(10,10,100,100); MyOther := Rect(10,111,100, 201); Bitmap := TBitmap.Create; Bitmap.LoadFromFile('c:/windows/tartan.bmp'); Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack); Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect); Bitmap.Free; end;
安 安安 Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-13 #5 运行时提示错误: bitmap image is not valid 请问是什么意思?
安 安安 Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-13 #7 不好意思，再问一下！ to royal1442：能给大概说一下这两句中参数是什末意思吗？ Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack); Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
不好意思，再问一下！ to royal1442：能给大概说一下这两句中参数是什末意思吗？ Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack); Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
