ExtCreatePen定制，简单急了(100分)

如何定制pen.style的参数，使得线段端头呈方形，而不是圆形！且焦点呈斜角连接！
我是利用ExtCreatePen函数编程，但结果还是呈圆形！

procedure TMainForm.SetPenDefaults;
var mybrush:taglogbrush;

begin
mybrush.lbstyle:=BS_SOLID;
mybrush.lbColor:=DIB_PAL_COLORS;
mybrush.lbHatch:=HS_BDIAGONAL;
canvas.pen.Handle:=ExtCreatePen(PS_GEOMETRIC or 0 or PS_SOLID or PS_JOIN_BEVEL,
5,mybrush,0,nil);
with Canvas do
begin
MoveTo(100, yPos);
LineTo(ClientWidth, yPos);
end;
end;

高手最好能给我讲解一下此函数的冷僻参数用法，如SetMiterLimit 。

大富翁论坛，为何对我提的多个问题均无回答？？？？？？？？？？？？？？？？？？
实在令我失望！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！1
别了**************************************************************

canvas.pen.Handle:=ExtCreatePen(PS_GEOMETRIC or
0 or
[red]PS_ENDCAP_SQUARE[/red] or
PS_JOIN_BEVEL,
5,
mybrush,
0,
nil);

简单急了的华夏英才，你好：
你如果只是画简单的连线(Pen.Style=psSolid)，且不是一定要兼容地用MoveTo和
LineTo，我有一个建议：自己计算出线段的矩形（应该说是像线段的一个四边形），
然后画出来。

> 大富翁论坛，为何对我提的多个问题均无回答？？？？？？？？？？？？？？？？？？
> 实在令我失望！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！1
> 别了**************************************************************

这几句话怎么让我觉得你不是来问问题而是故意来踢场的，而且很没耐心，才踢了
几天就下了结论。不过我还是想请你留下来，最好把分给我再走不迟。

多人接受答案了。