[求助]图象的平移

Question

TImage装入图象后，因为图象比较大，但是我又想100％原图显示，怎么做个平移？类似photoshop中的平移按钮。

Answer 1

你是不想做个滑动条啊？
放一个TScrollBox控件，然后将Image放道上面就可以了

Answer 2

我照上面说的做了，而且ScrollBox1.AutoScroll=true,只有图象的一部分，可是还是没有滑动条？。

Answer 3

这个问题需要用程序来进行处理。即你的现实Image的地方使用一个Image控件，然后载入图片使用另外一个Image控件。然后将Image的OnMouseDonw,OnMouseUp,OnMouseMove控制起来，在进行平移的时候，计算好平移后的坐标，然后将后台的Image中的图像Bitblt到前面的Image控件上去。
具体要你自己写，无非就是来抓图片的位置问题。当然，在平移的时候如果象做的好一点，就直接blt了。
使用的函数是Bitblt。
你参考一下Bitblt函数吧。Api函数。