delphi - 设置 Canvas.LineTo 的线端样式

Question

有没有办法为 TCanvas.LineTo 方法设置 lineends 的样式？它似乎默认为圆角末端，当 Pen.Width 设置为较大值(例如 9)时，对于不同颜色的一行中的多条线来说，这看起来非常糟糕。

它看起来像这样(圆角末端):

 ********........******
**********........******
**********........******
 ********........******

(其中 * 代表蓝色，. 代表黄色)

如果外面的两条线画在中间线之后就更糟糕了:

 ********........******
**********......********
**********......********
 ********........******

我希望它看起来像这样(街道结束):

 ********........******
 ********........******
 ********........******
 ********........******

Pen 似乎没有为此提供任何设置，LineTo 方法也没有提供任何设置。是否有我可以调用的 Windows API 函数？

Answer 1

也许ExtCreatePen有帮助。检查 PS_ENDCAP_* 和 PS_JOIN_* 标志。