Crear TPen personalizados
 

Buenas tardes a todos

Quisiera saber si es posible crear estilo de TPen personalizados y como se haría (un ejemplo)

He intentado algunas cosas con la ayuda de https://chat.openai.com/ pero no ha sido posible.

Trabajo con Delphi7

Quiero crear la líneas tal cual están en la imagen.

Si es posible?


Estoy trabajando con SimpleGraph y quiero agregarle esas opciones de linea ene l TPen

TSimpleGraph usa para dibujar los estilos de TPen existentes en la VCL. En el caso de los links usa algo así:

Código Delphi [-]
    OldBrushStyle := Canvas.Brush.Style;
    try
      Canvas.Brush.Style := XXXX;
      if ModifiedPolyline <> nil then
        Canvas.Polyline(ModifiedPolyline)
      else
        Canvas.Polyline(Polyline);
    finally
      Canvas.Brush.Style := OldBrushStyle;
    end;

Y si revisamos los objetos algo como esto:

Código Delphi [-]
  Canvas.RoundRect(Left, Top, Left + Width, Top + Height, Roundness, Roundness);

Si deseas generar nuevos estilos, tal vez deberías crear un nuevo enumerado con los nuevos estilos (junto con los ya existentes) y reescribir (sobrecargar) los procedimientos de pintado para en los casos de los nuevos estilos realizar tú el pintado directamente sobre el Canvas.

Gracias por la respuesta, voy a probarla