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