use PaintEventArgs.ClipRectangle.Location if offset is not used

This commit is contained in:
2021-02-25 10:44:19 +01:00
parent 7d7cb0eee0
commit 45696f2d19
2 changed files with 5 additions and 5 deletions

View File

@@ -116,14 +116,14 @@ Public Class DefaultDrawMethodes
.DashStyle = obj.OutlineDashStyle .DashStyle = obj.OutlineDashStyle
} }
If obj.LineStartCap IsNot Nothing Then If obj.LineEndCap IsNot Nothing Then
Dim args As LineCapConfigurationArgs = obj.LineStartCap.Configure Dim args As LineCapConfigurationArgs = obj.LineEndCap.Configure
p2.StartCap = args.LineCap p2.StartCap = args.LineCap
p2.CustomStartCap = args.CustomLineCap p2.CustomStartCap = args.CustomLineCap
End If End If
If obj.LineEndCap IsNot Nothing Then If obj.LineStartCap IsNot Nothing Then
Dim args As LineCapConfigurationArgs = obj.LineEndCap.Configure Dim args As LineCapConfigurationArgs = obj.LineStartCap.Configure
p2.EndCap = args.LineCap p2.EndCap = args.LineCap
p2.CustomEndCap = args.CustomLineCap p2.CustomEndCap = args.CustomLineCap
End If End If

View File

@@ -456,7 +456,7 @@ Imports Newtonsoft.Json
End Sub End Sub
Public Sub Draw(e As PaintEventArgs) Public Sub Draw(e As PaintEventArgs)
Draw(e, PointF.Empty) Draw(e, e.ClipRectangle.Location)
End Sub End Sub
Public Sub Draw(e As PaintEventArgs, offset As PointF) Public Sub Draw(e As PaintEventArgs, offset As PointF)