add LocationDirect property to access the loaction fo a paintingobject without zoom

Pilz.UI/PaintingControl/PaintingObject.vb

@@ -185,6 +185,15 @@ Imports Newtonsoft.Json
         End Set
     End Property
 
+    <JsonIgnore> Public Property LocationDirect As PointF
+        Get
+            Return _Location
+        End Get
+        Set(value As PointF)
+            _Location = value
+        End Set
+    End Property
+
     <JsonIgnore> Public Property Size As SizeF
         Get
             If Parent IsNot Nothing Then