Crear TPen personalizados

[tiqui_loquito]

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

[Neftali [Germán.Estévez]]

Empezado por tiqui_loquito

Quisiera saber si es posible crear estilo de TPen personalizados y como se haría (un ejemplo)
Quiero crear la líneas tal cual están en la imagen.

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.

[tiqui_loquito]

Gracias por la respuesta, voy a probarla