Delphi中的圆角矩形

Question

我一直试图在边框中绘制一个带有间距的圆角矩形,但我似乎无法使用Canvas.RoundRect函数找到一种方法来做到这一点,而且我自己画数据并不是很好,我可以画画使用Canvas.MoveTo和Canvas.LineTo函数的间距矩形,但我不知道如何使边缘圆化.目前我正在做的是我在想要在边框中制作间距的地方制作黄色矩形,但问题是当我打印时我必须直接在打印机画布上绘图而我必须在透明纸上绘图,所以背景颜色会导致问题.任何可以帮我构建自定义绘图程序或告诉我如何擦除该区域并仍然在没有任何背景颜色的透明纸上打印的人.黄色背景颜色仅供预览,当我绘制到打印机画布时,背景是透明的.

通过边界线中的间距查看图像以了解我的意思.

谢谢

Answer 1

您可以通过操纵当前设备上下文的剪切区域来排除间隙.假设L,R,T和B是黄色矩形的坐标以形成间隙,请使用以下代码:

ExcludeClipRect(Canvas.Handle, L, T, R, B); // exclude the gap
Canvas.RoundRect(<whatever you already do here>);
SelectClipRgn(Canvas.Handle, 0); // reset the clipping region