use PaintEventArgs.ClipRectangle.Location if offset is not used
This commit is contained in:
@@ -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
|
||||||
|
|||||||
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user