пунктирная линия с использованием extCreatePen не печатает в Delphi - PullRequest
Новая
       3

пунктирная линия с использованием extCreatePen не печатает в Delphi

0 голосов
/ 14 мая 2018

Я пытаюсь нарисовать линию, используя стиль пера, определенный пользователем, но линия печатается прямо. использую Delphi Tokyo 

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;

Я что-то не так делаю?

...