当前位置: 代码迷 >> Delphi >> Image控件无法实现图片的拉伸效果显示?该怎么处理
  详细解决方案

Image控件无法实现图片的拉伸效果显示?该怎么处理

热度:123   发布时间:2016-05-10 04:45:10.0
Image控件无法实现图片的拉伸效果显示?
想要把图片一点一点显示,可每次都是一次性显示。为什么呢?
Delphi(Pascal) code
for i:=0 to bmpheight dobeginnewbmp.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来重绘
  相关解决方案
本站暂不开放注册!
内测阶段只得通过邀请码进行注册!
 
  • 最近登录:Fri May 26 22:51:00 CST 2017
  • 最近登录:Fri May 26 22:51:00 CST 2017
  • 最近登录:Fri May 26 22:51:00 CST 2017
  • 最近登录:Fri May 26 22:51:00 CST 2017
  • 最近登录:Fri May 26 22:51:00 CST 2017