200分找错！非常简单！(200分)

L

lhq890

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-18

• #1

procedure TForm1.FormCreate(Sender: TObject);
var
a, b : TBitmap;
Rect1, Rect2 : TRect;
begin
b:=Tbitmap.Create;
b.loadfromfile('c:/010.bmp');
a :=Tbitmap.Create;
Rect1:=Bounds(0,0,width,height);
Rect2:=Bounds(left,top,width,height);
a.Canvas.CopyRect(Rect1,b.Canvas,Rect2);
image1.picture.bitmap:=a;
b.free;
a.free;
end;

结果怎么什么都没有?

 

C

caowei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-18

• #2

在 a := TBitmap.create后,应该设置它的width和height,
然后再CopyRect

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-18

• #3

>>image1.picture.bitmap:=a;
it is wrong

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-18

• #4

"image1.picture.bitmap:=a;" error
image1.picture.bitmap.show

 

K

Kent

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-18

• #5

改了一下:
procedure TForm1.FormCreate(Sender: TObject);
var
b : TBitmap;
Rect1, Rect2 : TRect;
begin
b:=Tbitmap.Create;
b.loadfromfile('c:/bar0.bmp');

Rect1:=Bounds(0,0,100,100);
Rect2:=Bounds(0,0,100,100);
image1.Canvas.CopyRect(Rect1,b.Canvas,Rect2);

b.free;

end;
测试通过...

 

小

小虫~

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-18

• #6

var
a, b : TBitmap;
Rect1, Rect2 : TRect;
begin
b:=Tbitmap.Create;
b.loadfromfile('6.bmp');
a:=Tbitmap.Create;
a.Height:=150;
a.Width:=150;
image1.Refresh;
Rect1:=Bounds(0,0,a.width,a.height);
Rect2:=Bounds(image1.left,image1.top,a.width,a.height);
//这里的lift和top错了
a.Canvas.CopyRect(Rect1,b.Canvas,Rect2);
image1.picture.bitmap :=a;

b.free;
a.free;
end;

 

L

lhq890

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-18

• #7

多人接受答案了。