如何用我得RECT截取图象中的一部分？？(1分)

C

cjg325

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #1

请问如果我有一个640×480的图象我如何用RECT从中间截取160×160的图象？

 

Z

zxbyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #2

copyrect函数

 

C

cjg325

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #3

可以告诉我具体代码吗？

 

C

cjg325

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #4

help

 

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;

 

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;

 

X

xjch

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #8

还是用bitblt比较好用，不会变色的。

 

C

cjg325

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #9

接受答案了.