如何在透明image上画多条直线并移动？

Question

如题，两个image，上面的image透明，如何在这个image上画多条直线？用fillrect 
brush.style := bsclear 上次画的直线就被清空了，不用又不能保证透明。补充：其实我要做一个图像处理的软件，需要画线等功能。要求在对原始图像进行处理时，其上人为标注的各种信息如直线、文字等不变化。另外，有没有满足以上要求并且可以使标注信息自由移动的类似控件？

Answer 1

强烈要求分离Image跟前景的线条或者文字。你可以维护一个内部的Bitmap缓冲，然后在FormPaint之类的事件中把图片和文字分别绘制到窗口上。不要考虑重叠的Image。效率太低，而且不灵活。此外，对于需要可以自由移动的文字，如果要求不高的话，直接动态创建TLabel好了。线条什么的就用Shape。如果你的窗口闪烁的厉害，可以把Form（或者你绘图的母体）的DoubleBuffered打开。