canvas.copyrect有没有不让他自动缩放的方法(100分)?这里有没有能正经回答问题的了?

                            
我做了一个播放进度显示,进度条Alige:=alClient,进度条上面有一个可移动的25*9的小图片   
  每秒刷新一回这个新图片。  
   
  我现在的写法是  
  src     :=   rect(0,0,6,29);  
  dest   :=   rect(0,0,Image1.Width,29);  
  Image1.canvas.copyrect(dest,   Image_Skin.canvas,   src);//底下进度条背景  
   
  src     :=   rect(0,0,6,29);  
  dest   :=   rect(12,0,20,29);//这里本来用是代码计算  
  Image1.canvas.copyrect(dest,   Image_Skin.canvas,   src);//可移动的25*9的小图片  
  这样就组成一个图,问题是,改变窗体大小的,小图片成比例缩放  
   
  我不想让图片随窗体的大小自动缩收,要怎么实现?  
  要怎么修改才好???  
  我写了一个例子,改变一下窗体的宽看看,在点按钮2看看,还是缩收状态  
  例子下载地址:www.cocowo.com/down/123.rar  
 

查看回复