Delphi绘制一个带有两个圆角和矩形的封闭矩形。

Question

如何画一个有两个圆角的矩形，而相对的角是矩形的。形状必须关闭，以便它可以填充刷子的颜色。Polyline方法不绘制曲线。我能把弧线的点加到折线点上吗？我尝试用画布方法绘制一个RoundRect，然后将一个矩形重叠在下圆角上，但当不填充矩形的边框时，我想不出如何擦除矩形的上线。注意:如果您认为是相关的，我可以添加我使用的代码。

所需形状的样本：

​

​

我从德尔菲那里得到的一个例子：

​

​

Answer 1

你不需要在画的同时填充这个形状。您可以使用一系列的TCanvas.LineTo()和TCanvas.ArcTo()/TCanvas.AngleArc()调用来创建形状，然后调用TCanvas.FloodFill()来填充它。

否则，您可以使用相同的填充颜色将TCanvas.Rectangle()重叠在TCanvas.RoundRect()上，然后使用TCanvas.MoveTo()/TCanvas.LineTo()绘制具有相同填充颜色的分界线。

另一种选择是忘记使用TCanvas绘图方法，而只是使用Win32 API调用。使用CreateRoundRectRgn()、CreateRectRgn()和CombineRn()创建具有所需形状的HRGN，然后使用FillRgn()和FrameRgn()使用HRGN绘制TCanvas。