Shape con style psDo pierde el estilo

[tiqui_loquito]

Gracias Netftali

Este código me ha servido

Código Delphi [-]
procedure WideDotDashLine (canvas : tCanvas; pStyle : tPenStyle; pColor :
tColor; x1, y1, x2, y2, w : integer);
var  i,
     xd,
     yd        : integer;
begin
with canvas do
     begin
     if y2 = y1
     then begin
          xd := 0;
          yd := 1;
          end
     else begin
          xd := 1;
          yd := 0;
          end;
     Brush.Style := bsClear;
     Pen.Style := pStyle;
     Pen.Color := pColor;
     Pen.Width := 1;
     i := 0;
     while w > 0 do
          begin
          MoveTo (x1 + (xd * i), y1 + (yd * i));
          LineTo (x2 + (xd * i), y2 + (yd * i));
          dec (w);
          if i >= 0
          then i := -Succ (i)
          else i := -i;
          end;
     end;
end;

Estoy es mirando en que parte lo lo inserto en el programa SimpleGraph, ya que me hace el ajuste sobre el formulario de las opciones donde cambio los datos del shape mas no se ven reflejados sobre el formulario donde se crea la línea (Simplegraph)

Seguiré validando y si algo escribo nuevamente para una nueva orientación.

Muchas Gracias