C cjg325 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-17 #1 请问如果我有一个640×480的图象我如何用RECT从中间截取160×160的图象？
W wang_junfan Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-17 #5 看帮助 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;
S spidertong Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-17 #6 BOOL StretchBlt( ...);//Windows Sdk
D ddntyz Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-18 #7 如果你是从（0,0）开始截取的，可以这样 var Bitmap: TBitmap; MyRect, MyOther: TRect; begin MyRect := Rect(0,0,640,480); MyOther := Rect(0,0,160,160); Bitmap := TBitmap.Create; Bitmap.LoadFromFile(OpenDialog1.FileName); Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack); Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect); Bitmap.Free; end;
如果你是从（0,0）开始截取的，可以这样 var Bitmap: TBitmap; MyRect, MyOther: TRect; begin MyRect := Rect(0,0,640,480); MyOther := Rect(0,0,160,160); Bitmap := TBitmap.Create; Bitmap.LoadFromFile(OpenDialog1.FileName); Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack); Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect); Bitmap.Free; end;
