delphi - 使用 extCreatePen 的虚线不在 Delphi 中打印

Question

我正在尝试使用用户定义的笔样式绘制一条线，但该线打印笔直。我正在使用德尔福东京

var
  LLogBrush : tLogBrush;
  LUserstyle : array[0..3] of Double;
begin

  LUserstyle[0]:= 8;
  LUserstyle[1]:= 4;
  LUserstyle[2]:= 8;
  LUserstyle[3]:= 4;

  LLogBrush.lbStyle := BS_Solid;
  LLogBrush.lbColor := Color;
  LLogBrush.lbHatch := 0;

  PaintBox1.Canvas.Pen.Handle := ExtCreatePen(PS_GEOMETRIC or PS_USERSTYLE,
                    2, LLogBrush, 4, @LUserstyle);

  PaintBox1.Canvas.MoveTo(10,10);
  PaintBox1.Canvas.LineTo(100,100);
end;

我做错什么了吗？

标签： delphiline