better json serializable PaintingObjects

Pilz.UI/PaintingControl/PaintingObject.vb

@@ -19,18 +19,22 @@ Imports Newtonsoft.Json
     Public Property OutlineColor As Color = Color.DarkBlue
     Public Property OutlineThicknes As Single = 1
     Public Property OutlineDashStyle As DashStyle = DashStyle.Solid
+    <JsonProperty>
     Private _Text As String = ""
     Public Property TextPosition As TextPosition = TextPosition.FullCenter
     Public Property VerticalTextAlignment As StringAlignment = StringAlignment.Center
     Public Property HorizontalTextAlignment As StringAlignment = StringAlignment.Center
     Public Property TextFont As New Font(FontFamily.GenericSansSerif, 8.25)
     Public Property TextColor As Color = Color.Black
+    <JsonProperty>
     Private _Location As New PointF(50, 50)
+    <JsonProperty>
     Private _Size As New SizeF(50, 80)
     Public Property EnableFill As Boolean = True
     Public Property EnableOutline As Boolean = True
     Public Property SelectionColor As Color = Color.CornflowerBlue
     Public Property SelectionDashStyle As DashStyle = DashStyle.Dot
+    <JsonProperty>
     Private _EnableSelection As Boolean = True
     Public Property Image As Image = Nothing
     <JsonIgnore> Public Property BufferedImage As Image = Nothing
@@ -39,15 +43,20 @@ Imports Newtonsoft.Json
     Public Property Tag As String = Nothing
     Public Property Name As String = ""
     Public ReadOnly Property PinnedObjects As New List(Of PaintingObject)
+    <JsonIgnore>
     Public ReadOnly Property DrawMethodes As New List(Of DelegateDrawPaintingObjectMethode)
+    <JsonIgnore>
     Public ReadOnly Property DrawSelectionMethode As DelegateDrawPaintingObjectMethode = AddressOf DefaultDrawMethodes.DrawSelection
     Public Property Cursor As Cursor = Cursors.Default
     Public Property HardcodedSize As Boolean = False
+    <JsonProperty>
     Private _Visible As Boolean = True
+    <JsonProperty>
     Private _AutoAlignToGrid As Boolean = False
     Public Property MouseTransparency As Boolean = False
     Public ReadOnly Property Layering As New PaintingObjectLayering(Me)
     Public ReadOnly Property PaintingObjects As New PaintingObjectList(_Parent) With {.EnableRaisingEvents = False}
+    <JsonIgnore>
     Public ReadOnly Property ErrorsAtDrawing As ULong = 0
 
     Public Event MouseClick(sender As PaintingObject, e As MouseEventArgs)
@@ -321,6 +330,7 @@ Imports Newtonsoft.Json
         End Set
     End Property
 
+    <JsonIgnore>
     Public Property Rectangle As RectangleF
         Get
             Return New RectangleF(Location, Size)
@@ -528,8 +538,10 @@ End Class
 Public Class PaintingObjectList
     Inherits List(Of PaintingObject)
 
+    <JsonIgnore>
     Friend ReadOnly Property MyParent As PaintingControl
     Friend Property EnableRaisingEvents As Boolean = True
+    <JsonIgnore>
     Public ReadOnly Property Layering As New PaintingObjectListLayering(Me)
 
     Public Sub New()