Image控件无法实现图片的拉伸效果显示?该怎么处理
Image控件无法实现图片的拉伸效果显示?
想要把图片一点一点显示,可每次都是一次性显示。为什么呢?
------解决方案--------------------
for 里面加一个application.processmessage
每循环一次sleep(500)
------解决方案--------------------
500有点久了,不过10太短了时间自己看着调吧
------解决方案--------------------
因为timage和form分别是TCotnrol下的两条分支,虽然表面上都有canvas,但是刷新机制是不同的
TCotnrol有有自己的消息重绘,而timage需要依赖其Owner来重绘
------解决方案--------------------
4L代码有一点敲错了
TForm有有自己的消息重绘,而timage需要依赖其Owner来重绘
想要把图片一点一点显示,可每次都是一次性显示。为什么呢?
- Delphi(Pascal) code
for i:=0 to bmpheight do begin newbmp.Canvas.CopyRect(Rect (0,bmpheight-i,bmpwidth,bmpheight), Bmp.Canvas,Rect(0,0,bmpwidth,i)); Image1.Canvas.Draw(0,0,newbmp); Sleep(10); end;
------解决方案--------------------
for 里面加一个application.processmessage
每循环一次sleep(500)
------解决方案--------------------
500有点久了,不过10太短了时间自己看着调吧
------解决方案--------------------
因为timage和form分别是TCotnrol下的两条分支,虽然表面上都有canvas,但是刷新机制是不同的
TCotnrol有有自己的消息重绘,而timage需要依赖其Owner来重绘
------解决方案--------------------
4L代码有一点敲错了
TForm有有自己的消息重绘,而timage需要依赖其Owner来重绘