紧急求助！the bitmap image is not valid 为什么？附程序段(20分)

W

wyb_506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #1

procedure TForm1.test;
var
btmap: TBitmap;
rect: TRect;
begin
rect.Left :=0;
rect.Top :=0;
rect.Right :=200;
rect.Bottom :=100;
btmap:=TBitmap.Create ;
if OpenPictureDialog1.Execute then
btmap.LoadFromFile(OpenPictureDialog1.FileName);
canvas.Brush.Bitmap:=btmap;
canvas.FillRect(rect);
end;

 

P

pink_wt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #2

在我这没有问题，你选择的图片是不是bmp

 

W

wyb_506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #3

其实我想用图标填充！结果怎么都不行！

 

特

特尔斐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #4

你的代码没有多大问题，只是你选择的BMP文件不是有效的BMP格式。

 

P

pink_wt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #5

先把图标文件转化为bmp文件就没有问题了

 

W

wyb_506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #6

搞定了！转化了，不过办法很苯！有没有不用重新存文件的办法〉？

 

W

wyb_506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #7

多人接受答案了。