从左下角到右上角显示图片（CopyRect）

Question

procedure Tfrmmain.tmSwapTimer(Sender: TObject);
 Swap_time  =40;var
  rec : Trect;
begin
  rec.Left := 0;
  rec.Top := imgmv.Height * (swap_time - SwapStep) div (swap_time);
  rec.Right := imgmv.Width;
  rec.Bottom := imgmv.Height;      
  imgmv.Canvas.CopyRect(REC, imgpuke.Canvas,rec);
  inc(SwapStep);
  if SwapStep > Swap_Time  then
  begin
      tmSwap.Enabled := false;
  end;
end;这是从下向上显示图片，我想出现从左下角到右下角显示图片

Answer 1

你上面有了，自己改改不就完了。。
以上拉效果为例子，原理如下；
以上拉 效果为例。
原理：首先将放在暂存图形的第一条水平线，搬移至要显示的位图的最后一条，接着再将暂存图形的前两条水平线，依序搬移至要显示位图的最后两条水平线，然后搬移前三条、前四条叄?直到全部图形数据搬完为止。在搬移的过程中即可看到显示的位图由下而上浮起，而达到上拉的效果。
还有个取巧的办法。。利用AnimateWindow实现，在窗体上，放一个image,然后设置窗体为那种没有边框的，image最大化，在窗体的onCreate中写
AnimateWindow(Form2.Handle,1000,9);就可以出现你要的效果。

Answer 2

谢谢，我看了PICSHOW的源代码，自己写了一个

Answer 3

啊？给分的时候出错，怎么我的分也没了，wudi也没得分？？？