190607 c1

- Add Pilz.Drawing.Drawing3D.OpenGLFactory
- Fix small bugs in Pilz.UI.PaintingControl

Pilz.UI/PaintingControl/PaintingObjectResizing.vb

@@ -95,8 +95,12 @@ Imports Pilz.Drawing
 
         ElseIf Not mMouseDown Then
 
-            Dim eX As Integer = e.X - mObj.X + mObj.Parent.Offset.X
-            Dim eY As Integer = e.Y - mObj.Y + mObj.Parent.Offset.Y
+            Dim eXo As Integer = e.X
+            Dim eYo As Integer = e.Y
+            Dim eXwo As Integer = eXo - mObj.X
+            Dim eYwo As Integer = eYo - mObj.Y
+            Dim eX As Integer = eXwo + mObj.Parent.Offset.X
+            Dim eY As Integer = eYwo + mObj.Parent.Offset.Y
             Dim eLocation As New Point(eX, eY)
             Dim extRect As RectangleF = mObj.RectangleExtended
             Dim oldRect As RectangleF = mObj.Rectangle
@@ -108,8 +112,9 @@ 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
 
-            If Enabled Then
+            If Enabled AndAlso isOnTop Then
                 Select Case True
                     Case HelpfulDrawingFunctions.IsPointInRectangle(eLocation, New Rectangle(newRect.X, newRect.Y, newRect.Width, newRect.Height))
                         mObj.Cursor = Cursors.SizeNWSE