190930

Pilz.UI/PaintingControl/PaintingObjectResizing.vb

@@ -66,7 +66,6 @@ Imports Pilz.Drawing
     End Sub
 
     Private Sub mControl_MouseMove(sender As Object, e As MouseEventArgs) Handles mObjControl.MouseMove
-
         If mMouseDown AndAlso mEdge <> EdgeEnum.None Then
 
             Dim eX As Integer = e.X + mObj.Parent.Offset.X
@@ -97,6 +96,8 @@ Imports Pilz.Drawing
 
             Dim eXo As Integer = e.X
             Dim eYo As Integer = e.Y
+            Dim realX As Integer = eXo + mObj.Parent.Offset.X
+            Dim realY As Integer = eYo + mObj.Parent.Offset.Y
             Dim eXwo As Integer = eXo - mObj.X
             Dim eYwo As Integer = eYo - mObj.Y
             Dim eX As Integer = eXwo + mObj.Parent.Offset.X
@@ -112,7 +113,7 @@ Imports Pilz.Drawing
             newRect.Height = (extRect.Height - oldRect.Height) / 2
 
             Dim setToNone As Boolean = False
-            Dim isOnTop As Boolean = mObj.Parent.GetObject(New PointF(eXo, eYo), True) Is mObj
+            Dim isOnTop As Boolean = mObj.Parent.GetObject(New PointF(realX, realY), True) Is mObj
 
             If Enabled AndAlso isOnTop Then
                 Select Case True