From 4480c00cb79750929ec76ac782c86101eaa5264f Mon Sep 17 00:00:00 2001 From: Pilzinsel64 Date: Tue, 23 Feb 2021 08:46:03 +0100 Subject: [PATCH] support for line start and end cap --- Pilz.UI/PaintingControl/DefaultDrawMethodes.vb | 6 +++++- Pilz.UI/PaintingControl/PaintingObject.vb | 2 ++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/Pilz.UI/PaintingControl/DefaultDrawMethodes.vb b/Pilz.UI/PaintingControl/DefaultDrawMethodes.vb index b802cb7..a72d154 100644 --- a/Pilz.UI/PaintingControl/DefaultDrawMethodes.vb +++ b/Pilz.UI/PaintingControl/DefaultDrawMethodes.vb @@ -112,7 +112,11 @@ Public Class DefaultDrawMethodes Public Shared Sub DrawLine(e As PaintingObjectPaintEventArgs) Dim obj As PaintingObject = e.PaintingObject - Dim p2 As New Pen(obj.OutlineColor, obj.OutlineThicknes) With {.DashStyle = obj.OutlineDashStyle} + Dim p2 As New Pen(obj.OutlineColor, obj.OutlineThicknes) With { + .DashStyle = obj.OutlineDashStyle, + .StartCap = obj.LineStartCap, + .EndCap = obj.LineEndCap + } p2.Alignment = PenAlignment.Center Dim no As PointF = New PointF(e.X, e.Y) e.Graphics.DrawLine(p2, no, no + obj.Size) diff --git a/Pilz.UI/PaintingControl/PaintingObject.vb b/Pilz.UI/PaintingControl/PaintingObject.vb index e4c6f29..6e35b35 100644 --- a/Pilz.UI/PaintingControl/PaintingObject.vb +++ b/Pilz.UI/PaintingControl/PaintingObject.vb @@ -19,6 +19,8 @@ Imports Newtonsoft.Json Public Property OutlineColor As Color = Color.DarkBlue Public Property OutlineThicknes As Single = 1 Public Property OutlineDashStyle As DashStyle = DashStyle.Solid + Public Property LineStartCap As LineCap = LineCap.Flat + Public Property LineEndCap As LineCap = LineCap.Flat Private _Text As String = "" Public Property TextPosition As TextPosition = TextPosition.FullCenter