From fe2bb8efa1f5d0671cb7c692e088732357925633 Mon Sep 17 00:00:00 2001
From: Pilzinsel64 <pilzinsel64@gmx.de>
Date: Thu, 25 Mar 2021 13:30:58 +0100
Subject: [PATCH] add LocationDirect property to access the loaction fo a
 paintingobject without zoom

---
 Pilz.UI/PaintingControl/PaintingObject.vb | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/Pilz.UI/PaintingControl/PaintingObject.vb b/Pilz.UI/PaintingControl/PaintingObject.vb
index f0e45ac..78f00ca 100644
--- a/Pilz.UI/PaintingControl/PaintingObject.vb
+++ b/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