帮帮忙.......关于图片动态缩放显示的问题

2008-11-24 06:28:53 112 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

L2-028 秀恩爱分得快（测试点3说明）古人云：秀恩爱，分得快。互联网上每天都有大量人发布大量照片，我们通过分析这些照片，可以分析人与人之间的亲密度。如果一张照片上出现了 K 个人，这些人两两间的亲密度就被定义为 1/K。任意两个人如果同时出现在若干张照片里，他们之间的亲密度就是所有这些同框照片对应的亲密度之和。下面给定一批照片，请你分析一对给定的情侣，看看他们分别有没有亲密度更高的异性朋友？阅读详情

RT
在窗体上有一 panel ,panel上有一 image 它的属性是 clClient.
程序要实现图片由小到大缩放显示
我是这样处理的:
一开始隐藏panel ,触发事件后,在一个循环中改变它的大小和位置,同时image 也跟着改变,并在循环中画图,但是不知怎么搞的.一直画不了,而且IMAGE的大小不会跟着变,在循环之后再画同样也画不出
以下是代码

var bmp : TGPBitmap;
gd : TGpGraphics;
begin
panel1.BrintToFont;
panel1.Visable := True;
try
bmp := TGpBitmap.Create('1.png');
Gd := TGpgraphics.Create(image1.Canvas.Handle);
For i := 1 to 20 do
begin
pnl1.Left :=
pnl1.Top :=
pnl1.Width :=
pnl1.height := //由屏幕中央向处扩散的效果
gd.Drawimage(Bmp,GpRect (0,0,image1.width,image1.height),0,0,image1.width,image1.height,utpixel);

end;
finally
Bmp.Free;
gp.Free;
end;
end;

可以实现panel缩放的效果,但是图片一直无法显示,请高人赐教,问题出在哪,谢谢了!!!

...全文