一个缩略图显示问题(100分)

X

xluke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-08

• #1

我要为图片生产缩略图并画在image1上，大致归纳步骤如下：
1.resclaeimage(picture1.bitmap,picture2.bitmap)
//自编过程，将picture1缩小为picture2
2.image1.canvas.stretchdraw(rect:TRect,picture2.graphic)
结果居然是大图picture1的中间挖了一块。
调试时在第1步后加了一个showmessage(....)
居然成功了，这是为什么？但总不能在程序中弹出一个message巴。
望各位大侠不吝赐教。

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-08

• #2

以下在我这里正常
mr.Left:=0;
mr.top:=0;
mr.right:=100;
mr.Bottom :=100;
im.Canvas.StretchDraw(mr,im2.Picture.Graphic);
im.Refresh;

 

J

JohnsonGuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-08

• #3

建议不要直接使用TPicture.Bitmap。
var Bmp: TBitmap;
RescaleImage(Picture1.Bitmap, Bmp);
Image1.Canvas.Draw(x, y, Bmp);

 

X

xluke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-08

• #4

还是不行啊，兄弟们加油啦，这一百点花落谁家？
我是在第一步后showmessage的，应该是rescaleimage那个线程还没有完成
就开始第二步了，当有个showmesage后，第一步如愿完成，所以结果是对的！

 

X

xluke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-09

• #5

我后来把resacleImage搬了进去，不再写成过程！
居然可以啦。可惜自己不能给自己加分！