Cita:
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.