Pilz.NET/Pilz
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

support for line start and end cap

Browse Source
This commit is contained in:
Pascal
2021-02-23 08:46:03 +01:00
parent f120e7a374
commit 4480c00cb7
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Pilz.UI/PaintingControl/DefaultDrawMethodes.vb
View File

@@ -112,7 +112,11 @@ Public Class DefaultDrawMethodes
Public Shared Sub DrawLine(e As PaintingObjectPaintEventArgs) Public Shared Sub DrawLine(e As PaintingObjectPaintEventArgs)
Dim obj As PaintingObject = e.PaintingObject 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 p2.Alignment = PenAlignment.Center
Dim no As PointF = New PointF(e.X, e.Y) Dim no As PointF = New PointF(e.X, e.Y)
e.Graphics.DrawLine(p2, no, no + obj.Size) e.Graphics.DrawLine(p2, no, no + obj.Size)

2
Pilz.UI/PaintingControl/PaintingObject.vb
View File

@@ -19,6 +19,8 @@ Imports Newtonsoft.Json
Public Property OutlineColor As Color = Color.DarkBlue Public Property OutlineColor As Color = Color.DarkBlue
Public Property OutlineThicknes As Single = 1 Public Property OutlineThicknes As Single = 1
Public Property OutlineDashStyle As DashStyle = DashStyle.Solid Public Property OutlineDashStyle As DashStyle = DashStyle.Solid
Public Property LineStartCap As LineCap = LineCap.Flat
Public Property LineEndCap As LineCap = LineCap.Flat
<JsonProperty> <JsonProperty>
Private _Text As String = "" Private _Text As String = ""
Public Property TextPosition As TextPosition = TextPosition.FullCenter Public Property TextPosition As TextPosition = TextPosition.FullCenter