convert VB to C#

Pilz.UI/My Project/Application.Designer.cs

@@ -0,0 +1,11 @@
+// ------------------------------------------------------------------------------
+// <auto-generated>
+// Dieser Code wurde von einem Tool generiert.
+// Laufzeitversion:4.0.30319.42000
+// 
+// Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+// der Code erneut generiert wird.
+// </auto-generated>
+// ------------------------------------------------------------------------------
+
+

Pilz.UI/My Project/Application.Designer.vb

@@ -1,13 +0,0 @@
-'------------------------------------------------------------------------------
-' <auto-generated>
-'     Dieser Code wurde von einem Tool generiert.
-'     Laufzeitversion:4.0.30319.42000
-'
-'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
-'     der Code erneut generiert wird.
-' </auto-generated>
-'------------------------------------------------------------------------------
-
-Option Strict On
-Option Explicit On
-

Pilz.UI/My Project/AssemblyInfo.vb

@@ -1,35 +0,0 @@
-Imports System
-Imports System.Reflection
-Imports System.Runtime.InteropServices
-
-' Allgemeine Informationen über eine Assembly werden über die folgenden
-' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
-' die einer Assembly zugeordnet sind.
-
-' Werte der Assemblyattribute überprüfen
-
-<Assembly: AssemblyTitle("PaintingControls")>
-<Assembly: AssemblyDescription("")>
-<Assembly: AssemblyCompany("Dr. Schneider Kunststoffwerke GmbH")>
-<Assembly: AssemblyProduct("PaintingControls")>
-<Assembly: AssemblyCopyright("Copyright © Pascal Schedel 2018")>
-<Assembly: AssemblyTrademark("")>
-
-<Assembly: ComVisible(False)>
-
-'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
-<Assembly: Guid("35e33313-ac05-4192-9cc7-c60016d65657")>
-
-' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
-'
-'      Hauptversion
-'      Nebenversion
-'      Buildnummer
-'      Revision
-'
-' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
-' übernehmen, indem Sie "*" eingeben:
-' <Assembly: AssemblyVersion("1.0.*")>
-
-<Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>

Pilz.UI/My Project/MyNamespace.Static.1.Designer.cs

@@ -0,0 +1,192 @@
+// Copyright (c) Microsoft.  All Rights Reserved.  Licensed under the Apache License, Version 2.0.  See License.txt in the project root for license information.
+
+using System;
+using System.Diagnostics;
+using Microsoft.VisualBasic;
+
+/* TODO ERROR: Skipped IfDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped EndIfDirectiveTrivia */
+/* TODO ERROR: Skipped IfDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped ElifDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped ElifDirectiveTrivia */
+/* TODO ERROR: Skipped DefineDirectiveTrivia *//* TODO ERROR: Skipped DefineDirectiveTrivia *//* TODO ERROR: Skipped DefineDirectiveTrivia *//* TODO ERROR: Skipped DefineDirectiveTrivia */
+/* TODO ERROR: Skipped ElifDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped ElifDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped ElifDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped ElifDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped ElifDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped EndIfDirectiveTrivia */
+/* TODO ERROR: Skipped IfDirectiveTrivia */
+namespace Pilz.UI.My
+{
+
+    /* TODO ERROR: Skipped IfDirectiveTrivia */
+    [System.CodeDom.Compiler.GeneratedCode("MyTemplate", "11.0.0.0")]
+    [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+
+    /* TODO ERROR: Skipped IfDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped ElifDirectiveTrivia */
+    internal partial class MyApplication : Microsoft.VisualBasic.ApplicationServices.ApplicationBase
+    {
+        /* TODO ERROR: Skipped ElifDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped EndIfDirectiveTrivia */
+    }
+
+    /* TODO ERROR: Skipped EndIfDirectiveTrivia */
+    /* TODO ERROR: Skipped IfDirectiveTrivia */
+    [System.CodeDom.Compiler.GeneratedCode("MyTemplate", "11.0.0.0")]
+    [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+
+    /* TODO ERROR: Skipped IfDirectiveTrivia */
+    internal partial class MyComputer : Microsoft.VisualBasic.Devices.Computer
+    {
+        /* TODO ERROR: Skipped ElifDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped EndIfDirectiveTrivia */
+        [DebuggerHidden()]
+        [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+        public MyComputer() : base()
+        {
+        }
+    }
+    /* TODO ERROR: Skipped EndIfDirectiveTrivia */
+    [HideModuleName()]
+    [System.CodeDom.Compiler.GeneratedCode("MyTemplate", "11.0.0.0")]
+    internal static class MyProject
+    {
+
+        /* TODO ERROR: Skipped IfDirectiveTrivia */
+        [System.ComponentModel.Design.HelpKeyword("My.Computer")]
+        internal static MyComputer Computer
+        {
+            [DebuggerHidden()]
+            get
+            {
+                return m_ComputerObjectProvider.GetInstance;
+            }
+        }
+
+        private readonly static ThreadSafeObjectProvider<MyComputer> m_ComputerObjectProvider = new ThreadSafeObjectProvider<MyComputer>();
+        /* TODO ERROR: Skipped EndIfDirectiveTrivia */
+        /* TODO ERROR: Skipped IfDirectiveTrivia */
+        [System.ComponentModel.Design.HelpKeyword("My.Application")]
+        internal static MyApplication Application
+        {
+            [DebuggerHidden()]
+            get
+            {
+                return m_AppObjectProvider.GetInstance;
+            }
+        }
+
+        private readonly static ThreadSafeObjectProvider<MyApplication> m_AppObjectProvider = new ThreadSafeObjectProvider<MyApplication>();
+        /* TODO ERROR: Skipped EndIfDirectiveTrivia */
+        /* TODO ERROR: Skipped IfDirectiveTrivia */
+        [System.ComponentModel.Design.HelpKeyword("My.User")]
+        internal static Microsoft.VisualBasic.ApplicationServices.User User
+        {
+            [DebuggerHidden()]
+            get
+            {
+                return m_UserObjectProvider.GetInstance;
+            }
+        }
+
+        private readonly static ThreadSafeObjectProvider<Microsoft.VisualBasic.ApplicationServices.User> m_UserObjectProvider = new ThreadSafeObjectProvider<Microsoft.VisualBasic.ApplicationServices.User>();
+        /* TODO ERROR: Skipped ElifDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped EndIfDirectiveTrivia */
+                                                                                                 /* TODO ERROR: Skipped IfDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped EndIfDirectiveTrivia */
+                                                                                                                                                                                        /* TODO ERROR: Skipped IfDirectiveTrivia */
+        [System.ComponentModel.Design.HelpKeyword("My.WebServices")]
+        internal static MyWebServices WebServices
+        {
+            [DebuggerHidden()]
+            get
+            {
+                return m_MyWebServicesObjectProvider.GetInstance;
+            }
+        }
+
+        [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+        [MyGroupCollection("System.Web.Services.Protocols.SoapHttpClientProtocol", "Create__Instance__", "Dispose__Instance__", "")]
+        internal sealed class MyWebServices
+        {
+            [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+            [DebuggerHidden()]
+            public override bool Equals(object o)
+            {
+                return base.Equals(o);
+            }
+
+            [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+            [DebuggerHidden()]
+            public override int GetHashCode()
+            {
+                return base.GetHashCode();
+            }
+
+            [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+            [DebuggerHidden()]
+            internal new Type GetType()
+            {
+                return typeof(MyWebServices);
+            }
+
+            [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+            [DebuggerHidden()]
+            public override string ToString()
+            {
+                return base.ToString();
+            }
+
+            [DebuggerHidden()]
+            private static T Create__Instance__<T>(T instance) where T : new()
+            {
+                if (instance == null)
+                {
+                    return new T();
+                }
+                else
+                {
+                    return instance;
+                }
+            }
+
+            [DebuggerHidden()]
+            private void Dispose__Instance__<T>(ref T instance)
+            {
+                instance = default;
+            }
+
+            [DebuggerHidden()]
+            [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+            public MyWebServices() : base()
+            {
+            }
+        }
+
+        private readonly static ThreadSafeObjectProvider<MyWebServices> m_MyWebServicesObjectProvider = new ThreadSafeObjectProvider<MyWebServices>();
+        /* TODO ERROR: Skipped EndIfDirectiveTrivia */
+        /* TODO ERROR: Skipped IfDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped EndIfDirectiveTrivia */
+        [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+        [System.Runtime.InteropServices.ComVisible(false)]
+        internal sealed class ThreadSafeObjectProvider<T> where T : new()
+        {
+            internal T GetInstance
+            {
+                /* TODO ERROR: Skipped IfDirectiveTrivia */
+                [DebuggerHidden()]
+                get
+                {
+                    var Value = m_Context.Value;
+                    if (Value == null)
+                    {
+                        Value = new T();
+                        m_Context.Value = Value;
+                    }
+
+                    return Value;
+                }
+                /* TODO ERROR: Skipped ElseDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped EndIfDirectiveTrivia */
+            }
+
+            [DebuggerHidden()]
+            [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+            public ThreadSafeObjectProvider() : base()
+            {
+            }
+
+            /* TODO ERROR: Skipped IfDirectiveTrivia */
+            private readonly Microsoft.VisualBasic.MyServices.Internal.ContextValue<T> m_Context = new Microsoft.VisualBasic.MyServices.Internal.ContextValue<T>();
+            /* TODO ERROR: Skipped ElseDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped EndIfDirectiveTrivia */
+        }
+    }
+}
+/* TODO ERROR: Skipped EndIfDirectiveTrivia */

Pilz.UI/My Project/MyNamespace.Static.2.Designer.cs

@@ -0,0 +1,253 @@
+// Copyright (c) Microsoft.  All Rights Reserved.  Licensed under the Apache License, Version 2.0.  See License.txt in the project root for license information.
+
+// See Compiler::LoadXmlSolutionExtension
+using System.Collections;
+using System.Collections.Generic;
+using System.Data;
+using System.Diagnostics;
+using System.Linq;
+using System.Xml.Linq;
+using Microsoft.VisualBasic;
+using Microsoft.VisualBasic.CompilerServices;
+
+namespace Pilz.UI.My
+{
+    [Embedded()]
+    [DebuggerNonUserCode()]
+    [System.Runtime.CompilerServices.CompilerGenerated()]
+    [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+    internal sealed class InternalXmlHelper
+    {
+        [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+        private InternalXmlHelper()
+        {
+        }
+
+        public static string get_Value(IEnumerable<XElement> source)
+        {
+            foreach (XElement item in source)
+                return item.Value;
+            return null;
+        }
+
+        public static void set_Value(IEnumerable<XElement> source, string value)
+        {
+            foreach (XElement item in source)
+            {
+                item.Value = value;
+                break;
+            }
+        }
+
+        public static string get_AttributeValue(IEnumerable<XElement> source, XName name)
+        {
+            foreach (XElement item in source)
+                return Conversions.ToString(item.Attribute(name));
+            return null;
+        }
+
+        public static void set_AttributeValue(IEnumerable<XElement> source, XName name, string value)
+        {
+            foreach (XElement item in source)
+            {
+                item.SetAttributeValue(name, value);
+                break;
+            }
+        }
+
+        public static string get_AttributeValue(XElement source, XName name)
+        {
+            return Conversions.ToString(source.Attribute(name));
+        }
+
+        public static void set_AttributeValue(XElement source, XName name, string value)
+        {
+            source.SetAttributeValue(name, value);
+        }
+
+        [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+        public static XAttribute CreateAttribute(XName name, object value)
+        {
+            if (value is null)
+            {
+                return null;
+            }
+
+            return new XAttribute(name, value);
+        }
+
+        [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+        public static XAttribute CreateNamespaceAttribute(XName name, XNamespace ns)
+        {
+            var a = new XAttribute(name, ns.NamespaceName);
+            a.AddAnnotation(ns);
+            return a;
+        }
+
+        [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+        public static object RemoveNamespaceAttributes(string[] inScopePrefixes, XNamespace[] inScopeNs, List<XAttribute> attributes, object obj)
+        {
+            if (obj is object)
+            {
+                XElement elem = obj as XElement;
+                if (elem is object)
+                {
+                    return RemoveNamespaceAttributes(inScopePrefixes, inScopeNs, attributes, elem);
+                }
+                else
+                {
+                    IEnumerable elems = obj as IEnumerable;
+                    if (elems is object)
+                    {
+                        return RemoveNamespaceAttributes(inScopePrefixes, inScopeNs, attributes, elems);
+                    }
+                }
+            }
+
+            return obj;
+        }
+
+        [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+        public static IEnumerable RemoveNamespaceAttributes(string[] inScopePrefixes, XNamespace[] inScopeNs, List<XAttribute> attributes, IEnumerable obj)
+        {
+            if (obj is object)
+            {
+                IEnumerable<XElement> elems = obj as IEnumerable<XElement>;
+                if (elems is object)
+                {
+                    return elems.Select(new RemoveNamespaceAttributesClosure(inScopePrefixes, inScopeNs, attributes).ProcessXElement);
+                }
+                else
+                {
+                    return obj.Cast<object>().Select(new RemoveNamespaceAttributesClosure(inScopePrefixes, inScopeNs, attributes).ProcessObject);
+                }
+            }
+
+            return obj;
+        }
+
+        [DebuggerNonUserCode()]
+        [System.Runtime.CompilerServices.CompilerGenerated()]
+        [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+        private sealed class RemoveNamespaceAttributesClosure
+        {
+            private readonly string[] m_inScopePrefixes;
+            private readonly XNamespace[] m_inScopeNs;
+            private readonly List<XAttribute> m_attributes;
+
+            [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+            internal RemoveNamespaceAttributesClosure(string[] inScopePrefixes, XNamespace[] inScopeNs, List<XAttribute> attributes)
+            {
+                m_inScopePrefixes = inScopePrefixes;
+                m_inScopeNs = inScopeNs;
+                m_attributes = attributes;
+            }
+
+            [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+            internal XElement ProcessXElement(XElement elem)
+            {
+                return RemoveNamespaceAttributes(m_inScopePrefixes, m_inScopeNs, m_attributes, elem);
+            }
+
+            [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+            internal object ProcessObject(object obj)
+            {
+                XElement elem = obj as XElement;
+                if (elem is object)
+                {
+                    return RemoveNamespaceAttributes(m_inScopePrefixes, m_inScopeNs, m_attributes, elem);
+                }
+                else
+                {
+                    return obj;
+                }
+            }
+        }
+
+        [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+        public static XElement RemoveNamespaceAttributes(string[] inScopePrefixes, XNamespace[] inScopeNs, List<XAttribute> attributes, XElement e)
+        {
+            if (e is object)
+            {
+                var a = e.FirstAttribute;
+                while (a is object)
+                {
+                    var nextA = a.NextAttribute;
+                    if (a.IsNamespaceDeclaration)
+                    {
+                        var ns = a.Annotation<XNamespace>();
+                        string prefix = a.Name.LocalName;
+                        if (ns is object)
+                        {
+                            if (inScopePrefixes is object && inScopeNs is object)
+                            {
+                                int lastIndex = inScopePrefixes.Length - 1;
+                                for (int i = 0, loopTo = lastIndex; i <= loopTo; i++)
+                                {
+                                    string currentInScopePrefix = inScopePrefixes[i];
+                                    var currentInScopeNs = inScopeNs[i];
+                                    if (prefix.Equals(currentInScopePrefix))
+                                    {
+                                        if (ns == currentInScopeNs)
+                                        {
+                                            // prefix and namespace match.  Remove the unneeded ns attribute 
+                                            a.Remove();
+                                        }
+
+                                        // prefix is in scope but refers to something else.  Leave the ns attribute. 
+                                        a = null;
+                                        break;
+                                    }
+                                }
+                            }
+
+                            if (a is object)
+                            {
+                                // Prefix is not in scope 
+                                // Now check whether it's going to be in scope because it is in the attributes list 
+
+                                if (attributes is object)
+                                {
+                                    int lastIndex = attributes.Count - 1;
+                                    for (int i = 0, loopTo1 = lastIndex; i <= loopTo1; i++)
+                                    {
+                                        var currentA = attributes[i];
+                                        string currentInScopePrefix = currentA.Name.LocalName;
+                                        var currentInScopeNs = currentA.Annotation<XNamespace>();
+                                        if (currentInScopeNs is object)
+                                        {
+                                            if (prefix.Equals(currentInScopePrefix))
+                                            {
+                                                if (ns == currentInScopeNs)
+                                                {
+                                                    // prefix and namespace match.  Remove the unneeded ns attribute 
+                                                    a.Remove();
+                                                }
+
+                                                // prefix is in scope but refers to something else.  Leave the ns attribute. 
+                                                a = null;
+                                                break;
+                                            }
+                                        }
+                                    }
+                                }
+
+                                if (a is object)
+                                {
+                                    // Prefix is definitely not in scope  
+                                    a.Remove();
+                                    // namespace is not defined either.  Add this attributes list 
+                                    attributes.Add(a);
+                                }
+                            }
+                        }
+                    }
+
+                    a = nextA;
+                }
+            }
+
+            return e;
+        }
+    }
+}

Pilz.UI/My Project/MyNamespace.Static.3.Designer.cs

@@ -0,0 +1,14 @@
+// Copyright (c) Microsoft.  All Rights Reserved.  Licensed under the Apache License, Version 2.0.  See License.txt in the project root for license information.
+
+using System;
+
+namespace Microsoft.VisualBasic
+{
+    [Embedded()]
+    [AttributeUsage(AttributeTargets.Class | AttributeTargets.Module | AttributeTargets.Assembly, Inherited = false)]
+    [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
+    [System.Runtime.CompilerServices.CompilerGenerated()]
+    internal sealed class Embedded : Attribute
+    {
+    }
+}

Pilz.UI/My Project/Resources.Designer.vb

@@ -1,63 +0,0 @@
-'------------------------------------------------------------------------------
-' <auto-generated>
-'     Dieser Code wurde von einem Tool generiert.
-'     Laufzeitversion:4.0.30319.42000
-'
-'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
-'     der Code erneut generiert wird.
-' </auto-generated>
-'------------------------------------------------------------------------------
-
-Option Strict On
-Option Explicit On
-
-Imports System
-
-Namespace My.Resources
-    
-    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
-    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
-    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
-    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
-    '''<summary>
-    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
-    '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
-    Friend Module Resources
-        
-        Private resourceMan As Global.System.Resources.ResourceManager
-        
-        Private resourceCulture As Global.System.Globalization.CultureInfo
-        
-        '''<summary>
-        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
-        '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
-        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
-            Get
-                If Object.ReferenceEquals(resourceMan, Nothing) Then
-                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Pilz.UI.Resources", GetType(Resources).Assembly)
-                    resourceMan = temp
-                End If
-                Return resourceMan
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
-        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
-        '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
-        Friend Property Culture() As Global.System.Globalization.CultureInfo
-            Get
-                Return resourceCulture
-            End Get
-            Set
-                resourceCulture = value
-            End Set
-        End Property
-    End Module
-End Namespace

Pilz.UI/My Project/Settings.Designer.vb

@@ -1,73 +0,0 @@
-'------------------------------------------------------------------------------
-' <auto-generated>
-'     Dieser Code wurde von einem Tool generiert.
-'     Laufzeitversion:4.0.30319.42000
-'
-'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
-'     der Code erneut generiert wird.
-' </auto-generated>
-'------------------------------------------------------------------------------
-
-Option Strict On
-Option Explicit On
-
-
-Namespace My
-    
-    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"),  _
-     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
-    Partial Friend NotInheritable Class MySettings
-        Inherits Global.System.Configuration.ApplicationSettingsBase
-        
-        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
-        
-#Region "Automatische My.Settings-Speicherfunktion"
-#If _MyType = "WindowsForms" Then
-    Private Shared addedHandler As Boolean
-
-    Private Shared addedHandlerLockObject As New Object
-
-    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
-        If My.Application.SaveMySettingsOnExit Then
-            My.Settings.Save()
-        End If
-    End Sub
-#End If
-#End Region
-        
-        Public Shared ReadOnly Property [Default]() As MySettings
-            Get
-                
-#If _MyType = "WindowsForms" Then
-               If Not addedHandler Then
-                    SyncLock addedHandlerLockObject
-                        If Not addedHandler Then
-                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
-                            addedHandler = True
-                        End If
-                    End SyncLock
-                End If
-#End If
-                Return defaultInstance
-            End Get
-        End Property
-    End Class
-End Namespace
-
-Namespace My
-    
-    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
-    Friend Module MySettingsProperty
-        
-        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
-        Friend ReadOnly Property Settings() As Global.Pilz.UI.My.MySettings
-            Get
-                Return Global.Pilz.UI.My.MySettings.Default
-            End Get
-        End Property
-    End Module
-End Namespace

Pilz.UI/PaintingControl/DefaultDrawMethodes.cs

@@ -0,0 +1,263 @@
+using System;
+using global::System.Drawing;
+using global::System.Drawing.Drawing2D;
+using global::System.Windows.Forms;
+using global::Pilz.Drawing;
+
+namespace Pilz.UI
+{
+
+    /// <summary>
+/// Contains static methods that are used for the standart PaintingObject Types.
+/// </summary>
+    public class DefaultDrawMethodes
+    {
+        public static void DrawText(PaintingObjectPaintEventArgs e)
+        {
+            var obj = e.PaintingObject;
+            var b = new SolidBrush(obj.TextColor);
+            var p = new PointF();
+            var rect = new Rectangle((int)e.X, (int)e.Y, (int)obj.Width, (int)obj.Height);
+            var f = StringFormat.GenericDefault;
+            f.Alignment = obj.HorizontalTextAlignment;
+            f.LineAlignment = obj.VerticalTextAlignment;
+            float zoomFactor;
+            if (obj.Parent is null)
+            {
+                zoomFactor = 1.0f;
+            }
+            else
+            {
+                zoomFactor = obj.Parent.ZoomFactor.Width;
+            }
+
+            e.Graphics.DrawString(obj.Text, new Font(obj.TextFont.FontFamily, obj.TextFont.Size * zoomFactor, obj.TextFont.Style), b, rect, f);
+        }
+
+        private static object drawPicture_NewSyncObject = new object();
+        public static void DrawPicture(PaintingObjectPaintEventArgs e)
+        {
+            var obj = e.PaintingObject;
+            Image objImg;
+            Size objImgSize;
+            RectangleF result;
+            Bitmap image;
+            SizeF zoomf;
+            bool hasNoParent = e.PaintingObject.Parent is null;
+            object syncObj;
+            if (hasNoParent)
+            {
+                zoomf = new SizeF(1f, 1f);
+                syncObj = drawPicture_NewSyncObject;
+            }
+            else
+            {
+                zoomf = e.PaintingObject.Parent.ZoomFactor;
+                syncObj = e.PaintingObject.Parent;
+            }
+
+            lock (syncObj)
+            {
+                if (obj?.Image is null)
+                    return;
+                objImg = obj.Image;
+                objImgSize = objImg.Size;
+            }
+
+            image = (Bitmap)obj.BufferedImage;
+            result = CalculateImageResolution(obj, objImgSize, zoomf);
+            if (obj.ImageProperties.Rotate == 90 || obj.ImageProperties.Rotate == 270)
+            {
+                result = CalculateImageResolution(obj, new SizeF(objImgSize.Height, objImgSize.Width), zoomf);
+            }
+
+            if (image is null)
+            {
+                bool needRescaleImageBecauseRot = false;
+                image = DrawToNewImage((Bitmap)objImg, result.Size);
+                switch (obj.ImageProperties.Rotate)
+                {
+                    case 90:
+                        {
+                            image.RotateFlip(RotateFlipType.Rotate90FlipNone);
+                            needRescaleImageBecauseRot = true;
+                            break;
+                        }
+
+                    case 180:
+                        {
+                            image.RotateFlip(RotateFlipType.Rotate180FlipNone);
+                            break;
+                        }
+
+                    case 270:
+                        {
+                            image.RotateFlip(RotateFlipType.Rotate270FlipNone);
+                            needRescaleImageBecauseRot = true;
+                            break;
+                        }
+                }
+
+                if (obj.ImageProperties.FlipX)
+                {
+                    image.RotateFlip(RotateFlipType.RotateNoneFlipX);
+                }
+
+                if (obj.ImageProperties.FlipY)
+                {
+                    image.RotateFlip(RotateFlipType.RotateNoneFlipY);
+                }
+
+                if (needRescaleImageBecauseRot)
+                {
+                    result = CalculateImageResolution(obj, new SizeF(objImgSize.Height, objImgSize.Width), zoomf);
+                    image = DrawToNewImage(image, result.Size);
+                }
+
+                obj.BufferedImage = image;
+            }
+
+            if (image is object)
+            {
+                lock (syncObj)
+                    e.Graphics.DrawImageUnscaled(image, new Rectangle(new Point((int)(obj.Location.X + result.Location.X - e.Offset.X), (int)(obj.Location.Y + result.Location.Y - e.Offset.Y)), result.Size.ToSize()));
+            }
+        }
+
+        private static Bitmap DrawToNewImage(Bitmap image, SizeF newSize)
+        {
+            var bmp = new Bitmap((int)(newSize.Width < 0f ? newSize.Width * -1 : newSize.Width), (int)(newSize.Height < 0f ? newSize.Height * -1 : newSize.Height));
+            var gimage = Graphics.FromImage(bmp);
+            gimage.SmoothingMode = SmoothingMode.HighQuality;
+            gimage.PixelOffsetMode = PixelOffsetMode.HighQuality;
+            gimage.PageUnit = GraphicsUnit.Pixel;
+            gimage.InterpolationMode = InterpolationMode.HighQualityBicubic;
+            gimage.DrawImage(image, new RectangleF(PointF.Empty, newSize));
+            gimage.Dispose();
+            return bmp;
+        }
+
+        public static void DrawLine(PaintingObjectPaintEventArgs e)
+        {
+            var obj = e.PaintingObject;
+            var p2 = new Pen(obj.OutlineColor, obj.OutlineThicknes) { DashStyle = obj.OutlineDashStyle };
+            p2.Alignment = PenAlignment.Center;
+            var no = new PointF(e.X, e.Y);
+            e.Graphics.DrawLine(p2, no, no + obj.Size);
+        }
+
+        private static RectangleF CalculateImageResolution(PaintingObject obj, SizeF imageSize, SizeF zoom)
+        {
+            var result = new RectangleF();
+            var objrect = new RectangleF(obj.Location, obj.Size);
+            var size = new SizeF(imageSize.Width * zoom.Width, imageSize.Height * zoom.Height);
+            var clientRectangle = objrect;
+            float val = clientRectangle.Width / size.Width;
+            clientRectangle = objrect;
+            float num = Math.Min(val, clientRectangle.Height / size.Height);
+            result.Width = (int)Math.Truncate(size.Width * num);
+            result.Height = (int)Math.Truncate(size.Height * num);
+            clientRectangle = objrect;
+            result.X = (long)(clientRectangle.Width - result.Width) / 2L;
+            clientRectangle = objrect;
+            result.Y = (long)(clientRectangle.Height - result.Height) / 2L;
+            return result;
+        }
+
+        public static void DrawTriangle(PaintingObjectPaintEventArgs e)
+        {
+            var obj = e.PaintingObject;
+            var p1 = new Point((int)(obj.Size.Width / 2f + e.X), (int)e.Y);
+            var p2 = new Point((int)e.X, (int)(e.Y + obj.Size.Height));
+            var p3 = new Point((int)(e.X + obj.Size.Width), (int)(e.Y + obj.Size.Height));
+            if (obj.EnableFill)
+            {
+                var b = new SolidBrush(obj.FillColor);
+                e.Graphics.FillPolygon(b, new[] { p1, p2, p3 });
+            }
+
+            if (obj.EnableOutline)
+            {
+                float lw = obj.OutlineThicknes;
+                var p = new Pen(obj.OutlineColor, obj.OutlineThicknes) { DashStyle = obj.OutlineDashStyle, Alignment = PenAlignment.Inset };
+                e.Graphics.DrawPolygon(p, new[] { p1, p2, p3 });
+            }
+        }
+
+        public static void DrawRectangle(PaintingObjectPaintEventArgs e)
+        {
+            var obj = e.PaintingObject;
+            float hol = obj.OutlineThicknes / 2f;
+            if (obj.EnableFill)
+            {
+                var b = new SolidBrush(obj.FillColor);
+                var rect = obj.EnableOutline ? new Rectangle((int)(e.X + hol), (int)(e.Y + hol), (int)(obj.Size.Width - hol * 2f), (int)(obj.Size.Height - hol * 2f)) : new Rectangle((int)e.X, (int)e.Y, (int)obj.Size.Width, (int)obj.Size.Height);
+                e.Graphics.FillRectangle(b, rect);
+            }
+
+            if (obj.EnableOutline)
+            {
+                var p = new Pen(obj.OutlineColor, obj.OutlineThicknes) { DashStyle = obj.OutlineDashStyle, Alignment = PenAlignment.Inset };
+                var rect = new Rectangle((int)e.X, (int)e.Y, (int)obj.Size.Width, (int)obj.Size.Height);
+                e.Graphics.DrawRectangle(p, rect);
+            }
+        }
+
+        public static void DrawEllipse(PaintingObjectPaintEventArgs e)
+        {
+            var obj = e.PaintingObject;
+            if (obj.EnableFill)
+            {
+                var b = new SolidBrush(obj.FillColor);
+                var rect = new Rectangle((int)e.X, (int)e.Y, (int)obj.Size.Width, (int)obj.Size.Height);
+                e.Graphics.FillEllipse(b, rect);
+            }
+
+            if (obj.EnableOutline)
+            {
+                var p = new Pen(obj.OutlineColor, obj.OutlineThicknes) { DashStyle = obj.OutlineDashStyle, Alignment = PenAlignment.Inset };
+                var rect = new Rectangle((int)e.X, (int)e.Y, (int)obj.Size.Width, (int)obj.Size.Height);
+                e.Graphics.DrawEllipse(p, rect);
+            }
+        }
+
+        public static void DrawSelection(PaintingObjectPaintEventArgs e)
+        {
+            var obj = e.PaintingObject;
+            float lw = 2.5f;
+            float hlw = lw / 2f;
+            float hlwphol = hlw; // + hol
+            float hlwpholm2 = hlwphol * 2f;
+            var p = new Pen(Color.CornflowerBlue, lw) { DashStyle = obj.SelectionDashStyle, Alignment = PenAlignment.Outset };
+            var rect = new Rectangle((int)(e.X - hlwphol), (int)(e.Y - hlwphol), (int)(obj.Size.Width + hlwpholm2), (int)(obj.Size.Height + hlwpholm2));
+            e.Graphics.DrawRectangle(p, rect);
+        }
+
+        public static void DrawGrid(PaintEventArgs e, PaintingControl pc, PointF offset)
+        {
+            var p = new Pen(pc.GridColor, 0.5f);
+            int curX = (int)(pc.GridChunkSize.Width * pc.ZoomFactor.Width - offset.X);
+            while (curX < pc.Width)
+            {
+                e.Graphics.DrawLine(p, curX, -offset.Y, curX, pc.Height);
+                curX = (int)(curX + pc.GridChunkSize.Width * pc.ZoomFactor.Width);
+            }
+
+            int curY = (int)(pc.GridChunkSize.Height * pc.ZoomFactor.Height - offset.Y);
+            while (curY < pc.Height)
+            {
+                e.Graphics.DrawLine(p, -offset.X, curY, pc.Width, curY);
+                curY = (int)(curY + pc.GridChunkSize.Height * pc.ZoomFactor.Height);
+            }
+        }
+
+        public static void DrawAreaSelection(PaintEventArgs e, PaintingControl pc, PointF startMousePos, PointF lastMousePos)
+        {
+            var rectToDraw = HelpfulDrawingFunctions.GetRectangle(startMousePos, lastMousePos);
+            var p = new Pen(pc.AreaSelectionColor);
+            p.DashStyle = startMousePos.X >= lastMousePos.X ? DashStyle.DashDot : DashStyle.Solid;
+            p.Width = 3f;
+            e.Graphics.DrawRectangle(p, rectToDraw.X, rectToDraw.Y, rectToDraw.Width, rectToDraw.Height);
+        }
+    }
+}

Pilz.UI/PaintingControl/DefaultDrawMethodes.vb

@@ -1,233 +0,0 @@
-Imports System.Drawing
-Imports System.Drawing.Drawing2D
-Imports System.Windows.Forms
-Imports Pilz.Drawing
-
-''' <summary>
-''' Contains static methods that are used for the standart PaintingObject Types.
-''' </summary>
-Public Class DefaultDrawMethodes
-
-    Public Shared Sub DrawText(e As PaintingObjectPaintEventArgs)
-        Dim obj As PaintingObject = e.PaintingObject
-        Dim b As New SolidBrush(obj.TextColor)
-        Dim p As New PointF
-        Dim rect As New Rectangle(e.X, e.Y, obj.Width, obj.Height)
-
-        Dim f As StringFormat = StringFormat.GenericDefault
-        f.Alignment = obj.HorizontalTextAlignment
-        f.LineAlignment = obj.VerticalTextAlignment
-
-        Dim zoomFactor As Single
-        If obj.Parent Is Nothing Then
-            zoomFactor = 1.0!
-        Else
-            zoomFactor = obj.Parent.ZoomFactor.Width
-        End If
-
-        e.Graphics.DrawString(obj.Text, New Font(obj.TextFont.FontFamily, obj.TextFont.Size * zoomFactor, obj.TextFont.Style), b, rect, f)
-    End Sub
-
-    Public Shared Sub DrawPicture(e As PaintingObjectPaintEventArgs)
-        Dim obj As PaintingObject = e.PaintingObject
-        Dim objImg As Image
-        Dim objImgSize As Size
-        Dim result As RectangleF
-        Dim image As Bitmap
-        Dim zoomf As SizeF
-        Dim hasNoParent As Boolean = e.PaintingObject.Parent Is Nothing
-        Dim syncObj As Object
-
-        If hasNoParent Then
-            zoomf = New SizeF(1, 1)
-            Static newSyncObj As New Object
-            syncObj = newSyncObj
-        Else
-            zoomf = e.PaintingObject.Parent.ZoomFactor
-            syncObj = e.PaintingObject.Parent
-        End If
-
-        SyncLock syncObj
-            If obj?.Image Is Nothing Then Return
-            objImg = obj.Image
-            objImgSize = objImg.Size
-        End SyncLock
-
-        image = obj.BufferedImage
-        result = CalculateImageResolution(obj, objImgSize, zoomf)
-
-        If obj.ImageProperties.Rotate = 90 OrElse obj.ImageProperties.Rotate = 270 Then
-            result = CalculateImageResolution(obj, New SizeF(objImgSize.Height, objImgSize.Width), zoomf)
-        End If
-
-        If image Is Nothing Then
-            Dim needRescaleImageBecauseRot As Boolean = False
-
-            image = DrawToNewImage(objImg, result.Size)
-
-            Select Case obj.ImageProperties.Rotate
-                Case 90
-                    image.RotateFlip(RotateFlipType.Rotate90FlipNone)
-                    needRescaleImageBecauseRot = True
-                Case 180
-                    image.RotateFlip(RotateFlipType.Rotate180FlipNone)
-                Case 270
-                    image.RotateFlip(RotateFlipType.Rotate270FlipNone)
-                    needRescaleImageBecauseRot = True
-            End Select
-            If obj.ImageProperties.FlipX Then
-                image.RotateFlip(RotateFlipType.RotateNoneFlipX)
-            End If
-            If obj.ImageProperties.FlipY Then
-                image.RotateFlip(RotateFlipType.RotateNoneFlipY)
-            End If
-
-            If needRescaleImageBecauseRot Then
-                result = CalculateImageResolution(obj, New SizeF(objImgSize.Height, objImgSize.Width), zoomf)
-                image = DrawToNewImage(image, result.Size)
-            End If
-
-            obj.BufferedImage = image
-        End If
-
-        If image IsNot Nothing Then
-            SyncLock syncObj
-                e.Graphics.DrawImageUnscaled(image, New Rectangle(New Point(obj.Location.X + result.Location.X - e.Offset.X, obj.Location.Y + result.Location.Y - e.Offset.Y), result.Size.ToSize))
-            End SyncLock
-        End If
-    End Sub
-
-    Private Shared Function DrawToNewImage(image As Bitmap, newSize As SizeF) As Bitmap
-        Dim bmp As New Bitmap(CInt(If(newSize.Width < 0, newSize.Width * -1, newSize.Width)),
-                              CInt(If(newSize.Height < 0, newSize.Height * -1, newSize.Height)))
-        Dim gimage As Graphics = Graphics.FromImage(bmp)
-        gimage.SmoothingMode = SmoothingMode.HighQuality
-        gimage.PixelOffsetMode = PixelOffsetMode.HighQuality
-        gimage.PageUnit = GraphicsUnit.Pixel
-        gimage.InterpolationMode = InterpolationMode.HighQualityBicubic
-        gimage.DrawImage(image, New RectangleF(PointF.Empty, newSize))
-        gimage.Dispose()
-        Return bmp
-    End Function
-
-    Public Shared Sub DrawLine(e As PaintingObjectPaintEventArgs)
-        Dim obj As PaintingObject = e.PaintingObject
-        Dim p2 As New Pen(obj.OutlineColor, obj.OutlineThicknes) With {.DashStyle = obj.OutlineDashStyle}
-        p2.Alignment = PenAlignment.Center
-        Dim no As PointF = New PointF(e.X, e.Y)
-        e.Graphics.DrawLine(p2, no, no + obj.Size)
-    End Sub
-
-    Private Shared Function CalculateImageResolution(obj As PaintingObject, imageSize As SizeF, zoom As SizeF) As RectangleF
-        Dim result As New RectangleF
-        Dim objrect As New RectangleF(obj.Location, obj.Size)
-        Dim size As SizeF = New SizeF(imageSize.Width * zoom.Width, imageSize.Height * zoom.Height)
-        Dim clientRectangle As RectangleF = objrect
-        Dim val As Single = clientRectangle.Width / size.Width
-
-        clientRectangle = objrect
-        Dim num As Single = Math.Min(val, clientRectangle.Height / size.Height)
-
-        result.Width = CInt(Math.Truncate(size.Width * num))
-        result.Height = CInt(Math.Truncate(size.Height * num))
-
-        clientRectangle = objrect
-        result.X = (clientRectangle.Width - result.Width) \ 2
-
-        clientRectangle = objrect
-        result.Y = (clientRectangle.Height - result.Height) \ 2
-
-        Return result
-    End Function
-
-    Public Shared Sub DrawTriangle(e As PaintingObjectPaintEventArgs)
-        Dim obj As PaintingObject = e.PaintingObject
-
-        Dim p1 As New Point(obj.Size.Width / 2 + e.X, e.Y)
-        Dim p2 As New Point(e.X, e.Y + obj.Size.Height)
-        Dim p3 As New Point(e.X + obj.Size.Width, e.Y + obj.Size.Height)
-
-        If obj.EnableFill Then
-            Dim b As New SolidBrush(obj.FillColor)
-            e.Graphics.FillPolygon(b, {p1, p2, p3})
-        End If
-
-        If obj.EnableOutline Then
-            Dim lw As Single = obj.OutlineThicknes
-            Dim p As New Pen(obj.OutlineColor, obj.OutlineThicknes) With {.DashStyle = obj.OutlineDashStyle, .Alignment = PenAlignment.Inset}
-            e.Graphics.DrawPolygon(p, {p1, p2, p3})
-        End If
-    End Sub
-
-    Public Shared Sub DrawRectangle(e As PaintingObjectPaintEventArgs)
-        Dim obj As PaintingObject = e.PaintingObject
-        Dim hol As Single = obj.OutlineThicknes / 2
-
-        If obj.EnableFill Then
-            Dim b As New SolidBrush(obj.FillColor)
-            Dim rect As Rectangle = If(obj.EnableOutline,
-                New Rectangle(e.X + hol, e.Y + hol, obj.Size.Width - hol * 2, obj.Size.Height - hol * 2),
-                New Rectangle(e.X, e.Y, obj.Size.Width, obj.Size.Height))
-            e.Graphics.FillRectangle(b, rect)
-        End If
-
-        If obj.EnableOutline Then
-            Dim p As New Pen(obj.OutlineColor, obj.OutlineThicknes) With {.DashStyle = obj.OutlineDashStyle, .Alignment = PenAlignment.Inset}
-            Dim rect As New Rectangle(e.X, e.Y, obj.Size.Width, obj.Size.Height)
-            e.Graphics.DrawRectangle(p, rect)
-        End If
-    End Sub
-
-    Public Shared Sub DrawEllipse(e As PaintingObjectPaintEventArgs)
-        Dim obj As PaintingObject = e.PaintingObject
-
-        If obj.EnableFill Then
-            Dim b As New SolidBrush(obj.FillColor)
-            Dim rect As Rectangle = New Rectangle(e.X, e.Y, obj.Size.Width, obj.Size.Height)
-            e.Graphics.FillEllipse(b, rect)
-        End If
-
-        If obj.EnableOutline Then
-            Dim p As New Pen(obj.OutlineColor, obj.OutlineThicknes) With {.DashStyle = obj.OutlineDashStyle, .Alignment = PenAlignment.Inset}
-            Dim rect As New Rectangle(e.X, e.Y, obj.Size.Width, obj.Size.Height)
-            e.Graphics.DrawEllipse(p, rect)
-        End If
-    End Sub
-
-    Public Shared Sub DrawSelection(e As PaintingObjectPaintEventArgs)
-        Dim obj As PaintingObject = e.PaintingObject
-        Dim lw As Single = 2.5!
-        Dim hlw As Single = lw / 2
-        Dim hlwphol As Single = hlw '+ hol
-        Dim hlwpholm2 As Single = hlwphol * 2
-
-        Dim p As New Pen(Color.CornflowerBlue, lw) With {.DashStyle = obj.SelectionDashStyle, .Alignment = PenAlignment.Outset}
-        Dim rect As New Rectangle(e.X - hlwphol, e.Y - hlwphol, obj.Size.Width + hlwpholm2, obj.Size.Height + hlwpholm2)
-        e.Graphics.DrawRectangle(p, rect)
-    End Sub
-
-    Public Shared Sub DrawGrid(e As PaintEventArgs, pc As PaintingControl, offset As PointF)
-        Dim p As New Pen(pc.GridColor, 0.5)
-
-        Dim curX As Integer = pc.GridChunkSize.Width * pc.ZoomFactor.Width - offset.X
-        Do While curX < pc.Width
-            e.Graphics.DrawLine(p, curX, -offset.Y, curX, pc.Height)
-            curX += (pc.GridChunkSize.Width * pc.ZoomFactor.Width)
-        Loop
-
-        Dim curY As Integer = pc.GridChunkSize.Height * pc.ZoomFactor.Height - offset.Y
-        Do While curY < pc.Height
-            e.Graphics.DrawLine(p, -offset.X, curY, pc.Width, curY)
-            curY += (pc.GridChunkSize.Height * pc.ZoomFactor.Height)
-        Loop
-    End Sub
-
-    Public Shared Sub DrawAreaSelection(e As PaintEventArgs, pc As PaintingControl, startMousePos As PointF, lastMousePos As PointF)
-        Dim rectToDraw As RectangleF = HelpfulDrawingFunctions.GetRectangle(startMousePos, lastMousePos)
-        Dim p As New Pen(pc.AreaSelectionColor)
-        p.DashStyle = If(startMousePos.X >= lastMousePos.X, DashStyle.DashDot, DashStyle.Solid)
-        p.Width = 3
-        e.Graphics.DrawRectangle(p, rectToDraw.X, rectToDraw.Y, rectToDraw.Width, rectToDraw.Height)
-    End Sub
-
-End Class

Pilz.UI/PaintingControl/EventArgs/PaintingObjectEventArgs.cs

@@ -0,0 +1,14 @@
+using System;
+
+namespace Pilz.UI
+{
+    public class PaintingObjectEventArgs : EventArgs
+    {
+        public PaintingObject[] PaintingObjects { get; private set; } = null;
+
+        internal PaintingObjectEventArgs(PaintingObject[] paintingObjects)
+        {
+            PaintingObjects = paintingObjects;
+        }
+    }
+}

Pilz.UI/PaintingControl/EventArgs/PaintingObjectEventArgs.vb

@@ -1,16 +0,0 @@
-Imports System.Drawing
-Imports System.IO
-Imports System.Windows.Forms
-Imports Newtonsoft.Json
-Imports Newtonsoft.Json.Linq
-
-Public Class PaintingObjectEventArgs
-    Inherits EventArgs
-
-    Public ReadOnly Property PaintingObjects As PaintingObject() = Nothing
-
-    Friend Sub New(paintingObjects As PaintingObject())
-        _PaintingObjects = paintingObjects
-    End Sub
-
-End Class

Pilz.UI/PaintingControl/EventArgs/PaintingObjectPaintEventArgs.cs

@@ -0,0 +1,86 @@
+using System;
+using global::System.Drawing;
+
+namespace Pilz.UI
+{
+    public class PaintingObjectPaintEventArgs : EventArgs
+    {
+
+        /// <summary>
+    /// The Painting Object to draw.
+    /// </summary>
+    /// <returns></returns>
+        public PaintingObject PaintingObject { get; private set; }
+
+        /// <summary>
+    /// The current offset of the page on the screen.
+    /// </summary>
+    /// <returns></returns>
+        public PointF Offset { get; private set; }
+
+        /// <summary>
+    /// The Grpahics from the parent PaintingControl.
+    /// </summary>
+    /// <returns></returns>
+        public Graphics Graphics { get; private set; }
+
+        /// <summary>
+    /// The position of the PaintingObject on Screen.
+    /// </summary>
+    /// <returns></returns>
+        public PointF Location
+        {
+            get
+            {
+                return new PointF(X, Y);
+            }
+        }
+
+        /// <summary>
+    /// The X position of the PaintingObject on Screen.
+    /// </summary>
+    /// <returns></returns>
+        public float X
+        {
+            get
+            {
+                return PaintingObject.X - Offset.X;
+            }
+        }
+
+        /// <summary>
+    /// The Y position of the PaintingObject on Screen.
+    /// </summary>
+    /// <returns></returns>
+        public float Y
+        {
+            get
+            {
+                return PaintingObject.Y - Offset.Y;
+            }
+        }
+
+        /// <summary>
+    /// The rectangle of the PaintingObject on Screen.
+    /// </summary>
+    /// <returns></returns>
+        public RectangleF Rectangle
+        {
+            get
+            {
+                return new RectangleF(X, Y, PaintingObject.Width, PaintingObject.Height);
+            }
+        }
+
+        internal PaintingObjectPaintEventArgs(PaintingObject obj, Graphics g) : this(obj, g, obj.Parent.Offset)
+        {
+        }
+
+        internal PaintingObjectPaintEventArgs(PaintingObject obj, Graphics g, PointF offset)
+        {
+            PaintingObject = obj;
+            Offset = offset;
+            Graphics = g;
+        }
+    }
+}

Pilz.UI/PaintingControl/EventArgs/PaintingObjectPaintEventArgs.vb

@@ -1,78 +0,0 @@
-Imports System.Drawing
-Imports System.IO
-Imports System.Windows.Forms
-Imports Newtonsoft.Json
-Imports Newtonsoft.Json.Linq
-
-Public Class PaintingObjectPaintEventArgs
-    Inherits EventArgs
-
-    ''' <summary>
-    ''' The Painting Object to draw.
-    ''' </summary>
-    ''' <returns></returns>
-    Public ReadOnly Property PaintingObject As PaintingObject
-
-    ''' <summary>
-    ''' The current offset of the page on the screen.
-    ''' </summary>
-    ''' <returns></returns>
-    Public ReadOnly Property Offset As PointF
-
-    ''' <summary>
-    ''' The Grpahics from the parent PaintingControl.
-    ''' </summary>
-    ''' <returns></returns>
-    Public ReadOnly Property Graphics As Graphics
-
-    ''' <summary>
-    ''' The position of the PaintingObject on Screen.
-    ''' </summary>
-    ''' <returns></returns>
-    Public ReadOnly Property Location As PointF
-        Get
-            Return New PointF(X, Y)
-        End Get
-    End Property
-
-    ''' <summary>
-    ''' The X position of the PaintingObject on Screen.
-    ''' </summary>
-    ''' <returns></returns>
-    Public ReadOnly Property X As Single
-        Get
-            Return PaintingObject.X - Offset.X
-        End Get
-    End Property
-
-    ''' <summary>
-    ''' The Y position of the PaintingObject on Screen.
-    ''' </summary>
-    ''' <returns></returns>
-    Public ReadOnly Property Y As Single
-        Get
-            Return PaintingObject.Y - Offset.Y
-        End Get
-    End Property
-
-    ''' <summary>
-    ''' The rectangle of the PaintingObject on Screen.
-    ''' </summary>
-    ''' <returns></returns>
-    Public ReadOnly Property Rectangle As RectangleF
-        Get
-            Return New RectangleF(X, Y, PaintingObject.Width, PaintingObject.Height)
-        End Get
-    End Property
-
-    Friend Sub New(obj As PaintingObject, g As Graphics)
-        Me.New(obj, g, obj.Parent.Offset)
-    End Sub
-
-    Friend Sub New(obj As PaintingObject, g As Graphics, offset As PointF)
-        PaintingObject = obj
-        Me.Offset = offset
-        Graphics = g
-    End Sub
-
-End Class

Pilz.UI/PaintingControl/IPaintingObjectContainer.cs

@@ -0,0 +1,7 @@
+
+namespace Pilz.UI
+{
+    public interface IPaintingObjectContainer
+    {
+    }
+}

Pilz.UI/PaintingControl/IPaintingObjectContainer.vb

@@ -1,5 +0,0 @@
-Imports System.Drawing
-
-Public Interface IPaintingObjectContainer
-
-End Interface

Pilz.UI/PaintingControl/ImageProperties.cs

@@ -0,0 +1,10 @@
+
+namespace Pilz.UI
+{
+    public class PaintingObjectImageProperties
+    {
+        public bool FlipY { get; set; } = false;
+        public bool FlipX { get; set; } = false;
+        public ushort Rotate { get; set; } = 0;
+    }
+}

Pilz.UI/PaintingControl/ImageProperties.vb

@@ -1,5 +0,0 @@
-Public Class PaintingObjectImageProperties
-    Public Property FlipY As Boolean = False
-    Public Property FlipX As Boolean = False
-    Public Property Rotate As UShort = 0
-End Class

Pilz.UI/PaintingControl/PaintingControl.cs

@@ -0,0 +1,833 @@
+using System;
+using System.Collections;
+using System.Collections.Generic;
+using global::System.ComponentModel;
+using System.Data;
+using global::System.Drawing;
+using global::System.Drawing.Drawing2D;
+using System.Linq;
+using global::System.Windows.Forms;
+using Microsoft.VisualBasic.CompilerServices;
+using global::Pilz.Drawing;
+
+namespace Pilz.UI
+{
+    public class PaintingControl : UserControl, IPaintingObjectContainer
+    {
+        public PaintingControl()
+        {
+            PaintingObjects = new PaintingObjectList(this);
+            this.KeyDown += CheckKeyDown;
+            this.KeyUp += CheckKeyDown;
+            this.MouseClick += CheckMouseClick;
+            this.MouseDown += CheckMouseDown;
+            this.MouseUp += CheckMouseUp;
+            this.MouseMove += CheckMouseMove;
+            this.PaintingObjectAdded += PaintingControl_PaintingObjectAdded;
+            this.PaintingObjectRemoved += PaintingControl_PaintingObjectAdded;
+            this.MouseWheel += CheckMouseWheel;
+            // SetStyle(ControlStyles.Opaque, True) 'For real transparency
+            DoubleBuffered = true;
+        }
+
+        private PaintingObject curObjMouseDown = null;
+        private Color bgColor = Color.White;
+        private Point startMousePos = default;
+        private Point lastMousePos = default;
+        private int lastHashCode = 0;
+        private Point calcOffset_MouseOnTab = Point.Empty;
+        private bool calcOffset_IsActive = false;
+        private PointF calcOffset_LastOffset = PointF.Empty;
+
+        private new Color ForeColor { get; set; }
+        private new Font Font { get; set; }
+        private new string Text { get; set; }
+        public PointF Offset { get; set; } = PointF.Empty;
+        public PaintingObjectList PaintingObjects { get; private set; }
+        // Public Property EnableRealTransparency As Boolean = False
+        public bool VisibleForMouseEvents { get; set; } = true;
+        public bool AutoAreaSelection { get; set; } = true;
+        public bool AutoSingleSelection { get; set; } = true;
+        public bool AutoMultiselection { get; set; } = true;
+        public bool AutoRemoveSelection { get; set; } = true;
+        public DashStyle AreaSelectionDashStyle { get; set; } = DashStyle.DashDot;
+        public Color AreaSelectionColor { get; set; } = Color.CornflowerBlue;
+        public bool AutoMoveObjects { get; set; } = true;
+
+        private bool _IsAreaSelecting = false;
+
+        public bool IsMovingObjects { get; private set; } = false;
+        public bool GridEnabled { get; set; } = true;
+        public bool GridVisible { get; set; } = false;
+        public Size GridChunkSize { get; set; } = new Size(20, 20);
+        public Color GridColor { get; set; } = Color.LightGray;
+        public DelegateDrawPaintingControlGridMethode DrawGridMethode { get; set; } = DefaultDrawMethodes.DrawGrid;
+        public DelegateDrawPaintingControlAreaSelectionMethode DrawAreaSelectionMethode { get; set; } = DefaultDrawMethodes.DrawAreaSelection;
+
+        private SizeF _ZoomFactor = new SizeF(1f, 1f);
+        private int _stopDrawing = -1;
+        private Image bufferedImg = null;
+        private bool pressedShift = false;
+        private bool pressedControl = false;
+        private bool pressedAlt = false;
+
+        // Friend WithEvents HScrollBarAdv1 As DevComponents.DotNetBar.ScrollBar.HScrollBarAdv
+        // Friend WithEvents VScrollBarAdv1 As DevComponents.DotNetBar.VScrollBarAdv
+
+        private Dictionary<PaintingObject, PointF> savedPos = new Dictionary<PaintingObject, PointF>();
+
+        public event SelectionChangedEventHandler SelectionChanged;
+
+        public delegate void SelectionChangedEventHandler(object sender, PaintingObjectEventArgs e);
+
+        public event PaintingObjectAddedEventHandler PaintingObjectAdded;
+
+        public delegate void PaintingObjectAddedEventHandler(object sender, PaintingObjectEventArgs e);
+
+        public event PaintingObjectRemovedEventHandler PaintingObjectRemoved;
+
+        public delegate void PaintingObjectRemovedEventHandler(object sender, PaintingObjectEventArgs e);
+
+        public event AfterScrollingDoneEventHandler AfterScrollingDone;
+
+        public delegate void AfterScrollingDoneEventHandler(object sender, EventArgs e);
+
+        public event ZoomFactorChangedEventHandler ZoomFactorChanged;
+
+        public delegate void ZoomFactorChangedEventHandler(object sender, EventArgs e);
+
+        public PaintingObject[] SelectedObjects
+        {
+            get
+            {
+                var objs = new List<PaintingObject>();
+                foreach (PaintingObject obj in PaintingObjects)
+                {
+                    if (obj.Selected)
+                    {
+                        objs.Add(obj);
+                    }
+                }
+
+                return objs.ToArray();
+            }
+        }
+
+        public bool IsLayoutSuspended
+        {
+            get
+            {
+                return Conversions.ToBoolean(Operators.ConditionalCompareObjectNotEqual(GetType().GetField("layoutSuspendCount", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic).GetValue(this), 0, false));
+            }
+        }
+
+        public bool StopDrawing
+        {
+            get
+            {
+                return _stopDrawing > -1;
+            }
+        }
+
+        public override Color BackColor
+        {
+            get
+            {
+                return bgColor;
+            }
+
+            set
+            {
+                bgColor = value;
+                base.BackColor = value;
+                // If value <> Color.Transparent Then
+                // MyBase.BackColor = value
+                // End If
+            }
+        }
+
+        public bool IsAreaSelecting
+        {
+            get
+            {
+                return _IsAreaSelecting && startMousePos != lastMousePos;
+            }
+        }
+
+        public SizeF ZoomFactor
+        {
+            get
+            {
+                return _ZoomFactor;
+            }
+
+            set
+            {
+                if (_ZoomFactor != value)
+                {
+                    _ZoomFactor = value;
+                    ResetAllBufferedImages();
+                    ZoomFactorChanged?.Invoke(this, new EventArgs());
+                }
+            }
+        }
+
+        private void ResetAllBufferedImages()
+        {
+            foreach (PaintingObject ob in PaintingObjects)
+                ob.ResetImageBuffer();
+            Refresh();
+        }
+
+        private void CheckKeyDown(object sender, KeyEventArgs e)
+        {
+            pressedShift = e.Shift;
+            pressedControl = e.Control;
+            pressedAlt = e.Alt;
+        }
+
+        internal RectangleF AreaSelectionRectangle
+        {
+            get
+            {
+                return HelpfulDrawingFunctions.GetRectangle(startMousePos, lastMousePos);
+            }
+        }
+
+        private void CheckMouseClick(object sender, MouseEventArgs e)
+        {
+            foreach (PaintingObject obj in GetObjects(new Point((int)(e.X + Offset.X), (int)(e.Y + Offset.Y))))
+            {
+                if (!obj.MouseTransparency)
+                {
+                    obj.RaiseMouseClick(GetMouseEventArgs(e, obj));
+                }
+            }
+        }
+
+        private void CheckMouseDown(object sender, MouseEventArgs e)
+        {
+            lastMousePos = new Point((int)(e.X + Offset.X), (int)(e.Y + Offset.Y));
+            curObjMouseDown = GetObjects(lastMousePos).Where(n => !n.MouseTransparency).LastOrDefault();
+            curObjMouseDown?.RaiseMouseDown(GetMouseEventArgs(e, curObjMouseDown));
+            if (curObjMouseDown is null || !curObjMouseDown.Selected || pressedControl)
+            {
+                bool hasMovedObjects = false;
+                if (IsMovingObjects)
+                {
+                    foreach (PaintingObject obj in GetSelectedObjects())
+                    {
+                        if (HelpfulDrawingFunctions.IsPointInRectangle(lastMousePos, obj.Rectangle))
+                        {
+                            hasMovedObjects = true;
+                            break;
+                        }
+                    }
+                }
+
+                if (!hasMovedObjects && !_IsAreaSelecting)
+                {
+                    var selChanged = new List<PaintingObject>();
+                    if (AutoRemoveSelection && !pressedControl)
+                    {
+                        foreach (PaintingObject obj in PaintingObjects)
+                        {
+                            if (obj.Selected)
+                            {
+                                obj.SelectedDirect = false;
+                                if (!selChanged.Contains(obj))
+                                {
+                                    selChanged.Add(obj);
+                                }
+                            }
+                        }
+                    }
+
+                    if (AutoSingleSelection && curObjMouseDown is object)
+                    {
+                        var objtosel = curObjMouseDown;
+                        if (objtosel.EnableSelection)
+                        {
+                            objtosel.SelectedDirect = !objtosel.Selected;
+                            if (!selChanged.Contains(objtosel))
+                            {
+                                selChanged.Add(objtosel);
+                            }
+                            else
+                            {
+                                selChanged.Remove(objtosel);
+                            }
+                        }
+                    }
+
+                    SelectionChanged?.Invoke(this, new PaintingObjectEventArgs(selChanged.ToArray()));
+                }
+            }
+
+            if (pressedControl)
+            {
+                calcOffset_MouseOnTab = new Point(e.X, e.Y);
+                calcOffset_LastOffset = Offset;
+                calcOffset_IsActive = true;
+                Cursor = Cursors.Arrow;
+            }
+            else
+            {
+                switch (e.Button)
+                {
+                    case MouseButtons.Left:
+                        {
+                            savedPos.Clear();
+                            if (AutoMoveObjects)
+                            {
+                                SaveObjectPositions(e, GetSelectedObjects());
+                            }
+
+                            if (savedPos.Count > 0)
+                            {
+                                IsMovingObjects = true;
+                            }
+                            else if (AutoAreaSelection)
+                            {
+                                startMousePos = new Point((int)(e.X + Offset.X), (int)(e.Y + Offset.Y));
+                                lastMousePos = startMousePos; // New Point(e.X - Offset.X, e.Y - Offset.Y)
+                                _IsAreaSelecting = true;
+                            }
+
+                            break;
+                        }
+                }
+            }
+        }
+
+        public void RaiseSelectionChanged()
+        {
+            SelectionChanged?.Invoke(this, new PaintingObjectEventArgs(SelectedObjects));
+        }
+
+        private void CheckMouseUp(object sender, MouseEventArgs e)
+        {
+            if (_IsAreaSelecting)
+            {
+                _IsAreaSelecting = false;
+            }
+
+            if (IsMovingObjects)
+            {
+                IsMovingObjects = false;
+                foreach (PaintingObject obj in GetSelectedObjects())
+                    obj.RaiseMoved(new EventArgs());
+                AutoArrangeToGrid();
+            }
+
+            if (curObjMouseDown is object)
+            {
+                if (!curObjMouseDown.MouseTransparency)
+                {
+                    curObjMouseDown.RaiseMouseUp(GetMouseEventArgs(e, curObjMouseDown));
+                }
+
+                curObjMouseDown = null;
+            }
+
+            if (calcOffset_IsActive)
+            {
+                calcOffset_IsActive = false;
+                Cursor = Cursors.Default;
+                CalcNewOffset(e.Location);
+                AfterScrollingDone?.Invoke(this, new EventArgs());
+            }
+        }
+
+        private void CheckMouseMove(object sender, MouseEventArgs e)
+        {
+            if (_IsAreaSelecting || IsMovingObjects)
+            {
+                lastMousePos = new Point((int)(e.X + Offset.X), (int)(e.Y + Offset.Y));
+            }
+
+            if (_IsAreaSelecting)
+            {
+                SelectControlsInArea();
+            }
+
+            if (IsMovingObjects)
+            {
+                UpdateObjectPositions(e);
+            }
+
+            foreach (PaintingObject obj in GetObjects(new Point((int)(e.X + Offset.X), (int)(e.Y + Offset.Y))))
+            {
+                if (!obj.MouseTransparency)
+                {
+                    obj.RaiseMouseMove(GetMouseEventArgs(e, obj));
+                }
+            }
+
+            var topObj = GetObject(new Point((int)(e.X + Offset.X), (int)(e.Y + Offset.Y)), true);
+            if (topObj is object)
+            {
+                Cursor = topObj.Cursor;
+            }
+            else if (calcOffset_IsActive)
+            {
+                Cursor = Cursors.Arrow;
+            }
+            else
+            {
+                Cursor = Cursors.Default;
+            }
+
+            if (calcOffset_IsActive)
+            {
+                if (pressedControl)
+                {
+                    CalcNewOffset(e.Location);
+                }
+                else
+                {
+                    calcOffset_IsActive = false;
+                }
+            }
+
+            Refresh();
+        }
+
+        private void CalcNewOffset(Point newMousePos)
+        {
+            Offset = new PointF(calcOffset_LastOffset.X - (newMousePos.X - calcOffset_MouseOnTab.X), calcOffset_LastOffset.Y - (newMousePos.Y - calcOffset_MouseOnTab.Y));
+            if (Offset.X < 0f)
+            {
+                Offset = new PointF(0f, Offset.Y);
+            }
+
+            if (Offset.Y < 0f)
+            {
+                Offset = new PointF(Offset.X, 0f);
+            }
+        }
+
+        private PaintingObject[] GetSelectedObjects()
+        {
+            var objs = new List<PaintingObject>();
+            foreach (PaintingObject obj in PaintingObjects)
+            {
+                if (obj.Selected)
+                    objs.Add(obj);
+            }
+
+            return objs.ToArray();
+        }
+
+        private void SaveObjectPositions(MouseEventArgs e, IList objs)
+        {
+            foreach (PaintingObject obj in objs)
+            {
+                if (!savedPos.ContainsKey(obj))
+                {
+                    savedPos.Add(obj, new PointF(e.X - obj.Location.X + Offset.X, e.Y - obj.Location.Y + Offset.Y));
+                    SaveObjectPositions(e, obj.PinnedObjects);
+                }
+            }
+        }
+
+        private void UpdateObjectPositions(MouseEventArgs e)
+        {
+            UpdateObjectPositions(e, GetSelectedObjects());
+        }
+
+        private void UpdateObjectPositions(MouseEventArgs e, IList<PaintingObject> objs, List<PaintingObject> movedObjs = null)
+        {
+            if (IsResizingObjs(objs))
+                return;
+            if (movedObjs is null)
+                movedObjs = new List<PaintingObject>();
+            SuspendDrawing();
+            foreach (PaintingObject obj in objs)
+            {
+                var sp = savedPos[obj];
+                if (!movedObjs.Contains(obj))
+                {
+                    if (UpdateObjectPosition(e, obj, sp))
+                    {
+                        movedObjs.Add(obj);
+                    }
+                }
+
+                if (obj.PinnedObjects.Count > 0)
+                {
+                    UpdateObjectPositions(e, obj.PinnedObjects, movedObjs);
+                    movedObjs.AddRange(obj.PinnedObjects.ToArray());
+                }
+            }
+
+            ResumeDrawing(false);
+        }
+
+        private bool UpdateObjectPosition(MouseEventArgs e, PaintingObject obj, PointF sp)
+        {
+            bool moved = false;
+            var cancel = new CancelEventArgs(false);
+            obj.RaiseMovingBeforePositionUpdated(cancel);
+            if (!cancel.Cancel)
+            {
+                obj.Location = new Point((int)(e.X - sp.X + Offset.X), (int)(e.Y - sp.Y + Offset.Y));
+                obj.RaiseMoving(new EventArgs());
+                moved = true;
+            }
+
+            return moved;
+        }
+
+        private bool IsResizingObjs(IList<PaintingObject> objs)
+        {
+            foreach (PaintingObject obj in objs)
+            {
+                if (obj.IsResizing)
+                    return true;
+            }
+
+            return false;
+        }
+
+        private MouseEventArgs GetMouseEventArgs(MouseEventArgs e, PaintingObject obj)
+        {
+            return new MouseEventArgs(e.Button, e.Clicks, (int)(e.X - obj.X + Offset.X), (int)(e.Y - obj.Y + Offset.Y), e.Delta);
+        }
+
+        public PaintingObject GetObject(PointF p, bool UseExtRect = false)
+        {
+            PaintingObject val = null;
+            for (int i = PaintingObjects.Count - 1; i >= 0; i -= 1)
+            {
+                var obj = PaintingObjects[i];
+                if (val is null)
+                {
+                    if (UseExtRect)
+                    {
+                        if (HelpfulDrawingFunctions.IsPointInRectangle(p, obj.RectangleExtended))
+                        {
+                            val = obj;
+                        }
+                    }
+                    else if (HelpfulDrawingFunctions.IsPointInRectangle(p, obj.Rectangle))
+                    {
+                        val = obj;
+                    }
+                }
+            }
+
+            return val;
+        }
+
+        public PaintingObject[] GetObjects(Point p)
+        {
+            var objs = new List<PaintingObject>();
+            foreach (PaintingObject obj in PaintingObjects)
+            {
+                if (HelpfulDrawingFunctions.IsPointInRectangle(p, obj.RectangleExtended))
+                {
+                    objs.Add(obj);
+                }
+            }
+
+            return objs.ToArray();
+        }
+
+        public PaintingObject[] GetObjects(Point startPoint, Point endPoint)
+        {
+            return GetObjects(new Rectangle(startPoint, (Size)(endPoint - (Size)startPoint)));
+        }
+
+        public PaintingObject[] GetObjects(Rectangle rect)
+        {
+            var objs = new List<PaintingObject>();
+            foreach (PaintingObject obj in PaintingObjects)
+            {
+                var objRect = obj.Rectangle;
+                if (HelpfulDrawingFunctions.IsPointInRectangle(objRect.Location, rect) || HelpfulDrawingFunctions.IsPointInRectangle(objRect.Location + objRect.Size, rect) || HelpfulDrawingFunctions.IsPointInRectangle(new PointF(objRect.Left, objRect.Bottom), rect) || HelpfulDrawingFunctions.IsPointInRectangle(new PointF(objRect.Right, objRect.Top), rect))
+                {
+                    objs.Add(obj);
+                }
+            }
+
+            return objs.ToArray();
+        }
+
+        protected override CreateParams CreateParams
+        {
+            get
+            {
+                var cp = base.CreateParams;
+
+                // If EnableRealTransparency Then
+                // cp.ExStyle = cp.ExStyle Or &H20 'WS_EX_TRANSPARENT
+                // End If
+
+                return cp;
+            }
+        }
+
+        /// <summary>
+    /// Sorg dafür, dass Events durch dieses Control durchdringen zum Parnet-Control.
+    /// </summary>
+    /// <param name="m"></param>
+        protected override void WndProc(ref Message m)
+        {
+            const int WM_NCHITTEST = 0x84;
+            const int HTTRANSPARENT = -1;
+            if (!VisibleForMouseEvents && m.Msg == WM_NCHITTEST)
+            {
+                m.Result = (IntPtr)HTTRANSPARENT;
+            }
+            else
+            {
+                base.WndProc(ref m);
+            }
+        }
+
+        protected override void OnPaintBackground(PaintEventArgs e)
+        {
+            // Stop Drawing directly to the parent
+            SuspendLayout();
+
+            // Draw Background
+            // If Not EnableRealTransparency Then
+            base.OnPaintBackground(e);
+            // End If
+        }
+
+        protected override void OnPaint(PaintEventArgs e)
+        {
+            // Draw PaintingObjects stuff
+            if (StopDrawing)
+            {
+                e.Graphics.DrawImage(bufferedImg, Point.Empty);
+            }
+            else
+            {
+                {
+                    var withBlock = e.Graphics;
+                    withBlock.SmoothingMode = SmoothingMode.HighQuality;
+                    withBlock.PixelOffsetMode = PixelOffsetMode.HighQuality;
+                    withBlock.PageUnit = GraphicsUnit.Pixel;
+                    withBlock.InterpolationMode = InterpolationMode.HighQualityBicubic;
+                }
+
+                if (GridVisible)
+                {
+                    DrawGridMethode?.Invoke(e, this, Offset);
+                }
+
+                var baserect = new RectangleF(Offset, Size);
+                foreach (PaintingObject obj in PaintingObjects)
+                {
+                    if (obj.Visible && HelpfulDrawingFunctions.OverlapsTwoRectangles(obj.Rectangle, baserect))
+                    {
+                        obj.Draw(e, Offset);
+                    }
+                }
+
+                if (_IsAreaSelecting)
+                {
+                    DrawAreaSelectionMethode?.Invoke(e, this, new PointF(startMousePos.X - Offset.X, startMousePos.Y - Offset.Y), new PointF(lastMousePos.X - Offset.X, lastMousePos.Y - Offset.Y));
+                }
+            }
+
+            // Do default Drawing Methode
+            base.OnPaint(e);
+
+            // Start Drawing directly to the Form
+            ResumeLayout(false);
+        }
+
+        public new Graphics CreateGraphics()
+        {
+            return base.CreateGraphics();
+        }
+
+        public void PaintFullView(Graphics g)
+        {
+            foreach (PaintingObject obj in PaintingObjects)
+            {
+                if (obj.Visible)
+                {
+                    obj.Draw(g, PointF.Empty);
+                }
+            }
+        }
+
+        private SizeF CalcTextSize(PaintingObject obj)
+        {
+            return CalcTextSize(obj, Parent.CreateGraphics());
+        }
+
+        private SizeF CalcTextSize(PaintingObject obj, Graphics g)
+        {
+            return g.MeasureString(obj.Text, obj.TextFont, (int)obj.Width);
+        }
+
+        private void SelectControlsInArea()
+        {
+            var rect = HelpfulDrawingFunctions.GetRectangle(startMousePos, lastMousePos);
+            foreach (PaintingObject obj in PaintingObjects)
+                obj.Selected = startMousePos.X >= lastMousePos.X ? HelpfulDrawingFunctions.OverlapsTwoRectangles(obj.Rectangle, rect) : HelpfulDrawingFunctions.RectangleContainsRectangle(rect, obj.Rectangle);
+        }
+
+        public void ArrangeToGrid(PaintingObject obj, bool snapPinnedObjects)
+        {
+            if (snapPinnedObjects || !IsPinnedObject(obj))
+            {
+                var zoomedGridChunkSize = new SizeF(GridChunkSize.Width * ZoomFactor.Width, GridChunkSize.Height * ZoomFactor.Height);
+                int modTop = (int)(obj.Y % zoomedGridChunkSize.Height);
+                int modLeft = (int)(obj.X % zoomedGridChunkSize.Width);
+                int halfHeight = (int)(zoomedGridChunkSize.Height / 2f);
+                int halfWidth = (int)(zoomedGridChunkSize.Width / 2f);
+                void zoomLocation(PaintingObject obj2)
+                {
+                    if (modTop > halfHeight)
+                    {
+                        obj2.Y += zoomedGridChunkSize.Height - modTop;
+                    }
+                    else
+                    {
+                        obj2.Y -= modTop;
+                    }
+
+                    if (modLeft > halfWidth)
+                    {
+                        obj2.X += zoomedGridChunkSize.Width - modLeft;
+                    }
+                    else
+                    {
+                        obj2.X -= modLeft;
+                    }
+                };
+                zoomLocation(obj);
+                foreach (PaintingObject pinned in obj.PinnedObjects)
+                    zoomLocation(pinned);
+                int modH = (int)(obj.Height % zoomedGridChunkSize.Height);
+                int modW = (int)(obj.Width % zoomedGridChunkSize.Width);
+                void zoomSize(PaintingObject obj2) { if (obj2.EnableResize && !obj2.HardcodedSize) { if (modH > halfHeight) { obj2.Height += zoomedGridChunkSize.Height - modH; } else { obj2.Height -= modH; } if (modW > halfWidth) { obj2.Width += zoomedGridChunkSize.Width - modW; } else { obj2.Width -= modW; } } };
+                zoomSize(obj);
+                foreach (PaintingObject pinned in obj.PinnedObjects)
+                    zoomSize(pinned);
+            }
+        }
+
+        public bool IsPinnedObject(PaintingObject o)
+        {
+            foreach (PaintingObject obj in PaintingObjects)
+            {
+                if (obj.PinnedObjects.Contains(o))
+                {
+                    return true;
+                }
+            }
+
+            return false;
+        }
+
+        public void AutoArrangeToGrid()
+        {
+            if (GridEnabled)
+            {
+                foreach (PaintingObject obj in GetSelectedObjects())
+                {
+                    if (obj.AutoAlignToGrid)
+                    {
+                        ArrangeToGrid(obj, false);
+                    }
+                }
+
+                if (!StopDrawing)
+                    Refresh();
+            }
+        }
+
+        public SizeF GetFullSize()
+        {
+            return GetFullSize(PaintingObjects);
+        }
+
+        public static SizeF GetFullSize(IEnumerable<PaintingObject> objects)
+        {
+            float curX = 0f;
+            float curY = 0f;
+            foreach (PaintingObject po in objects)
+            {
+                float myX = po.X + po.Width;
+                if (curX < myX)
+                {
+                    curX = myX;
+                }
+
+                float myY = po.Y + po.Height;
+                if (curY < myY)
+                {
+                    curY = myY;
+                }
+            }
+
+            return new SizeF(curX + 20f, curY + 20f);
+        }
+
+        internal void RaisePaintingObjectAdded(PaintingObjectEventArgs args)
+        {
+            PaintingObjectAdded?.Invoke(this, args);
+        }
+
+        internal void RaisePaintingObjectRemoved(PaintingObjectEventArgs args)
+        {
+            PaintingObjectRemoved?.Invoke(this, args);
+        }
+
+        private void PaintingControl_PaintingObjectAdded(object sender, PaintingObjectEventArgs e)
+        {
+            // CalculateScrollValues()
+        }
+
+        private void CheckMouseWheel(object sender, MouseEventArgs e)
+        {
+            if (pressedControl)
+            {
+                float val = (float)(e.Delta / 120d / 10d);
+                ZoomFactor = new SizeF((float)Math.Max(ZoomFactor.Width + val, 0.25d), (float)Math.Max(ZoomFactor.Height + val, 0.25d));
+                Refresh();
+            }
+        }
+
+        public void SuspendDrawing()
+        {
+            if (_stopDrawing < 0)
+            {
+                // bufferedImg = New Bitmap(Width, Height)
+                // DrawToBitmap(bufferedImg, New Rectangle(0, 0, bufferedImg.Width, bufferedImg.Height))
+                Utils.DrawingControl.SuspendDrawing(this);
+            }
+
+            _stopDrawing += 1;
+        }
+
+        public void ResumeDrawing()
+        {
+            ResumeDrawing(true);
+        }
+
+        public void ResumeDrawing(bool executeRefresh)
+        {
+            if (_stopDrawing >= 0)
+            {
+                _stopDrawing -= 1;
+            }
+
+            if (_stopDrawing == -1)
+            {
+                // bufferedImg.Dispose()
+                // bufferedImg = Nothing
+                // If executeRefresh Then Refresh()
+                Utils.DrawingControl.ResumeDrawing(this, executeRefresh);
+            }
+        }
+    }
+}

Pilz.UI/PaintingControl/PaintingControl.vb

@@ -1,680 +0,0 @@
-Imports System.ComponentModel
-Imports System.Drawing
-Imports System.Drawing.Drawing2D
-Imports System.Runtime.CompilerServices
-Imports System.Windows.Forms
-Imports Pilz.Drawing
-
-Public Class PaintingControl
-    Inherits UserControl
-    Implements IPaintingObjectContainer
-
-    Private curObjMouseDown As PaintingObject = Nothing
-    Private bgColor As Color = Color.White
-    Private startMousePos As Point = Nothing
-    Private lastMousePos As Point = Nothing
-    Private lastHashCode As Integer = 0
-    Private calcOffset_MouseOnTab As Point = Point.Empty
-    Private calcOffset_IsActive As Boolean = False
-    Private calcOffset_LastOffset As PointF = PointF.Empty
-
-    Private Overloads Property ForeColor As Color
-    Private Overloads Property Font As Font
-    Private Overloads Property Text As String
-
-    Public Property Offset As PointF = PointF.Empty
-    Public ReadOnly Property PaintingObjects As New PaintingObjectList(Me)
-    'Public Property EnableRealTransparency As Boolean = False
-    Public Property VisibleForMouseEvents As Boolean = True
-    Public Property AutoAreaSelection As Boolean = True
-    Public Property AutoSingleSelection As Boolean = True
-    Public Property AutoMultiselection As Boolean = True
-    Public Property AutoRemoveSelection As Boolean = True
-    Public Property AreaSelectionDashStyle As DashStyle = DashStyle.DashDot
-    Public Property AreaSelectionColor As Color = Color.CornflowerBlue
-    Public Property AutoMoveObjects As Boolean = True
-    Private _IsAreaSelecting As Boolean = False
-    Public ReadOnly Property IsMovingObjects As Boolean = False
-    Public Property GridEnabled As Boolean = True
-    Public Property GridVisible As Boolean = False
-    Public Property GridChunkSize As New Size(20, 20)
-    Public Property GridColor As Color = Color.LightGray
-    Public Property DrawGridMethode As DelegateDrawPaintingControlGridMethode = AddressOf DefaultDrawMethodes.DrawGrid
-    Public Property DrawAreaSelectionMethode As DelegateDrawPaintingControlAreaSelectionMethode = AddressOf DefaultDrawMethodes.DrawAreaSelection
-    Private _ZoomFactor As New SizeF(1, 1)
-
-    Private _stopDrawing As Integer = -1
-    Private bufferedImg As Image = Nothing
-
-    Private pressedShift As Boolean = False
-    Private pressedControl As Boolean = False
-    Private pressedAlt As Boolean = False
-
-    'Friend WithEvents HScrollBarAdv1 As DevComponents.DotNetBar.ScrollBar.HScrollBarAdv
-    'Friend WithEvents VScrollBarAdv1 As DevComponents.DotNetBar.VScrollBarAdv
-
-    Private savedPos As New Dictionary(Of PaintingObject, PointF)
-
-    Public Event SelectionChanged(sender As Object, e As PaintingObjectEventArgs)
-    Public Event PaintingObjectAdded(sender As Object, e As PaintingObjectEventArgs)
-    Public Event PaintingObjectRemoved(sender As Object, e As PaintingObjectEventArgs)
-    Public Event AfterScrollingDone(sender As Object, e As EventArgs)
-    Public Event ZoomFactorChanged(sender As Object, e As EventArgs)
-
-    Public ReadOnly Property SelectedObjects As PaintingObject()
-        Get
-            Dim objs As New List(Of PaintingObject)
-
-            For Each obj As PaintingObject In PaintingObjects
-                If obj.Selected Then
-                    objs.Add(obj)
-                End If
-            Next
-
-            Return objs.ToArray
-        End Get
-    End Property
-
-    Public ReadOnly Property IsLayoutSuspended As Boolean
-        Get
-            Return Me.GetType.GetField("layoutSuspendCount", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic).GetValue(Me) <> 0
-        End Get
-    End Property
-
-    Public ReadOnly Property StopDrawing As Boolean
-        Get
-            Return _stopDrawing > -1
-        End Get
-    End Property
-
-    Public Overrides Property BackColor As Color
-        Get
-            Return bgColor
-        End Get
-        Set(value As Color)
-            bgColor = value
-            MyBase.BackColor = value
-            'If value <> Color.Transparent Then
-            '    MyBase.BackColor = value
-            'End If
-        End Set
-    End Property
-    Public ReadOnly Property IsAreaSelecting As Boolean
-        Get
-            Return _IsAreaSelecting AndAlso startMousePos <> lastMousePos
-        End Get
-    End Property
-    Public Property ZoomFactor As SizeF
-        Get
-            Return _ZoomFactor
-        End Get
-        Set
-            If _ZoomFactor <> Value Then
-                _ZoomFactor = Value
-                ResetAllBufferedImages()
-                RaiseEvent ZoomFactorChanged(Me, New EventArgs)
-            End If
-        End Set
-    End Property
-
-    Public Sub New()
-        'SetStyle(ControlStyles.Opaque, True) 'For real transparency
-        DoubleBuffered = True
-    End Sub
-
-    Private Sub ResetAllBufferedImages()
-        For Each ob As PaintingObject In PaintingObjects
-            ob.ResetImageBuffer()
-        Next
-        Refresh()
-    End Sub
-
-    Private Sub CheckKeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown, Me.KeyUp
-        pressedShift = e.Shift
-        pressedControl = e.Control
-        pressedAlt = e.Alt
-    End Sub
-
-    Friend ReadOnly Property AreaSelectionRectangle As RectangleF
-        Get
-            Return HelpfulDrawingFunctions.GetRectangle(startMousePos, lastMousePos)
-        End Get
-    End Property
-
-    Private Sub CheckMouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
-        For Each obj As PaintingObject In GetObjects(New Point(e.X + Offset.X, e.Y + Offset.Y))
-            If Not obj.MouseTransparency Then
-                obj.RaiseMouseClick(GetMouseEventArgs(e, obj))
-            End If
-        Next
-    End Sub
-
-    Private Sub CheckMouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
-        lastMousePos = New Point(e.X + Offset.X, e.Y + Offset.Y)
-
-        curObjMouseDown = GetObjects(lastMousePos).Where(Function(n) Not n.MouseTransparency).LastOrDefault
-        curObjMouseDown?.RaiseMouseDown(GetMouseEventArgs(e, curObjMouseDown))
-
-        If curObjMouseDown Is Nothing OrElse Not curObjMouseDown.Selected OrElse pressedControl Then
-            Dim hasMovedObjects As Boolean = False
-            If _IsMovingObjects Then
-                For Each obj As PaintingObject In GetSelectedObjects()
-                    If HelpfulDrawingFunctions.IsPointInRectangle(lastMousePos, obj.Rectangle) Then
-                        hasMovedObjects = True
-                        Exit For
-                    End If
-                Next
-            End If
-
-            If (Not hasMovedObjects) AndAlso (Not _IsAreaSelecting) Then
-                Dim selChanged As New List(Of PaintingObject)
-
-                If AutoRemoveSelection AndAlso Not pressedControl Then
-                    For Each obj As PaintingObject In PaintingObjects
-                        If obj.Selected Then
-                            obj.SelectedDirect = False
-                            If Not selChanged.Contains(obj) Then
-                                selChanged.Add(obj)
-                            End If
-                        End If
-                    Next
-                End If
-
-                If AutoSingleSelection AndAlso curObjMouseDown IsNot Nothing Then
-                    Dim objtosel As PaintingObject = curObjMouseDown
-                    If objtosel.EnableSelection Then
-                        objtosel.SelectedDirect = Not objtosel.Selected
-                        If Not selChanged.Contains(objtosel) Then
-                            selChanged.Add(objtosel)
-                        Else
-                            selChanged.Remove(objtosel)
-                        End If
-                    End If
-                End If
-
-                RaiseEvent SelectionChanged(Me, New PaintingObjectEventArgs(selChanged.ToArray))
-            End If
-        End If
-
-        If pressedControl Then
-
-            calcOffset_MouseOnTab = New Point(e.X, e.Y)
-            calcOffset_LastOffset = Offset
-            calcOffset_IsActive = True
-            Cursor = Cursors.Arrow
-
-        Else
-
-            Select Case e.Button
-                Case MouseButtons.Left
-                    savedPos.Clear()
-                    If AutoMoveObjects Then
-                        SaveObjectPositions(e, GetSelectedObjects)
-                    End If
-                    If savedPos.Count > 0 Then
-                        _IsMovingObjects = True
-                    ElseIf AutoAreaSelection Then
-                        startMousePos = New Point(e.X + Offset.X, e.Y + Offset.Y)
-                        lastMousePos = startMousePos 'New Point(e.X - Offset.X, e.Y - Offset.Y)
-                        _IsAreaSelecting = True
-                    End If
-            End Select
-
-        End If
-    End Sub
-    Public Sub RaiseSelectionChanged()
-        RaiseEvent SelectionChanged(Me, New PaintingObjectEventArgs(SelectedObjects))
-    End Sub
-    Private Sub CheckMouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp
-        If _IsAreaSelecting Then
-            _IsAreaSelecting = False
-        End If
-
-        If _IsMovingObjects Then
-            _IsMovingObjects = False
-            For Each obj As PaintingObject In GetSelectedObjects()
-                obj.RaiseMoved(New EventArgs)
-            Next
-            AutoArrangeToGrid()
-        End If
-
-        If curObjMouseDown IsNot Nothing Then
-            If Not curObjMouseDown.MouseTransparency Then
-                curObjMouseDown.RaiseMouseUp(GetMouseEventArgs(e, curObjMouseDown))
-            End If
-            curObjMouseDown = Nothing
-        End If
-
-        If calcOffset_IsActive Then
-            calcOffset_IsActive = False
-            Cursor = Cursors.Default
-            CalcNewOffset(e.Location)
-            RaiseEvent AfterScrollingDone(Me, New EventArgs)
-        End If
-    End Sub
-    Private Sub CheckMouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
-        If _IsAreaSelecting OrElse _IsMovingObjects Then
-            lastMousePos = New Point(e.X + Offset.X, e.Y + Offset.Y)
-        End If
-
-        If _IsAreaSelecting Then
-            SelectControlsInArea()
-        End If
-
-        If _IsMovingObjects Then
-            UpdateObjectPositions(e)
-        End If
-
-        For Each obj As PaintingObject In GetObjects(New Point(e.X + Offset.X, e.Y + Offset.Y))
-            If Not obj.MouseTransparency Then
-                obj.RaiseMouseMove(GetMouseEventArgs(e, obj))
-            End If
-        Next
-
-        Dim topObj As PaintingObject = GetObject(New Point(e.X + Offset.X, e.Y + Offset.Y), True)
-        If topObj IsNot Nothing Then
-            Cursor = topObj.Cursor
-        ElseIf calcOffset_IsActive Then
-            Cursor = Cursors.Arrow
-        Else
-            Cursor = Cursors.Default
-        End If
-
-        If calcOffset_IsActive Then
-            If pressedControl Then
-                CalcNewOffset(e.Location)
-            Else
-                calcOffset_IsActive = False
-            End If
-        End If
-
-        Refresh()
-    End Sub
-
-    Private Sub CalcNewOffset(newMousePos As Point)
-        Offset = New PointF(calcOffset_LastOffset.X - (newMousePos.X - calcOffset_MouseOnTab.X),
-                           calcOffset_LastOffset.Y - (newMousePos.Y - calcOffset_MouseOnTab.Y))
-        If Offset.X < 0 Then
-            Offset = New PointF(0, Offset.Y)
-        End If
-        If Offset.Y < 0 Then
-            Offset = New PointF(Offset.X, 0)
-        End If
-    End Sub
-
-    Private Function GetSelectedObjects() As PaintingObject()
-        Dim objs As New List(Of PaintingObject)
-
-        For Each obj As PaintingObject In PaintingObjects
-            If obj.Selected Then objs.Add(obj)
-        Next
-
-        Return objs.ToArray
-    End Function
-
-    Private Sub SaveObjectPositions(e As MouseEventArgs, objs As IList)
-        For Each obj As PaintingObject In objs
-            If Not savedPos.ContainsKey(obj) Then
-                savedPos.Add(obj, New PointF(e.X - obj.Location.X + Offset.X, e.Y - obj.Location.Y + Offset.Y))
-                SaveObjectPositions(e, obj.PinnedObjects)
-            End If
-        Next
-    End Sub
-
-    Private Sub UpdateObjectPositions(e As MouseEventArgs)
-        UpdateObjectPositions(e, GetSelectedObjects)
-    End Sub
-
-    Private Sub UpdateObjectPositions(e As MouseEventArgs, objs As IList(Of PaintingObject), Optional movedObjs As List(Of PaintingObject) = Nothing)
-        If IsResizingObjs(objs) Then Return
-        If movedObjs Is Nothing Then movedObjs = New List(Of PaintingObject)
-
-        SuspendDrawing()
-
-        For Each obj As PaintingObject In objs
-            Dim sp As PointF = savedPos(obj)
-
-            If Not movedObjs.Contains(obj) Then
-                If UpdateObjectPosition(e, obj, sp) Then
-                    movedObjs.Add(obj)
-                End If
-            End If
-
-            If obj.PinnedObjects.Count > 0 Then
-                UpdateObjectPositions(e, obj.PinnedObjects, movedObjs)
-                movedObjs.AddRange(obj.PinnedObjects.ToArray)
-            End If
-        Next
-
-        ResumeDrawing(False)
-    End Sub
-
-    Private Function UpdateObjectPosition(e As MouseEventArgs, obj As PaintingObject, sp As PointF) As Boolean
-        Dim moved As Boolean = False
-        Dim cancel As New CancelEventArgs(False)
-        obj.RaiseMovingBeforePositionUpdated(cancel)
-
-        If Not cancel.Cancel Then
-            obj.Location = New Point(e.X - sp.X + Offset.X,
-                                     e.Y - sp.Y + Offset.Y)
-            obj.RaiseMoving(New EventArgs)
-            moved = True
-        End If
-
-        Return moved
-    End Function
-
-    Private Function IsResizingObjs(objs As IList(Of PaintingObject)) As Boolean
-        For Each obj As PaintingObject In objs
-            If obj.IsResizing Then Return True
-        Next
-        Return False
-    End Function
-
-    Private Function GetMouseEventArgs(e As MouseEventArgs, obj As PaintingObject) As MouseEventArgs
-        Return New MouseEventArgs(e.Button, e.Clicks, e.X - obj.X + Offset.X, e.Y - obj.Y + Offset.Y, e.Delta)
-    End Function
-
-    Public Function GetObject(p As PointF, Optional UseExtRect As Boolean = False) As PaintingObject
-        Dim val As PaintingObject = Nothing
-
-        For i As Integer = PaintingObjects.Count - 1 To 0 Step -1
-            Dim obj As PaintingObject = PaintingObjects(i)
-
-            If val Is Nothing Then
-                If UseExtRect Then
-                    If HelpfulDrawingFunctions.IsPointInRectangle(p, obj.RectangleExtended) Then
-                        val = obj
-                    End If
-                Else
-                    If HelpfulDrawingFunctions.IsPointInRectangle(p, obj.Rectangle) Then
-                        val = obj
-                    End If
-                End If
-            End If
-        Next
-
-        Return val
-    End Function
-
-    Public Function GetObjects(p As Point) As PaintingObject()
-        Dim objs As New List(Of PaintingObject)
-
-        For Each obj As PaintingObject In PaintingObjects
-            If HelpfulDrawingFunctions.IsPointInRectangle(p, obj.RectangleExtended) Then
-                objs.Add(obj)
-            End If
-        Next
-
-        Return objs.ToArray
-    End Function
-
-    Public Function GetObjects(startPoint As Point, endPoint As Point) As PaintingObject()
-        Return GetObjects(New Rectangle(startPoint, CType(endPoint - startPoint, Size)))
-    End Function
-
-    Public Function GetObjects(rect As Rectangle) As PaintingObject()
-        Dim objs As New List(Of PaintingObject)
-
-        For Each obj As PaintingObject In PaintingObjects
-            Dim objRect As RectangleF = obj.Rectangle
-            If HelpfulDrawingFunctions.IsPointInRectangle(objRect.Location, rect) OrElse
-                HelpfulDrawingFunctions.IsPointInRectangle(objRect.Location + objRect.Size, rect) OrElse
-                HelpfulDrawingFunctions.IsPointInRectangle(New PointF(objRect.Left, objRect.Bottom), rect) OrElse
-                HelpfulDrawingFunctions.IsPointInRectangle(New PointF(objRect.Right, objRect.Top), rect) Then
-                objs.Add(obj)
-            End If
-        Next
-
-        Return objs.ToArray
-    End Function
-
-    Protected Overrides ReadOnly Property CreateParams As CreateParams
-        Get
-            Dim cp = MyBase.CreateParams
-
-            'If EnableRealTransparency Then
-            '    cp.ExStyle = cp.ExStyle Or &H20 'WS_EX_TRANSPARENT
-            'End If
-
-            Return cp
-        End Get
-    End Property
-
-    ''' <summary>
-    ''' Sorg dafür, dass Events durch dieses Control durchdringen zum Parnet-Control.
-    ''' </summary>
-    ''' <param name="m"></param>
-    Protected Overrides Sub WndProc(ByRef m As Message)
-        Const WM_NCHITTEST As Integer = &H84
-        Const HTTRANSPARENT As Integer = -1
-
-        If Not VisibleForMouseEvents AndAlso m.Msg = WM_NCHITTEST Then
-            m.Result = CType(HTTRANSPARENT, IntPtr)
-        Else
-            MyBase.WndProc(m)
-        End If
-    End Sub
-
-    Protected Overrides Sub OnPaintBackground(e As PaintEventArgs)
-        'Stop Drawing directly to the parent
-        Me.SuspendLayout()
-
-        'Draw Background
-        'If Not EnableRealTransparency Then
-        MyBase.OnPaintBackground(e)
-        'End If
-    End Sub
-
-    Protected Overrides Sub OnPaint(e As PaintEventArgs)
-        'Draw PaintingObjects stuff
-        If StopDrawing Then
-            e.Graphics.DrawImage(bufferedImg, Point.Empty)
-        Else
-            With e.Graphics
-                .SmoothingMode = SmoothingMode.HighQuality
-                .PixelOffsetMode = PixelOffsetMode.HighQuality
-                .PageUnit = GraphicsUnit.Pixel
-                .InterpolationMode = InterpolationMode.HighQualityBicubic
-            End With
-
-            If GridVisible Then
-                DrawGridMethode?.Invoke(e, Me, Offset)
-            End If
-
-            Dim baserect As RectangleF = New RectangleF(Offset, Size)
-
-            For Each obj As PaintingObject In PaintingObjects
-                If obj.Visible AndAlso HelpfulDrawingFunctions.OverlapsTwoRectangles(obj.Rectangle, baserect) Then
-                    obj.Draw(e, Offset)
-                End If
-            Next
-
-            If _IsAreaSelecting Then
-                DrawAreaSelectionMethode?.Invoke(e, Me, New PointF(startMousePos.X - Offset.X, startMousePos.Y - Offset.Y), New PointF(lastMousePos.X - Offset.X, lastMousePos.Y - Offset.Y))
-            End If
-        End If
-
-        'Do default Drawing Methode
-        MyBase.OnPaint(e)
-
-        'Start Drawing directly to the Form
-        ResumeLayout(False)
-    End Sub
-
-    Public Overloads Function CreateGraphics() As Graphics
-        Return MyBase.CreateGraphics
-    End Function
-
-    Public Sub PaintFullView(g As Graphics)
-        For Each obj As PaintingObject In PaintingObjects
-            If obj.Visible Then
-                obj.Draw(g, PointF.Empty)
-            End If
-        Next
-    End Sub
-
-    Private Function CalcTextSize(obj As PaintingObject) As SizeF
-        Return CalcTextSize(obj, Parent.CreateGraphics)
-    End Function
-
-    Private Function CalcTextSize(obj As PaintingObject, g As Graphics) As SizeF
-        Return g.MeasureString(obj.Text, obj.TextFont, obj.Width)
-    End Function
-
-    Private Sub SelectControlsInArea()
-        Dim rect As RectangleF = GetRectangle(startMousePos, lastMousePos)
-        For Each obj As PaintingObject In PaintingObjects
-            obj.Selected = If(startMousePos.X >= lastMousePos.X,
-                OverlapsTwoRectangles(obj.Rectangle, rect),
-                RectangleContainsRectangle(rect, obj.Rectangle))
-        Next
-    End Sub
-
-    Public Sub ArrangeToGrid(obj As PaintingObject, snapPinnedObjects As Boolean)
-        If snapPinnedObjects OrElse Not IsPinnedObject(obj) Then
-            Dim zoomedGridChunkSize As New SizeF(GridChunkSize.Width * ZoomFactor.Width, Me.GridChunkSize.Height * ZoomFactor.Height)
-
-            Dim modTop As Integer = obj.Y Mod zoomedGridChunkSize.Height
-            Dim modLeft As Integer = obj.X Mod zoomedGridChunkSize.Width
-
-            Dim halfHeight As Integer = zoomedGridChunkSize.Height / 2
-            Dim halfWidth As Integer = zoomedGridChunkSize.Width / 2
-
-            Dim zoomLocation =
-                Sub(obj2 As PaintingObject)
-                    If modTop > halfHeight Then
-                        obj2.Y += (zoomedGridChunkSize.Height - modTop)
-                    Else
-                        obj2.Y -= modTop
-                    End If
-
-                    If modLeft > halfWidth Then
-                        obj2.X += (zoomedGridChunkSize.Width - modLeft)
-                    Else
-                        obj2.X -= modLeft
-                    End If
-                End Sub
-
-            zoomLocation(obj)
-
-            For Each pinned As PaintingObject In obj.PinnedObjects
-                zoomLocation(pinned)
-            Next
-
-            Dim modH As Integer = obj.Height Mod zoomedGridChunkSize.Height
-            Dim modW As Integer = obj.Width Mod zoomedGridChunkSize.Width
-
-            Dim zoomSize =
-                Sub(obj2 As PaintingObject)
-                    If obj2.EnableResize AndAlso Not obj2.HardcodedSize Then
-                        If modH > halfHeight Then
-                            obj2.Height += (zoomedGridChunkSize.Height - modH)
-                        Else
-                            obj2.Height -= modH
-                        End If
-
-                        If modW > halfWidth Then
-                            obj2.Width += (zoomedGridChunkSize.Width - modW)
-                        Else
-                            obj2.Width -= modW
-                        End If
-                    End If
-                End Sub
-
-            zoomSize(obj)
-
-            For Each pinned As PaintingObject In obj.PinnedObjects
-                zoomSize(pinned)
-            Next
-        End If
-    End Sub
-
-    Public Function IsPinnedObject(o As PaintingObject) As Boolean
-        For Each obj As PaintingObject In PaintingObjects
-            If obj.PinnedObjects.Contains(o) Then
-                Return True
-            End If
-        Next
-        Return False
-    End Function
-
-    Public Sub AutoArrangeToGrid()
-        If GridEnabled Then
-            For Each obj As PaintingObject In GetSelectedObjects()
-                If obj.AutoAlignToGrid Then
-                    ArrangeToGrid(obj, False)
-                End If
-            Next
-            If Not StopDrawing Then Refresh()
-        End If
-    End Sub
-
-    Public Function GetFullSize() As SizeF
-        Return GetFullSize(PaintingObjects)
-    End Function
-
-    Public Shared Function GetFullSize(objects As IEnumerable(Of PaintingObject)) As SizeF
-        Dim curX As Single = 0
-        Dim curY As Single = 0
-
-        For Each po As PaintingObject In objects
-            Dim myX As Single = po.X + po.Width
-            If curX < myX Then
-                curX = myX
-            End If
-            Dim myY As Single = po.Y + po.Height
-            If curY < myY Then
-                curY = myY
-            End If
-        Next
-
-        Return New SizeF(curX + 20, curY + 20)
-    End Function
-
-    Friend Sub RaisePaintingObjectAdded(args As PaintingObjectEventArgs)
-        RaiseEvent PaintingObjectAdded(Me, args)
-    End Sub
-    Friend Sub RaisePaintingObjectRemoved(args As PaintingObjectEventArgs)
-        RaiseEvent PaintingObjectRemoved(Me, args)
-    End Sub
-
-    Private Sub PaintingControl_PaintingObjectAdded(sender As Object, e As PaintingObjectEventArgs) Handles Me.PaintingObjectAdded, Me.PaintingObjectRemoved
-        'CalculateScrollValues()
-    End Sub
-
-    Private Sub CheckMouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
-        If pressedControl Then
-            Dim val As Single = e.Delta / 120 / 10
-            ZoomFactor = New SizeF(Math.Max(ZoomFactor.Width + val, 0.25), Math.Max(ZoomFactor.Height + val, 0.25))
-            Refresh()
-        End If
-    End Sub
-
-    Public Sub SuspendDrawing()
-        If _stopDrawing < 0 Then
-            'bufferedImg = New Bitmap(Width, Height)
-            'DrawToBitmap(bufferedImg, New Rectangle(0, 0, bufferedImg.Width, bufferedImg.Height))
-            Utils.SuspendDrawing(Me)
-        End If
-        _stopDrawing += 1
-    End Sub
-
-    Public Sub ResumeDrawing()
-        ResumeDrawing(True)
-    End Sub
-
-    Public Sub ResumeDrawing(executeRefresh As Boolean)
-        If _stopDrawing >= 0 Then
-            _stopDrawing -= 1
-        End If
-
-        If _stopDrawing = -1 Then
-            'bufferedImg.Dispose()
-            'bufferedImg = Nothing
-            'If executeRefresh Then Refresh()
-            Utils.ResumeDrawing(Me, executeRefresh)
-        End If
-    End Sub
-
-End Class

Pilz.UI/PaintingControl/PaintingControlDelegates.cs

@@ -0,0 +1,11 @@
+using global::System.Drawing;
+using global::System.Windows.Forms;
+
+namespace Pilz.UI
+{
+    public delegate void DelegateDrawPaintingObjectMethode(PaintingObjectPaintEventArgs e);
+
+    public delegate void DelegateDrawPaintingControlGridMethode(PaintEventArgs e, PaintingControl pc, PointF offset);
+
+    public delegate void DelegateDrawPaintingControlAreaSelectionMethode(PaintEventArgs e, PaintingControl pc, PointF startMousePos, PointF lastMousePos);
+}

Pilz.UI/PaintingControl/PaintingControlDelegates.vb

@@ -1,6 +0,0 @@
-Imports System.Drawing
-Imports System.Windows.Forms
-
-Public Delegate Sub DelegateDrawPaintingObjectMethode(e As PaintingObjectPaintEventArgs)
-Public Delegate Sub DelegateDrawPaintingControlGridMethode(e As PaintEventArgs, pc As PaintingControl, offset As PointF)
-Public Delegate Sub DelegateDrawPaintingControlAreaSelectionMethode(e As PaintEventArgs, pc As PaintingControl, startMousePos As PointF, lastMousePos As PointF)

Pilz.UI/PaintingControl/PaintingObject.cs

@@ -0,0 +1,873 @@
+using System;
+using System.Collections.Generic;
+using global::System.ComponentModel;
+using global::System.Drawing;
+using global::System.Drawing.Drawing2D;
+using System.Linq;
+using global::System.Reflection;
+using global::System.Windows.Forms;
+using global::Newtonsoft.Json;
+
+namespace Pilz.UI
+{
+    [Serializable]
+    public class PaintingObject : ICloneable, IPaintingObjectContainer
+    {
+        private PaintingObjectResizing resizeEngine = null;
+        private bool _Selected = false;
+        private PaintingControl _Parent = null;
+
+        public Color FillColor { get; set; } = Color.Blue;
+        public Color OutlineColor { get; set; } = Color.DarkBlue;
+        public float OutlineThicknes { get; set; } = 1f;
+        public DashStyle OutlineDashStyle { get; set; } = DashStyle.Solid;
+
+        private string _Text = "";
+
+        public TextPosition TextPosition { get; set; } = TextPosition.FullCenter;
+        public StringAlignment VerticalTextAlignment { get; set; } = StringAlignment.Center;
+        public StringAlignment HorizontalTextAlignment { get; set; } = StringAlignment.Center;
+        public Font TextFont { get; set; } = new Font(FontFamily.GenericSansSerif, 8.25f);
+        public Color TextColor { get; set; } = Color.Black;
+
+        private PointF _Location = new PointF(50f, 50f);
+        private SizeF _Size = new SizeF(50f, 80f);
+
+        public bool EnableFill { get; set; } = true;
+        public bool EnableOutline { get; set; } = true;
+        public Color SelectionColor { get; set; } = Color.CornflowerBlue;
+        public DashStyle SelectionDashStyle { get; set; } = DashStyle.Dot;
+
+        private bool _EnableSelection = true;
+
+        public Image Image { get; set; } = null;
+        [JsonIgnore]
+        public Image BufferedImage { get; set; } = null;
+        public ImageSizeMode ImageSizeMode { get; set; }
+        public PaintingObjectImageProperties ImageProperties { get; set; } = new PaintingObjectImageProperties();
+        public string Tag { get; set; } = null;
+        public string Name { get; set; } = "";
+        public List<PaintingObject> PinnedObjects { get; private set; } = new List<PaintingObject>();
+        public List<DelegateDrawPaintingObjectMethode> DrawMethodes { get; private set; } = new List<DelegateDrawPaintingObjectMethode>();
+        public DelegateDrawPaintingObjectMethode DrawSelectionMethode { get; private set; } = DefaultDrawMethodes.DrawSelection;
+        public Cursor Cursor { get; set; } = Cursors.Default;
+        public bool HardcodedSize { get; set; } = false;
+
+        private bool _Visible = true;
+        private bool _AutoAlignToGrid = false;
+
+        public bool MouseTransparency { get; set; } = false;
+        public PaintingObjectLayering Layering { get; private set; }
+        public PaintingObjectList PaintingObjects { get; private set; }
+        public ulong ErrorsAtDrawing { get; private set; } = 0UL;
+
+        public event MouseClickEventHandler MouseClick;
+
+        public delegate void MouseClickEventHandler(PaintingObject sender, MouseEventArgs e);
+
+        public event MouseDownEventHandler MouseDown;
+
+        public delegate void MouseDownEventHandler(PaintingObject sender, MouseEventArgs e);
+
+        public event MouseUpEventHandler MouseUp;
+
+        public delegate void MouseUpEventHandler(PaintingObject sender, MouseEventArgs e);
+
+        public event MouseMoveEventHandler MouseMove;
+
+        public delegate void MouseMoveEventHandler(PaintingObject sender, MouseEventArgs e);
+
+        public event SelectedChangedEventHandler SelectedChanged;
+
+        public delegate void SelectedChangedEventHandler(PaintingObject sender, EventArgs e);
+
+        public event PaintEventHandler Paint;
+
+        public delegate void PaintEventHandler(PaintingObject sender, PaintEventArgs e);
+
+        public event ParentChangedEventHandler ParentChanged;
+
+        public delegate void ParentChangedEventHandler(PaintingObject sender, EventArgs e);
+
+        public event VisibleChangedEventHandler VisibleChanged;
+
+        public delegate void VisibleChangedEventHandler(PaintingObject sender, EventArgs e);
+
+        public event MovedEventHandler Moved;
+
+        public delegate void MovedEventHandler(PaintingObject sender, EventArgs e);
+
+        public event MovingEventHandler Moving;
+
+        public delegate void MovingEventHandler(PaintingObject sender, EventArgs e);
+
+        public event MovingBeforePositionUpdatedEventHandler MovingBeforePositionUpdated;
+
+        public delegate void MovingBeforePositionUpdatedEventHandler(PaintingObject sender, CancelEventArgs e);
+
+        public PaintingObject()
+        {
+            Layering = new PaintingObjectLayering(this);
+            PaintingObjects = new PaintingObjectList(_Parent) { EnableRaisingEvents = false };
+        }
+
+        public PaintingObject(PaintingObjectType type) : this()
+        {
+            Type = type;
+        }
+
+        public PaintingObject(PaintingObjectType type, DelegateDrawPaintingObjectMethode[] drawMethodes) : this(type)
+        {
+            DrawMethodes.AddRange(drawMethodes);
+        }
+
+        internal void RaiseMouseClick(MouseEventArgs e)
+        {
+            MouseClick?.Invoke(this, e);
+        }
+
+        internal void RaiseMouseDown(MouseEventArgs e)
+        {
+            MouseDown?.Invoke(this, e);
+        }
+
+        internal void RaiseMouseUp(MouseEventArgs e)
+        {
+            MouseUp?.Invoke(this, e);
+        }
+
+        internal void RaiseMouseMove(MouseEventArgs e)
+        {
+            MouseMove?.Invoke(this, e);
+        }
+
+        private void RaisePaint(PaintEventArgs e)
+        {
+            Paint?.Invoke(this, e);
+        }
+
+        internal void RaiseMoved(EventArgs e)
+        {
+            Moved?.Invoke(this, e);
+        }
+
+        internal void RaiseMoving(EventArgs e)
+        {
+            Moving?.Invoke(this, e);
+        }
+
+        internal void RaiseMovingBeforePositionUpdated(EventArgs e)
+        {
+            MovingBeforePositionUpdated?.Invoke(this, (CancelEventArgs)e);
+        }
+
+        public PaintingObjectType Type
+        {
+            get
+            {
+                var tt = PaintingObjectType.Custom;
+                foreach (DelegateDrawPaintingObjectMethode d in DrawMethodes)
+                {
+                    if (ReferenceEquals(d.Method.DeclaringType, typeof(DefaultDrawMethodes)))
+                    {
+                        switch (d.Method.Name ?? "")
+                        {
+                            case "DrawPicture":
+                                {
+                                    tt = tt | PaintingObjectType.Picture;
+                                    break;
+                                }
+
+                            case "DrawText":
+                                {
+                                    tt = tt | PaintingObjectType.Text;
+                                    break;
+                                }
+
+                            case "DrawRectangle":
+                                {
+                                    tt = tt | PaintingObjectType.Rectangle;
+                                    break;
+                                }
+
+                            case "DrawEllipse":
+                                {
+                                    tt = tt | PaintingObjectType.Elipse;
+                                    break;
+                                }
+
+                            case "DrawTriangle":
+                                {
+                                    tt = tt | PaintingObjectType.Triangle;
+                                    break;
+                                }
+
+                            case "DrawLine":
+                                {
+                                    tt = tt | PaintingObjectType.Line;
+                                    break;
+                                }
+                        }
+                    }
+                }
+
+                return tt;
+            }
+
+            set
+            {
+                DrawMethodes.Clear();
+                if ((value & PaintingObjectType.Picture) == PaintingObjectType.Picture)
+                {
+                    DrawMethodes.Add(DefaultDrawMethodes.DrawPicture);
+                }
+
+                if ((value & PaintingObjectType.Rectangle) == PaintingObjectType.Rectangle)
+                {
+                    DrawMethodes.Add(DefaultDrawMethodes.DrawRectangle);
+                }
+
+                if ((value & PaintingObjectType.Elipse) == PaintingObjectType.Elipse)
+                {
+                    DrawMethodes.Add(DefaultDrawMethodes.DrawEllipse);
+                }
+
+                if ((value & PaintingObjectType.Triangle) == PaintingObjectType.Triangle)
+                {
+                    DrawMethodes.Add(DefaultDrawMethodes.DrawTriangle);
+                }
+
+                if ((value & PaintingObjectType.Line) == PaintingObjectType.Line)
+                {
+                    DrawMethodes.Add(DefaultDrawMethodes.DrawLine);
+                }
+
+                if ((value & PaintingObjectType.Text) == PaintingObjectType.Text)
+                {
+                    DrawMethodes.Add(DefaultDrawMethodes.DrawText);
+                }
+            }
+        }
+
+        [JsonIgnore]
+        public PointF Location
+        {
+            get
+            {
+                if (Parent is object)
+                {
+                    return new PointF(_Location.X * Parent.ZoomFactor.Width, _Location.Y * Parent.ZoomFactor.Height);
+                }
+                else
+                {
+                    return _Location;
+                }
+            }
+
+            set
+            {
+                if (Parent is object)
+                {
+                    _Location = new PointF(value.X / Parent.ZoomFactor.Width, value.Y / Parent.ZoomFactor.Height);
+                }
+                else
+                {
+                    _Location = value;
+                }
+            }
+        }
+
+        [JsonIgnore]
+        public SizeF Size
+        {
+            get
+            {
+                if (Parent is object)
+                {
+                    return new SizeF(_Size.Width * Parent.ZoomFactor.Width, _Size.Height * Parent.ZoomFactor.Height);
+                }
+                else
+                {
+                    return _Size;
+                }
+            }
+
+            set
+            {
+                if (Parent is object)
+                {
+                    _Size = new SizeF(value.Width / Parent.ZoomFactor.Width, value.Height / Parent.ZoomFactor.Height);
+                }
+                else
+                {
+                    _Size = value;
+                }
+
+                ResetImageBuffer();
+            }
+        }
+
+        [JsonIgnore]
+        public SizeF SizeDirect
+        {
+            get
+            {
+                return _Size;
+            }
+
+            set
+            {
+                _Size = value;
+                ResetImageBuffer();
+            }
+        }
+
+        [JsonIgnore]
+        public bool AutoAlignToGrid
+        {
+            get
+            {
+                return _AutoAlignToGrid;
+            }
+
+            set
+            {
+                _AutoAlignToGrid = value;
+                if (value)
+                    ArrangeToGrid();
+            }
+        }
+
+        [JsonIgnore]
+        public bool IsResizing
+        {
+            get
+            {
+                if (resizeEngine is null)
+                {
+                    return false;
+                }
+                else
+                {
+                    return resizeEngine?.IsResizing == true;
+                }
+            }
+        }
+
+        [JsonIgnore]
+        public PaintingControl Parent
+        {
+            get
+            {
+                return _Parent;
+            }
+
+            set
+            {
+                bool re = !ReferenceEquals(value, _Parent);
+                _Parent = value;
+                if (re)
+                    ParentChanged?.Invoke(this, new EventArgs());
+            }
+        }
+
+        [JsonIgnore]
+        public bool Visible
+        {
+            get
+            {
+                return _Visible;
+            }
+
+            set
+            {
+                if (value != _Visible)
+                {
+                    _Visible = value;
+                    if (!value && !_EnableSelection)
+                        EnableResize = false;
+                    VisibleChanged?.Invoke(this, new EventArgs());
+                }
+            }
+        }
+
+        public bool Selected
+        {
+            get
+            {
+                return _Selected;
+            }
+
+            set
+            {
+                SetSelection(value, true);
+            }
+        }
+
+        [JsonIgnore]
+        public bool SelectedDirect
+        {
+            get
+            {
+                return Selected;
+            }
+
+            set
+            {
+                SetSelection(value, false);
+            }
+        }
+
+        private void SetSelection(bool value, bool raiseEventOnParent)
+        {
+            if (EnableSelection)
+            {
+                if (_Selected != value)
+                {
+                    _Selected = value;
+                    SelectedChanged?.Invoke(this, new EventArgs());
+                    if (raiseEventOnParent)
+                    {
+                        Parent.RaiseSelectionChanged();
+                    }
+                }
+            }
+            else
+            {
+                _Selected = false;
+            }
+        }
+
+        [JsonIgnore]
+        public float Width
+        {
+            get
+            {
+                return Size.Width;
+            }
+
+            set
+            {
+                Size = new SizeF(value, Size.Height);
+            }
+        }
+
+        [JsonIgnore]
+        public float Height
+        {
+            get
+            {
+                return Size.Height;
+            }
+
+            set
+            {
+                Size = new SizeF(Size.Width, value);
+            }
+        }
+
+        [JsonIgnore]
+        public float X
+        {
+            get
+            {
+                return Location.X;
+            }
+
+            set
+            {
+                Location = new PointF(value, Location.Y);
+            }
+        }
+
+        [JsonIgnore]
+        public float Y
+        {
+            get
+            {
+                return Location.Y;
+            }
+
+            set
+            {
+                Location = new PointF(Location.X, value);
+            }
+        }
+
+        [JsonIgnore]
+        public string Text
+        {
+            get
+            {
+                return _Text;
+            }
+
+            set
+            {
+                _Text = value;
+            }
+        }
+
+        public RectangleF Rectangle
+        {
+            get
+            {
+                return new RectangleF(Location, Size);
+            }
+
+            set
+            {
+                Location = value.Location;
+                Size = value.Size;
+            }
+        }
+
+        [JsonIgnore]
+        public bool EnableSelection
+        {
+            get
+            {
+                return _EnableSelection;
+            }
+
+            set
+            {
+                _EnableSelection = value;
+                if (!value && !_Visible)
+                    EnableResize = false;
+                if (!value)
+                    Selected = false;
+            }
+        }
+
+        [JsonIgnore]
+        public Rectangle RectangleExtended
+        {
+            get
+            {
+                return new Rectangle((int)(X - 12f), (int)(Y - 12f), (int)(Width + 12f + 12f), (int)(Height + 12f + 12f));
+            }
+
+            set
+            {
+                X = value.X + 12;
+                Y = value.Y + 12;
+                Width = value.Width - 12 - 12;
+                Height = value.Height - 12 - 12;
+            }
+        }
+
+        public void FitSizeToText()
+        {
+            if (Parent is null)
+            {
+                throw new Exception("You have to put that PaintingObject to a PaintingControl before.");
+            }
+
+            var g = Parent.CreateGraphics();
+            var newSize = g.MeasureString(Text, TextFont);
+            SizeDirect = newSize + new SizeF(1f, 0f);
+        }
+
+        public void SetBounds(int x, int y, int width, int height)
+        {
+            Location = new Point(x, y);
+            Size = new Size(width, height);
+        }
+
+        [JsonIgnore]
+        public int Left
+        {
+            get
+            {
+                return (int)X;
+            }
+
+            set
+            {
+                X = value;
+            }
+        }
+
+        [JsonIgnore]
+        public int Top
+        {
+            get
+            {
+                return (int)Y;
+            }
+
+            set
+            {
+                Y = value;
+            }
+        }
+
+        [JsonIgnore]
+        public int Right
+        {
+            get
+            {
+                return (int)(X + Width);
+            }
+
+            set
+            {
+                X = value - Width;
+            }
+        }
+
+        [JsonIgnore]
+        public int Bottom
+        {
+            get
+            {
+                return (int)(Y + Height);
+            }
+
+            set
+            {
+                Y = value - Height;
+            }
+        }
+
+        public bool EnableResize
+        {
+            get
+            {
+                if (resizeEngine is null)
+                {
+                    return false;
+                }
+                else
+                {
+                    return resizeEngine.Enabled;
+                }
+            }
+
+            set
+            {
+                if (resizeEngine is null && value)
+                {
+                    resizeEngine = new PaintingObjectResizing(this);
+                }
+                else if (resizeEngine is object)
+                {
+                    resizeEngine.Enabled = value;
+                }
+            }
+        }
+
+        public void Remove()
+        {
+            Parent?.PaintingObjects.Remove(this);
+        }
+
+        public void AutoArrangeToGrid()
+        {
+            if (((bool)Parent?.GridEnabled && AutoAlignToGrid) == true)
+            {
+                ArrangeToGrid();
+            }
+        }
+
+        public void ArrangeToGrid()
+        {
+            if (Parent is object)
+            {
+                Parent.ArrangeToGrid(this, true);
+                if (!Parent.StopDrawing)
+                    Parent.Refresh();
+            }
+        }
+
+        public void Draw(PaintEventArgs e)
+        {
+            Draw(e, PointF.Empty);
+        }
+
+        public void Draw(PaintEventArgs e, PointF offset)
+        {
+            Draw(e.Graphics, offset);
+            if (Visible)
+            {
+                RaisePaint(e);
+            }
+        }
+
+        public void Draw(Graphics g, PointF offset)
+        {
+            if (Visible)
+            {
+                var poevargs = new PaintingObjectPaintEventArgs(this, g, offset);
+                foreach (DelegateDrawPaintingObjectMethode dm in DrawMethodes)
+                {
+                    try
+                    {
+                        dm?.Invoke(poevargs);
+                    }
+                    catch (Exception ex)
+                    {
+                        ErrorsAtDrawing = (ulong)(ErrorsAtDrawing + 1m);
+                    }
+                }
+
+                if (Selected && DrawSelectionMethode is object)
+                {
+                    DrawSelectionMethode?.Invoke(poevargs);
+                }
+            }
+        }
+
+        public object Clone()
+        {
+            return Clone(true);
+        }
+
+        public object Clone(bool includePinnedObject)
+        {
+            var obj = new PaintingObject();
+            var metype = GetType();
+            var blackField = new[] { nameof(PinnedObjects), nameof(resizeEngine), nameof(_Parent), nameof(BufferedImage), nameof(ImageProperties) };
+            void copyFields(object source, object dest, string[] blackFields, Type t)
+            {
+                var fields = new List<FieldInfo>(t.GetFields(BindingFlags.Public | BindingFlags.NonPublic | BindingFlags.IgnoreCase | BindingFlags.Instance));
+                foreach (FieldInfo field in fields)
+                {
+                    if (!blackFields.Contains(field.Name))
+                    {
+                        field.SetValue(dest, field.GetValue(source));
+                    }
+                }
+            };
+            copyFields(this, obj, blackField, metype);
+            copyFields(ImageProperties, obj.ImageProperties, Array.Empty<string>(), ImageProperties.GetType());
+            if (includePinnedObject)
+            {
+                obj.PinnedObjects.AddRange(PinnedObjects);
+            }
+
+            obj.EnableResize = EnableResize;
+            return obj;
+        }
+
+        [Obsolete("Use Layering.BringToTop() instead!")]
+        public void BringToFront()
+        {
+            Layering.BringToTop();
+        }
+
+        [Obsolete("Use Layering.SendToBack() instead!")]
+        public void SendToBack()
+        {
+            Layering.SendToBack();
+        }
+
+        public void ResetImageBuffer()
+        {
+            BufferedImage = null;
+        }
+    }
+
+    public class PaintingObjectList : List<PaintingObject>
+    {
+        internal PaintingControl MyParent { get; private set; }
+        internal bool EnableRaisingEvents { get; set; } = true;
+        public PaintingObjectListLayering Layering { get; private set; }
+
+        public PaintingObjectList() : this(null)
+        {
+        }
+
+        public PaintingObjectList(PaintingControl parent)
+        {
+            Layering = new PaintingObjectListLayering(this);
+            MyParent = parent;
+        }
+
+        public new void Add(PaintingObject item)
+        {
+            item.Parent = MyParent;
+            base.Add(item);
+            item.AutoArrangeToGrid();
+            if (EnableRaisingEvents)
+            {
+                MyParent?.RaisePaintingObjectAdded(new PaintingObjectEventArgs(new[] { item }));
+            }
+        }
+
+        public void AddRange(PaintingObject[] items)
+        {
+            foreach (PaintingObject item in items)
+                item.Parent = MyParent;
+            base.AddRange(items);
+            foreach (PaintingObject item in items)
+                item.AutoArrangeToGrid();
+            if (EnableRaisingEvents)
+            {
+                MyParent?.RaisePaintingObjectAdded(new PaintingObjectEventArgs(items));
+            }
+        }
+
+        public new void Insert(int index, PaintingObject item)
+        {
+            item.Parent = MyParent;
+            base.Insert(index, item);
+            MyParent?.AutoArrangeToGrid();
+            if (EnableRaisingEvents)
+            {
+                MyParent?.RaisePaintingObjectAdded(new PaintingObjectEventArgs(new[] { item }));
+            }
+        }
+
+        public new void Remove(PaintingObject item)
+        {
+            item.Parent = null;
+            base.Remove(item);
+            if (EnableRaisingEvents)
+            {
+                MyParent?.RaisePaintingObjectRemoved(new PaintingObjectEventArgs(new[] { item }));
+            }
+        }
+
+        public new void RemoveAt(int index)
+        {
+            this[index].Parent = null;
+            var item = this[index];
+            base.RemoveAt(index);
+            if (EnableRaisingEvents)
+            {
+                MyParent?.RaisePaintingObjectRemoved(new PaintingObjectEventArgs(new[] { item }));
+            }
+        }
+    }
+
+    public enum PaintingObjectType
+    {
+        Custom = 0,
+        Text = 1,
+        Picture = 2,
+        Line = 4,
+        Triangle = 8,
+        Rectangle = 16,
+        Elipse = 32
+    }
+
+    public enum ImageSizeMode
+    {
+        Fit,
+        Zoom,
+        Original
+    }
+
+    public enum TextPosition
+    {
+        HLeft = 0x1,
+        HRight = 0x2,
+        HCenter = 0x4,
+        VUp = 0x10,
+        VDown = 0x20,
+        VCenter = 0x40,
+        FullCenter = HCenter | VCenter
+    }
+}

Pilz.UI/PaintingControl/PaintingObject.vb

@@ -1,617 +0,0 @@
-Imports System.ComponentModel
-Imports System.Drawing
-Imports System.Drawing.Drawing2D
-Imports System.Reflection
-Imports System.Runtime.CompilerServices
-Imports System.Runtime.InteropServices
-Imports System.Runtime.Serialization
-Imports System.Windows.Forms
-Imports Newtonsoft.Json
-
-<Serializable> Public Class PaintingObject
-    Implements ICloneable, IPaintingObjectContainer
-
-    Private resizeEngine As PaintingObjectResizing = Nothing
-    Private _Selected As Boolean = False
-
-    Private _Parent As PaintingControl = Nothing
-    Public Property FillColor As Color = Color.Blue
-    Public Property OutlineColor As Color = Color.DarkBlue
-    Public Property OutlineThicknes As Single = 1
-    Public Property OutlineDashStyle As DashStyle = DashStyle.Solid
-    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
-    Private _Location As New PointF(50, 50)
-    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
-    Private _EnableSelection As Boolean = True
-    Public Property Image As Image = Nothing
-    <JsonIgnore> Public Property BufferedImage As Image = Nothing
-    Public Property ImageSizeMode As ImageSizeMode
-    Public Property ImageProperties As New PaintingObjectImageProperties
-    Public Property Tag As String = Nothing
-    Public Property Name As String = ""
-    Public ReadOnly Property PinnedObjects As New List(Of PaintingObject)
-    Public ReadOnly Property DrawMethodes As New List(Of DelegateDrawPaintingObjectMethode)
-    Public ReadOnly Property DrawSelectionMethode As DelegateDrawPaintingObjectMethode = AddressOf DefaultDrawMethodes.DrawSelection
-    Public Property Cursor As Cursor = Cursors.Default
-    Public Property HardcodedSize As Boolean = False
-    Private _Visible As Boolean = True
-    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}
-    Public ReadOnly Property ErrorsAtDrawing As ULong = 0
-
-    Public Event MouseClick(sender As PaintingObject, e As MouseEventArgs)
-    Public Event MouseDown(sender As PaintingObject, e As MouseEventArgs)
-    Public Event MouseUp(sender As PaintingObject, e As MouseEventArgs)
-    Public Event MouseMove(sender As PaintingObject, e As MouseEventArgs)
-    Public Event SelectedChanged(sender As PaintingObject, e As EventArgs)
-    Public Event Paint(sender As PaintingObject, e As PaintEventArgs)
-    Public Event ParentChanged(sender As PaintingObject, e As EventArgs)
-    Public Event VisibleChanged(sender As PaintingObject, e As EventArgs)
-    Public Event Moved(sender As PaintingObject, e As EventArgs)
-    Public Event Moving(sender As PaintingObject, e As EventArgs)
-    Public Event MovingBeforePositionUpdated(sender As PaintingObject, e As CancelEventArgs)
-
-    Public Sub New()
-    End Sub
-
-    Public Sub New(type As PaintingObjectType)
-        Me.Type = type
-    End Sub
-
-    Public Sub New(type As PaintingObjectType, drawMethodes As DelegateDrawPaintingObjectMethode())
-        Me.New(type)
-        Me.DrawMethodes.AddRange(drawMethodes)
-    End Sub
-
-    Friend Sub RaiseMouseClick(e As MouseEventArgs)
-        RaiseEvent MouseClick(Me, e)
-    End Sub
-    Friend Sub RaiseMouseDown(e As MouseEventArgs)
-        RaiseEvent MouseDown(Me, e)
-    End Sub
-    Friend Sub RaiseMouseUp(e As MouseEventArgs)
-        RaiseEvent MouseUp(Me, e)
-    End Sub
-    Friend Sub RaiseMouseMove(e As MouseEventArgs)
-        RaiseEvent MouseMove(Me, e)
-    End Sub
-    Private Sub RaisePaint(e As PaintEventArgs)
-        RaiseEvent Paint(Me, e)
-    End Sub
-    Friend Sub RaiseMoved(e As EventArgs)
-        RaiseEvent Moved(Me, e)
-    End Sub
-    Friend Sub RaiseMoving(e As EventArgs)
-        RaiseEvent Moving(Me, e)
-    End Sub
-    Friend Sub RaiseMovingBeforePositionUpdated(e As EventArgs)
-        RaiseEvent MovingBeforePositionUpdated(Me, e)
-    End Sub
-
-    Public Property Type As PaintingObjectType
-        Get
-            Dim tt As PaintingObjectType = PaintingObjectType.Custom
-
-            For Each d As DelegateDrawPaintingObjectMethode In DrawMethodes
-                If d.Method.DeclaringType Is GetType(DefaultDrawMethodes) Then
-                    Select Case d.Method.Name
-                        Case "DrawPicture"
-                            tt = tt Or PaintingObjectType.Picture
-                        Case "DrawText"
-                            tt = tt Or PaintingObjectType.Text
-                        Case "DrawRectangle"
-                            tt = tt Or PaintingObjectType.Rectangle
-                        Case "DrawEllipse"
-                            tt = tt Or PaintingObjectType.Elipse
-                        Case "DrawTriangle"
-                            tt = tt Or PaintingObjectType.Triangle
-                        Case "DrawLine"
-                            tt = tt Or PaintingObjectType.Line
-                    End Select
-                End If
-            Next
-
-            Return tt
-        End Get
-        Set(value As PaintingObjectType)
-            DrawMethodes.Clear()
-
-            If (value And PaintingObjectType.Picture) = PaintingObjectType.Picture Then
-                DrawMethodes.Add(AddressOf DefaultDrawMethodes.DrawPicture)
-            End If
-
-            If (value And PaintingObjectType.Rectangle) = PaintingObjectType.Rectangle Then
-                DrawMethodes.Add(AddressOf DefaultDrawMethodes.DrawRectangle)
-            End If
-
-            If (value And PaintingObjectType.Elipse) = PaintingObjectType.Elipse Then
-                DrawMethodes.Add(AddressOf DefaultDrawMethodes.DrawEllipse)
-            End If
-
-            If (value And PaintingObjectType.Triangle) = PaintingObjectType.Triangle Then
-                DrawMethodes.Add(AddressOf DefaultDrawMethodes.DrawTriangle)
-            End If
-
-            If (value And PaintingObjectType.Line) = PaintingObjectType.Line Then
-                DrawMethodes.Add(AddressOf DefaultDrawMethodes.DrawLine)
-            End If
-
-            If (value And PaintingObjectType.Text) = PaintingObjectType.Text Then
-                DrawMethodes.Add(AddressOf DefaultDrawMethodes.DrawText)
-            End If
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property Location As PointF
-        Get
-            If Parent IsNot Nothing Then
-                Return New PointF(_Location.X * Parent.ZoomFactor.Width,
-                                  _Location.Y * Parent.ZoomFactor.Height)
-            Else
-                Return _Location
-            End If
-        End Get
-        Set(value As PointF)
-            If Parent IsNot Nothing Then
-                _Location = New PointF(value.X / Parent.ZoomFactor.Width,
-                                       value.Y / Parent.ZoomFactor.Height)
-            Else
-                _Location = value
-            End If
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property Size As SizeF
-        Get
-            If Parent IsNot Nothing Then
-                Return New SizeF(_Size.Width * Parent.ZoomFactor.Width,
-                                 _Size.Height * Parent.ZoomFactor.Height)
-            Else
-                Return _Size
-            End If
-        End Get
-        Set(value As SizeF)
-            If Parent IsNot Nothing Then
-                _Size = New SizeF(value.Width / Parent.ZoomFactor.Width,
-                                  value.Height / Parent.ZoomFactor.Height)
-            Else
-                _Size = value
-            End If
-            ResetImageBuffer()
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property SizeDirect As SizeF
-        Get
-            Return _Size
-        End Get
-        Set(value As SizeF)
-            _Size = value
-            ResetImageBuffer()
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property AutoAlignToGrid As Boolean
-        Get
-            Return _AutoAlignToGrid
-        End Get
-        Set(value As Boolean)
-            _AutoAlignToGrid = value
-            If value Then ArrangeToGrid()
-        End Set
-    End Property
-
-    <JsonIgnore> Public ReadOnly Property IsResizing As Boolean
-        Get
-            If resizeEngine Is Nothing Then
-                Return False
-            Else
-                Return resizeEngine?.IsResizing
-            End If
-        End Get
-    End Property
-
-    <JsonIgnore> Public Property Parent As PaintingControl
-        Get
-            Return _Parent
-        End Get
-        Set(value As PaintingControl)
-            Dim re As Boolean = value IsNot _Parent
-            _Parent = value
-            If re Then RaiseEvent ParentChanged(Me, New EventArgs)
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property Visible As Boolean
-        Get
-            Return _Visible
-        End Get
-        Set(value As Boolean)
-            If value <> _Visible Then
-                _Visible = value
-                If Not value AndAlso Not _EnableSelection Then EnableResize = False
-                RaiseEvent VisibleChanged(Me, New EventArgs)
-            End If
-        End Set
-    End Property
-
-    Public Property Selected As Boolean
-        Get
-            Return _Selected
-        End Get
-        Set(value As Boolean)
-            SetSelection(value, True)
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property SelectedDirect As Boolean
-        Get
-            Return Selected
-        End Get
-        Set(value As Boolean)
-            SetSelection(value, False)
-        End Set
-    End Property
-
-    Private Sub SetSelection(value As Boolean, raiseEventOnParent As Boolean)
-        If EnableSelection Then
-            If _Selected <> value Then
-                _Selected = value
-                RaiseEvent SelectedChanged(Me, New EventArgs)
-                If raiseEventOnParent Then
-                    Parent.RaiseSelectionChanged()
-                End If
-            End If
-        Else
-            _Selected = False
-        End If
-    End Sub
-
-    <JsonIgnore> Public Property Width As Single
-        Get
-            Return Size.Width
-        End Get
-        Set(value As Single)
-            Size = New SizeF(value, Size.Height)
-        End Set
-    End Property
-    <JsonIgnore> Public Property Height As Single
-        Get
-            Return Size.Height
-        End Get
-        Set(value As Single)
-            Size = New SizeF(Size.Width, value)
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property X As Single
-        Get
-            Return Location.X
-        End Get
-        Set(value As Single)
-            Location = New PointF(value, Location.Y)
-        End Set
-    End Property
-    <JsonIgnore> Public Property Y As Single
-        Get
-            Return Location.Y
-        End Get
-        Set(value As Single)
-            Location = New PointF(Location.X, value)
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property Text As String
-        Get
-            Return _Text
-        End Get
-        Set(value As String)
-            _Text = value
-        End Set
-    End Property
-
-    Public Property Rectangle As RectangleF
-        Get
-            Return New RectangleF(Location, Size)
-        End Get
-        Set(value As RectangleF)
-            Location = value.Location
-            Size = value.Size
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property EnableSelection As Boolean
-        Get
-            Return _EnableSelection
-        End Get
-        Set(value As Boolean)
-            _EnableSelection = value
-            If Not value AndAlso Not _Visible Then EnableResize = False
-            If Not value Then Selected = False
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property RectangleExtended As Rectangle
-        Get
-            Return New Rectangle(X - 12,
-                                 Y - 12,
-                                 Width + 12 + 12,
-                                 Height + 12 + 12)
-        End Get
-        Set(value As Rectangle)
-            X = value.X + 12
-            Y = value.Y + 12
-            Width = value.Width - 12 - 12
-            Height = value.Height - 12 - 12
-        End Set
-    End Property
-
-    Public Sub FitSizeToText()
-        If Parent Is Nothing Then
-            Throw New Exception("You have to put that PaintingObject to a PaintingControl before.")
-        End If
-
-        Dim g As Graphics = Parent.CreateGraphics()
-        Dim newSize As SizeF = g.MeasureString(Text, TextFont)
-        SizeDirect = newSize + New SizeF(1, 0)
-    End Sub
-
-    Public Sub SetBounds(x As Integer, y As Integer, width As Integer, height As Integer)
-        Location = New Point(x, y)
-        Size = New Size(width, height)
-    End Sub
-
-    <JsonIgnore> Public Property Left As Integer
-        Get
-            Return X
-        End Get
-        Set(value As Integer)
-            X = value
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property Top() As Integer
-        Get
-            Return Y
-        End Get
-        Set(value As Integer)
-            Y = value
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property Right As Integer
-        Get
-            Return X + Width
-        End Get
-        Set(value As Integer)
-            X = value - Width
-        End Set
-    End Property
-
-    <JsonIgnore> Public Property Bottom() As Integer
-        Get
-            Return Y + Height
-        End Get
-        Set(value As Integer)
-            Y = value - Height
-        End Set
-    End Property
-
-    Public Property EnableResize As Boolean
-        Get
-            If resizeEngine Is Nothing Then
-                Return False
-            Else
-                Return resizeEngine.Enabled
-            End If
-        End Get
-        Set(value As Boolean)
-            If resizeEngine Is Nothing AndAlso value Then
-                resizeEngine = New PaintingObjectResizing(Me)
-            ElseIf resizeEngine IsNot Nothing Then
-                resizeEngine.Enabled = value
-            End If
-        End Set
-    End Property
-
-    Public Sub Remove()
-        Parent?.PaintingObjects.Remove(Me)
-    End Sub
-
-    Public Sub AutoArrangeToGrid()
-        If Parent?.GridEnabled AndAlso AutoAlignToGrid Then
-            ArrangeToGrid()
-        End If
-    End Sub
-
-    Public Sub ArrangeToGrid()
-        If Parent IsNot Nothing Then
-            Parent.ArrangeToGrid(Me, True)
-            If Not Parent.StopDrawing Then Parent.Refresh()
-        End If
-    End Sub
-
-    Public Sub Draw(e As PaintEventArgs)
-        Draw(e, PointF.Empty)
-    End Sub
-
-    Public Sub Draw(e As PaintEventArgs, offset As PointF)
-        Draw(e.Graphics, offset)
-
-        If Visible Then
-            RaisePaint(e)
-        End If
-    End Sub
-
-    Public Sub Draw(g As Graphics, offset As PointF)
-        If Visible Then
-            Dim poevargs As New PaintingObjectPaintEventArgs(Me, g, offset)
-
-            For Each dm As DelegateDrawPaintingObjectMethode In DrawMethodes
-                Try
-                    dm?.Invoke(poevargs)
-                Catch ex As Exception
-                    _ErrorsAtDrawing += 1
-                End Try
-            Next
-
-            If Selected AndAlso DrawSelectionMethode IsNot Nothing Then
-                DrawSelectionMethode?.Invoke(poevargs)
-            End If
-        End If
-    End Sub
-
-    Public Function Clone() As Object Implements ICloneable.Clone
-        Return Clone(True)
-    End Function
-
-    Public Function Clone(includePinnedObject As Boolean) As Object
-        Dim obj As New PaintingObject
-        Dim metype As Type = Me.GetType
-        Dim blackField As String() = {
-            NameOf(_PinnedObjects),
-            NameOf(resizeEngine),
-            NameOf(_Parent),
-            NameOf(BufferedImage),
-            NameOf(_ImageProperties)
-        }
-
-        Dim copyFields =
-            Sub(source As Object, dest As Object, blackFields As String(), t As Type)
-                Dim fields As New List(Of FieldInfo)(t.GetFields(BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.IgnoreCase Or BindingFlags.Instance))
-                For Each field As FieldInfo In fields
-                    If Not blackFields.Contains(field.Name) Then
-                        field.SetValue(dest, field.GetValue(source))
-                    End If
-                Next
-            End Sub
-
-        copyFields(Me, obj, blackField, metype)
-        copyFields(ImageProperties, obj.ImageProperties, {}, ImageProperties.GetType)
-
-        If includePinnedObject Then
-            obj.PinnedObjects.AddRange(PinnedObjects)
-        End If
-
-        obj.EnableResize = EnableResize
-
-        Return obj
-    End Function
-
-    <Obsolete("Use Layering.BringToTop() instead!")>
-    Public Sub BringToFront()
-        Layering.BringToTop()
-    End Sub
-
-    <Obsolete("Use Layering.SendToBack() instead!")>
-    Public Sub SendToBack()
-        Layering.SendToBack()
-    End Sub
-
-    Public Sub ResetImageBuffer()
-        BufferedImage = Nothing
-    End Sub
-
-End Class
-
-Public Class PaintingObjectList
-    Inherits List(Of PaintingObject)
-
-    Friend ReadOnly Property MyParent As PaintingControl
-    Friend Property EnableRaisingEvents As Boolean = True
-    Public ReadOnly Property Layering As New PaintingObjectListLayering(Me)
-
-    Public Sub New()
-        Me.New(Nothing)
-    End Sub
-
-    Public Sub New(parent As PaintingControl)
-        MyParent = parent
-    End Sub
-
-    Public Overloads Sub Add(item As PaintingObject)
-        item.Parent = MyParent
-        MyBase.Add(item)
-        item.AutoArrangeToGrid()
-        If EnableRaisingEvents Then
-            MyParent?.RaisePaintingObjectAdded(New PaintingObjectEventArgs({item}))
-        End If
-    End Sub
-
-    Public Overloads Sub AddRange(items As PaintingObject())
-        For Each item As PaintingObject In items
-            item.Parent = MyParent
-        Next
-        MyBase.AddRange(items)
-        For Each item As PaintingObject In items
-            item.AutoArrangeToGrid()
-        Next
-        If EnableRaisingEvents Then
-            MyParent?.RaisePaintingObjectAdded(New PaintingObjectEventArgs(items))
-        End If
-    End Sub
-
-    Public Overloads Sub Insert(index As Integer, item As PaintingObject)
-        item.Parent = MyParent
-        MyBase.Insert(index, item)
-        MyParent?.AutoArrangeToGrid()
-        If EnableRaisingEvents Then
-            MyParent?.RaisePaintingObjectAdded(New PaintingObjectEventArgs({item}))
-        End If
-    End Sub
-
-    Public Overloads Sub Remove(item As PaintingObject)
-        item.Parent = Nothing
-        MyBase.Remove(item)
-        If EnableRaisingEvents Then
-            MyParent?.RaisePaintingObjectRemoved(New PaintingObjectEventArgs({item}))
-        End If
-    End Sub
-
-    Public Overloads Sub RemoveAt(index As Integer)
-        Me(index).Parent = Nothing
-        Dim item As PaintingObject = Me(index)
-        MyBase.RemoveAt(index)
-        If EnableRaisingEvents Then
-            MyParent?.RaisePaintingObjectRemoved(New PaintingObjectEventArgs({item}))
-        End If
-    End Sub
-
-End Class
-
-Public Enum PaintingObjectType
-    Custom = 0
-    Text = 1
-    Picture = 2
-    Line = 4
-    Triangle = 8
-    Rectangle = 16
-    Elipse = 32
-End Enum
-
-Public Enum ImageSizeMode
-    Fit
-    Zoom
-    Original
-End Enum
-
-Public Enum TextPosition
-    HLeft = &H1
-    HRight = &H2
-    HCenter = &H4
-    VUp = &H10
-    VDown = &H20
-    VCenter = &H40
-    FullCenter = HCenter Or VCenter
-End Enum

Pilz.UI/PaintingControl/PaintingObjectLayering.cs

@@ -0,0 +1,100 @@
+
+namespace Pilz.UI
+{
+    public class PaintingObjectLayering
+    {
+        public PaintingObject PaintingObject { get; private set; }
+
+        /// <summary>
+    /// Get the current object list from the painting object.
+    /// </summary>
+    /// <returns>Returns the current object list from the painting object.</returns>
+        public PaintingObjectList ObjectList
+        {
+            get
+            {
+                return PaintingObject.Parent.PaintingObjects;
+            }
+        }
+
+        /// <summary>
+    /// Create a new instance of object layer managing.
+    /// </summary>
+    /// <param name="obj"></param>
+        public PaintingObjectLayering(PaintingObject obj)
+        {
+            PaintingObject = obj;
+        }
+
+        /// <summary>
+    /// Moves the object by the given number of indicies.
+    /// </summary>
+    /// <param name="count">The number how many objects it should be moved.</param>
+        public void MoveObject(int count)
+        {
+            int oldIndex = ObjectList.IndexOf(PaintingObject);
+            int newIndex = oldIndex + count;
+            MoveObjectTo(newIndex);
+        }
+
+        /// <summary>
+    /// Moves the object to the new index.
+    /// </summary>
+    /// <param name="newIndex"></param>
+        public void MoveObjectTo(int newIndex)
+        {
+            var list = ObjectList;
+
+            // Check & make index valid
+            if (newIndex >= ObjectList.Count)
+            {
+                newIndex = ObjectList.Count - 1;
+            }
+            else if (newIndex < 0)
+            {
+                newIndex = 0;
+            }
+
+            // Remove object
+            list.Remove(PaintingObject);
+
+            // Insert object at new index
+            list.Insert(newIndex, PaintingObject);
+
+            // Order all objects again
+            list.Layering.OrderAll();
+        }
+
+        /// <summary>
+    /// Moves the object to the front.
+    /// </summary>
+        public void BringToTop()
+        {
+            MoveObjectTo(ObjectList.Count - 1);
+        }
+
+        /// <summary>
+    /// Moves the object to the back.
+    /// </summary>
+        public void SendToBack()
+        {
+            MoveObjectTo(0);
+        }
+
+        /// <summary>
+    /// Moves the object fordward by one
+    /// </summary>
+        public void OneToTop()
+        {
+            MoveObject(+1);
+        }
+
+        /// <summary>
+    /// Moves the object backward by one
+    /// </summary>
+        public void OneToBack()
+        {
+            MoveObject(-1);
+        }
+    }
+}

Pilz.UI/PaintingControl/PaintingObjectLayering.vb

@@ -1,85 +0,0 @@
-Public Class PaintingObjectLayering
-
-    Public ReadOnly Property PaintingObject As PaintingObject
-
-    ''' <summary>
-    ''' Get the current object list from the painting object.
-    ''' </summary>
-    ''' <returns>Returns the current object list from the painting object.</returns>
-    Public ReadOnly Property ObjectList As PaintingObjectList
-        Get
-            Return PaintingObject.Parent.PaintingObjects
-        End Get
-    End Property
-
-    ''' <summary>
-    ''' Create a new instance of object layer managing.
-    ''' </summary>
-    ''' <param name="obj"></param>
-    Public Sub New(obj As PaintingObject)
-        PaintingObject = obj
-    End Sub
-
-    ''' <summary>
-    ''' Moves the object by the given number of indicies.
-    ''' </summary>
-    ''' <param name="count">The number how many objects it should be moved.</param>
-    Public Sub MoveObject(count As Integer)
-        Dim oldIndex As Integer = ObjectList.IndexOf(PaintingObject)
-        Dim newIndex As Integer = oldIndex + count
-        MoveObjectTo(newIndex)
-    End Sub
-
-    ''' <summary>
-    ''' Moves the object to the new index.
-    ''' </summary>
-    ''' <param name="newIndex"></param>
-    Public Sub MoveObjectTo(newIndex As Integer)
-        Dim list As PaintingObjectList = ObjectList
-
-        'Check & make index valid
-        If newIndex >= ObjectList.Count Then
-            newIndex = ObjectList.Count - 1
-        ElseIf newIndex < 0 Then
-            newIndex = 0
-        End If
-
-        'Remove object
-        list.Remove(PaintingObject)
-
-        'Insert object at new index
-        list.Insert(newIndex, PaintingObject)
-
-        'Order all objects again
-        list.Layering.OrderAll()
-    End Sub
-
-    ''' <summary>
-    ''' Moves the object to the front.
-    ''' </summary>
-    Public Sub BringToTop()
-        MoveObjectTo(ObjectList.Count - 1)
-    End Sub
-
-    ''' <summary>
-    ''' Moves the object to the back.
-    ''' </summary>
-    Public Sub SendToBack()
-        MoveObjectTo(0)
-    End Sub
-
-    ''' <summary>
-    ''' Moves the object fordward by one 
-    ''' </summary>
-    Public Sub OneToTop()
-        MoveObject(+1)
-    End Sub
-
-    ''' <summary>
-    ''' Moves the object backward by one
-    ''' </summary>
-    Public Sub OneToBack()
-        MoveObject(-1)
-    End Sub
-
-End Class

Pilz.UI/PaintingControl/PaintingObjectListLayering.cs

@@ -0,0 +1,86 @@
+using System;
+using System.Collections.Generic;
+using System.Data;
+using System.Linq;
+
+namespace Pilz.UI
+{
+    public class PaintingObjectListLayering
+    {
+        public PaintingObjectList ObjectList { get; private set; }
+        public Dictionary<int, Func<PaintingObject, bool>> Conditions { get; private set; } = new Dictionary<int, Func<PaintingObject, bool>>();
+
+        /// <summary>
+    /// Get the order function will checkout the conditions.
+    /// </summary>
+    /// <returns>Returns true, if conditions are aviable, otherwise false.</returns>
+        public bool EnableConditions
+        {
+            get
+            {
+                return Conditions.Any();
+            }
+        }
+
+        /// <summary>
+    /// Create a new instance of object list layer managing.
+    /// </summary>
+    /// <param name="list"></param>
+        public PaintingObjectListLayering(PaintingObjectList list)
+        {
+            ObjectList = list;
+        }
+
+        /// <summary>
+    /// Order all objects using the conditions. If no conditions are setted, this method will do nothing.
+    /// </summary>
+        public void OrderAll()
+        {
+            if (EnableConditions)
+            {
+                OrderAllPrivate();
+            }
+        }
+
+        private void OrderAllPrivate()
+        {
+            var list = ObjectList;
+            var listOld = list.ToList();
+            var toRemove = new List<PaintingObject>();
+
+            // Disable raising events
+            ObjectList.EnableRaisingEvents = false;
+
+            // Clear list
+            list.Clear();
+
+            // Add ordered
+            foreach (var kvp in Conditions.OrderBy(n => n.Key))
+            {
+                var func = kvp.Value;
+                foreach (PaintingObject obj in listOld)
+                {
+                    if (func(obj))
+                    {
+                        // Add to list
+                        list.Add(obj);
+
+                        // Add to remove
+                        toRemove.Add(obj);
+                    }
+                }
+
+                // Remove remembered objects
+                foreach (PaintingObject obj in toRemove)
+                    listOld.Remove(obj);
+                toRemove.Clear();
+            }
+
+            // Enable raising events
+            ObjectList.EnableRaisingEvents = true;
+
+            // Refresh
+            ObjectList.MyParent?.Refresh();
+        }
+    }
+}

Pilz.UI/PaintingControl/PaintingObjectListLayering.vb

@@ -1,73 +0,0 @@
-Public Class PaintingObjectListLayering
-
-
-    Public ReadOnly Property ObjectList As PaintingObjectList
-    Public ReadOnly Property Conditions As New Dictionary(Of Integer, Func(Of PaintingObject, Boolean))
-
-    ''' <summary>
-    ''' Get the order function will checkout the conditions.
-    ''' </summary>
-    ''' <returns>Returns true, if conditions are aviable, otherwise false.</returns>
-    Public ReadOnly Property EnableConditions As Boolean
-        Get
-            Return Conditions.Any
-        End Get
-    End Property
-
-    ''' <summary>
-    ''' Create a new instance of object list layer managing.
-    ''' </summary>
-    ''' <param name="list"></param>
-    Public Sub New(list As PaintingObjectList)
-        ObjectList = list
-    End Sub
-
-    ''' <summary>
-    ''' Order all objects using the conditions. If no conditions are setted, this method will do nothing.
-    ''' </summary>
-    Public Sub OrderAll()
-        If EnableConditions Then
-            OrderAllPrivate()
-        End If
-    End Sub
-
-    Private Sub OrderAllPrivate()
-        Dim list As PaintingObjectList = ObjectList
-        Dim listOld As List(Of PaintingObject) = list.ToList
-        Dim toRemove As New List(Of PaintingObject)
-
-        'Disable raising events
-        ObjectList.EnableRaisingEvents = False
-
-        'Clear list
-        list.Clear()
-
-        'Add ordered
-        For Each kvp In Conditions.OrderBy(Function(n) n.Key)
-            Dim func = kvp.Value
-
-            For Each obj As PaintingObject In listOld
-                If func(obj) Then
-                    'Add to list
-                    list.Add(obj)
-
-                    'Add to remove
-                    toRemove.Add(obj)
-                End If
-            Next
-
-            'Remove remembered objects
-            For Each obj As PaintingObject In toRemove
-                listOld.Remove(obj)
-            Next
-            toRemove.Clear()
-        Next
-
-        'Enable raising events
-        ObjectList.EnableRaisingEvents = True
-
-        'Refresh
-        ObjectList.MyParent?.Refresh()
-    End Sub
-
-End Class

Pilz.UI/PaintingControl/PaintingObjectResizing.cs

@@ -0,0 +1,335 @@
+using System;
+using global::System.Drawing;
+using System.Runtime.CompilerServices;
+using global::System.Windows.Forms;
+using global::Pilz.Drawing;
+
+namespace Pilz.UI
+{
+    [Serializable]
+    internal class PaintingObjectResizing
+    {
+        public PaintingObjectResizing()
+        {
+            mObjParent = null;
+            mObjControl = null;
+        }
+
+        public PaintingObjectResizing(PaintingObject obj)
+        {
+            mObjParent = null;
+            mObjControl = null;
+            mObj = obj;
+            mObjControl = mObj.Parent;
+        }
+
+        private PaintingObject _mObj;
+
+        private PaintingObject mObj
+        {
+            [MethodImpl(MethodImplOptions.Synchronized)]
+            get
+            {
+                return _mObj;
+            }
+
+            [MethodImpl(MethodImplOptions.Synchronized)]
+            set
+            {
+                if (_mObj != null)
+                {
+                    _mObj.MouseDown -= mControl_MouseDown;
+                    _mObj.MouseUp -= mControl_MouseUp;
+                    _mObj.Paint -= mControl_Paint;
+                    _mObj.SelectedChanged -= mControl_MouseLeave;
+                    _mObj.ParentChanged -= mObj_ParentChanged;
+                }
+
+                _mObj = value;
+                if (_mObj != null)
+                {
+                    _mObj.MouseDown += mControl_MouseDown;
+                    _mObj.MouseUp += mControl_MouseUp;
+                    _mObj.Paint += mControl_Paint;
+                    _mObj.SelectedChanged += mControl_MouseLeave;
+                    _mObj.ParentChanged += mObj_ParentChanged;
+                }
+            }
+        }
+
+        private Control mObjParent;
+        private Control _mObjControl;
+
+        private Control mObjControl
+        {
+            [MethodImpl(MethodImplOptions.Synchronized)]
+            get
+            {
+                return _mObjControl;
+            }
+
+            [MethodImpl(MethodImplOptions.Synchronized)]
+            set
+            {
+                if (_mObjControl != null)
+                {
+                    _mObjControl.MouseMove -= mControl_MouseMove;
+                    _mObjControl.ParentChanged -= mObjParent_ParentChanged;
+                }
+
+                _mObjControl = value;
+                if (_mObjControl != null)
+                {
+                    _mObjControl.MouseMove += mControl_MouseMove;
+                    _mObjControl.ParentChanged += mObjParent_ParentChanged;
+                }
+            }
+        }
+
+        private bool mMouseDown = false;
+        private EdgeEnum mEdge = EdgeEnum.None;
+        private int mWidth = 4;
+        private int qWidth = 4 * 4;
+        private Rectangle rect = new Rectangle();
+
+        public bool Enabled { get; set; } = true;
+        public SizeF MinimumSize { get; set; } = new SizeF(15f, 15f);
+
+        [Serializable]
+        private enum EdgeEnum
+        {
+            None,
+            Right,
+            Left,
+            Top,
+            Bottom,
+            TopLeft,
+            TopRight,
+            BottomLeft,
+            BottomRight
+        }
+
+        public bool IsResizing
+        {
+            get
+            {
+                return mMouseDown && mEdge != EdgeEnum.None;
+            }
+        }
+
+        public static PaintingObjectResizing ApplyToControl(PaintingObject obj)
+        {
+            return new PaintingObjectResizing(obj);
+        }
+
+        private void mControl_MouseDown(object sender, MouseEventArgs e)
+        {
+            if (e.Button == MouseButtons.Left)
+            {
+                mMouseDown = true;
+            }
+        }
+
+        private void mControl_MouseUp(object sender, MouseEventArgs e)
+        {
+            mMouseDown = false;
+            if (mObj.Selected)
+            {
+                mObj.AutoArrangeToGrid();
+            }
+        }
+
+        private void KeepInRange(ref SizeF size)
+        {
+            if (size.Height < MinimumSize.Height || size.Width < MinimumSize.Width)
+            {
+                size = new SizeF(Math.Max(size.Width, MinimumSize.Width), Math.Max(size.Height, MinimumSize.Height));
+            }
+        }
+
+        private void mControl_MouseMove(object sender, MouseEventArgs e)
+        {
+            if (mMouseDown && mEdge != EdgeEnum.None)
+            {
+                int eX = (int)(e.X + mObj.Parent.Offset.X);
+                int eY = (int)(e.Y + mObj.Parent.Offset.Y);
+                switch (mEdge)
+                {
+                    case EdgeEnum.TopLeft:
+                        {
+                            mObj.SetBounds(eX, eY, (int)(mObj.Width + (mObj.Left - eX)), (int)(mObj.Height + (mObj.Top - eY)));
+                            break;
+                        }
+
+                    case EdgeEnum.TopRight:
+                        {
+                            mObj.SetBounds(mObj.Left, eY, eX - mObj.Left, (int)(mObj.Height + (mObj.Top - eY)));
+                            break;
+                        }
+
+                    case EdgeEnum.BottomRight:
+                        {
+                            mObj.SetBounds(mObj.Left, mObj.Top, eX - mObj.Left, eY - mObj.Top);
+                            break;
+                        }
+
+                    case EdgeEnum.BottomLeft:
+                        {
+                            mObj.SetBounds(eX, mObj.Top, (int)(mObj.Width + (mObj.Left - eX)), eY - mObj.Top);
+                            break;
+                        }
+
+                    case EdgeEnum.Left:
+                        {
+                            mObj.SetBounds(eX, mObj.Top, (int)(mObj.Width + (mObj.Left - eX)), (int)mObj.Height);
+                            break;
+                        }
+
+                    case EdgeEnum.Right:
+                        {
+                            mObj.SetBounds(mObj.Left, mObj.Top, eX - mObj.Left, (int)mObj.Height);
+                            break;
+                        }
+
+                    case EdgeEnum.Top:
+                        {
+                            mObj.SetBounds(mObj.Left, eY, (int)mObj.Width, (int)(mObj.Height + (mObj.Top - eY)));
+                            break;
+                        }
+
+                    case EdgeEnum.Bottom:
+                        {
+                            mObj.SetBounds(mObj.Left, mObj.Top, (int)mObj.Width, eY - mObj.Top);
+                            break;
+                        }
+                }
+
+                var argsize = mObj.Size;
+                KeepInRange(ref argsize);
+                mObj.Size = argsize;
+            }
+            else if (!mMouseDown)
+            {
+                int eXo = e.X;
+                int eYo = e.Y;
+                int realX = (int)(eXo + mObj.Parent.Offset.X);
+                int realY = (int)(eYo + mObj.Parent.Offset.Y);
+                int eXwo = (int)(eXo - mObj.X);
+                int eYwo = (int)(eYo - mObj.Y);
+                int eX = (int)(eXwo + mObj.Parent.Offset.X);
+                int eY = (int)(eYwo + mObj.Parent.Offset.Y);
+                var eLocation = new Point(eX, eY);
+                RectangleF extRect = mObj.RectangleExtended;
+                var oldRect = mObj.Rectangle;
+                var newRect = new RectangleF();
+                newRect.X = extRect.X - oldRect.X;
+                newRect.Y = extRect.Y - oldRect.Y;
+                newRect.Width = (extRect.Width - oldRect.Width) / 2f;
+                newRect.Height = (extRect.Height - oldRect.Height) / 2f;
+                bool setToNone = false;
+                bool isOnTop = ReferenceEquals(mObj.Parent.GetObject(new PointF(realX, realY), true), mObj);
+                if (Enabled && isOnTop)
+                {
+                    switch (true)
+                    {
+                        case object _ when HelpfulDrawingFunctions.IsPointInRectangle(eLocation, new Rectangle((int)newRect.X, (int)newRect.Y, (int)newRect.Width, (int)newRect.Height)):
+                            {
+                                mObj.Cursor = Cursors.SizeNWSE;
+                                mEdge = EdgeEnum.TopLeft;
+                                break;
+                            }
+
+                        case object _ when HelpfulDrawingFunctions.IsPointInRectangle(eLocation, new Rectangle((int)mObj.Width, (int)newRect.Y, (int)newRect.Width, (int)newRect.Height)):
+                            {
+                                mObj.Cursor = Cursors.SizeNESW;
+                                mEdge = EdgeEnum.TopRight;
+                                break;
+                            }
+
+                        case object _ when HelpfulDrawingFunctions.IsPointInRectangle(eLocation, new Rectangle((int)mObj.Width, (int)mObj.Height, (int)newRect.Width, (int)newRect.Height)):
+                            {
+                                mObj.Cursor = Cursors.SizeNWSE;
+                                mEdge = EdgeEnum.BottomRight;
+                                break;
+                            }
+
+                        case object _ when HelpfulDrawingFunctions.IsPointInRectangle(eLocation, new Rectangle((int)newRect.X, (int)mObj.Height, (int)newRect.Width, (int)newRect.Height)):
+                            {
+                                mObj.Cursor = Cursors.SizeNESW;
+                                mEdge = EdgeEnum.BottomLeft;
+                                break;
+                            }
+
+                        case object _ when HelpfulDrawingFunctions.IsPointInRectangle(eLocation, new Rectangle((int)-newRect.Width, 0, (int)newRect.Width, (int)mObj.Height)):
+                            {
+                                mObj.Cursor = Cursors.SizeWE;
+                                mEdge = EdgeEnum.Left;
+                                break;
+                            }
+
+                        case object _ when HelpfulDrawingFunctions.IsPointInRectangle(eLocation, new Rectangle((int)mObj.Width, 0, (int)newRect.Width, (int)mObj.Height)):
+                            {
+                                mObj.Cursor = Cursors.SizeWE;
+                                mEdge = EdgeEnum.Right;
+                                break;
+                            }
+
+                        case object _ when HelpfulDrawingFunctions.IsPointInRectangle(eLocation, new Rectangle(0, (int)-newRect.Height, (int)mObj.Width, (int)newRect.Height)):
+                            {
+                                mObj.Cursor = Cursors.SizeNS;
+                                mEdge = EdgeEnum.Top;
+                                break;
+                            }
+
+                        case object _ when HelpfulDrawingFunctions.IsPointInRectangle(eLocation, new Rectangle(0, (int)mObj.Height, (int)mObj.Width, (int)newRect.Height)):
+                            {
+                                mObj.Cursor = Cursors.SizeNS;
+                                mEdge = EdgeEnum.Bottom;
+                                break;
+                            }
+
+                        default:
+                            {
+                                setToNone = true;
+                                break;
+                            }
+                    }
+                }
+                else
+                {
+                    setToNone = true;
+                }
+
+                if (setToNone)
+                {
+                    mObj.Cursor = Cursors.Default;
+                    mEdge = EdgeEnum.None;
+                }
+            }
+        }
+
+        private void mControl_Paint(PaintingObject sender, PaintEventArgs e)
+        {
+            // e.Graphics.FillRectangle(brush, rect)
+        }
+
+        private void mControl_MouseLeave(PaintingObject sender, EventArgs e)
+        {
+            if (!sender.Selected)
+            {
+                mEdge = EdgeEnum.None;
+            }
+        }
+
+        private void mObjParent_ParentChanged(object sender, EventArgs e)
+        {
+            mObjParent = mObjControl.Parent;
+        }
+
+        private void mObj_ParentChanged(PaintingObject sender, EventArgs e)
+        {
+            mObjControl = mObj.Parent;
+            mObjParent = mObjControl?.Parent;
+        }
+    }
+}

Pilz.UI/PaintingControl/PaintingObjectResizing.vb

@@ -1,177 +0,0 @@
-Imports System.Drawing
-Imports System.Windows.Forms
-Imports Newtonsoft.Json
-Imports Pilz.Drawing
-
-<Serializable> Friend Class PaintingObjectResizing
-
-    Private WithEvents mObj As PaintingObject
-    Private WithEvents mObjParent As Control = Nothing
-    Private WithEvents mObjControl As Control = Nothing
-    Private mMouseDown As Boolean = False
-    Private mEdge As EdgeEnum = EdgeEnum.None
-    Private mWidth As Integer = 4
-    Private qWidth As Integer = 4 * 4
-    Private rect As New Rectangle
-
-    Public Property Enabled As Boolean = True
-    Public Property MinimumSize As New SizeF(15, 15)
-
-    <Serializable> Private Enum EdgeEnum
-        None
-        Right
-        Left
-        Top
-        Bottom
-        TopLeft
-        TopRight
-        BottomLeft
-        BottomRight
-    End Enum
-
-    Public ReadOnly Property IsResizing As Boolean
-        Get
-            Return mMouseDown AndAlso mEdge <> EdgeEnum.None
-        End Get
-    End Property
-
-    Public Sub New(obj As PaintingObject)
-        mObj = obj
-        mObjControl = mObj.Parent
-    End Sub
-
-    Shared Function ApplyToControl(obj As PaintingObject) As PaintingObjectResizing
-        Return New PaintingObjectResizing(obj)
-    End Function
-
-    Private Sub mControl_MouseDown(sender As Object, e As MouseEventArgs) Handles mObj.MouseDown
-        If e.Button = System.Windows.Forms.MouseButtons.Left Then
-            mMouseDown = True
-        End If
-    End Sub
-
-    Private Sub mControl_MouseUp(sender As Object, e As MouseEventArgs) Handles mObj.MouseUp
-        mMouseDown = False
-
-        If mObj.Selected Then
-            mObj.AutoArrangeToGrid()
-        End If
-    End Sub
-
-    Private Sub KeepInRange(ByRef size As SizeF)
-        If size.Height < MinimumSize.Height OrElse size.Width < MinimumSize.Width Then
-            size = New SizeF(Math.Max(size.Width, MinimumSize.Width),
-                             Math.Max(size.Height, MinimumSize.Height))
-        End If
-    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
-            Dim eY As Integer = e.Y + mObj.Parent.Offset.Y
-
-            Select Case mEdge
-                Case EdgeEnum.TopLeft
-                    mObj.SetBounds(eX, eY, mObj.Width + (mObj.Left - eX), mObj.Height + (mObj.Top - eY))
-                Case EdgeEnum.TopRight
-                    mObj.SetBounds(mObj.Left, eY, eX - mObj.Left, mObj.Height + (mObj.Top - eY))
-                Case EdgeEnum.BottomRight
-                    mObj.SetBounds(mObj.Left, mObj.Top, eX - mObj.Left, eY - mObj.Top)
-                Case EdgeEnum.BottomLeft
-                    mObj.SetBounds(eX, mObj.Top, mObj.Width + (mObj.Left - eX), eY - mObj.Top)
-                Case EdgeEnum.Left
-                    mObj.SetBounds(eX, mObj.Top, mObj.Width + (mObj.Left - eX), mObj.Height)
-                Case EdgeEnum.Right
-                    mObj.SetBounds(mObj.Left, mObj.Top, eX - mObj.Left, mObj.Height)
-                Case EdgeEnum.Top
-                    mObj.SetBounds(mObj.Left, eY, mObj.Width, mObj.Height + (mObj.Top - eY))
-                Case EdgeEnum.Bottom
-                    mObj.SetBounds(mObj.Left, mObj.Top, mObj.Width, eY - mObj.Top)
-            End Select
-
-            KeepInRange(mObj.Size)
-
-        ElseIf Not mMouseDown Then
-
-            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
-            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
-
-            Dim newRect As New RectangleF
-            newRect.X = extRect.X - oldRect.X
-            newRect.Y = extRect.Y - oldRect.Y
-            newRect.Width = (extRect.Width - oldRect.Width) / 2
-            newRect.Height = (extRect.Height - oldRect.Height) / 2
-
-            Dim setToNone As Boolean = False
-            Dim isOnTop As Boolean = mObj.Parent.GetObject(New PointF(realX, realY), True) Is mObj
-
-            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
-                        mEdge = EdgeEnum.TopLeft
-                    Case HelpfulDrawingFunctions.IsPointInRectangle(eLocation, New Rectangle(mObj.Width, newRect.Y, newRect.Width, newRect.Height))
-                        mObj.Cursor = Cursors.SizeNESW
-                        mEdge = EdgeEnum.TopRight
-                    Case HelpfulDrawingFunctions.IsPointInRectangle(eLocation, New Rectangle(mObj.Width, mObj.Height, newRect.Width, newRect.Height))
-                        mObj.Cursor = Cursors.SizeNWSE
-                        mEdge = EdgeEnum.BottomRight
-                    Case HelpfulDrawingFunctions.IsPointInRectangle(eLocation, New Rectangle(newRect.X, mObj.Height, newRect.Width, newRect.Height))
-                        mObj.Cursor = Cursors.SizeNESW
-                        mEdge = EdgeEnum.BottomLeft
-                    Case HelpfulDrawingFunctions.IsPointInRectangle(eLocation, New Rectangle(-newRect.Width, 0, newRect.Width, mObj.Height))
-                        mObj.Cursor = Cursors.SizeWE
-                        mEdge = EdgeEnum.Left
-                    Case HelpfulDrawingFunctions.IsPointInRectangle(eLocation, New Rectangle(mObj.Width, 0, newRect.Width, mObj.Height))
-                        mObj.Cursor = Cursors.SizeWE
-                        mEdge = EdgeEnum.Right
-                    Case HelpfulDrawingFunctions.IsPointInRectangle(eLocation, New Rectangle(0, -newRect.Height, mObj.Width, newRect.Height))
-                        mObj.Cursor = Cursors.SizeNS
-                        mEdge = EdgeEnum.Top
-                    Case HelpfulDrawingFunctions.IsPointInRectangle(eLocation, New Rectangle(0, mObj.Height, mObj.Width, newRect.Height))
-                        mObj.Cursor = Cursors.SizeNS
-                        mEdge = EdgeEnum.Bottom
-                    Case Else
-                        setToNone = True
-                End Select
-            Else
-                setToNone = True
-            End If
-
-            If setToNone Then
-                mObj.Cursor = Cursors.Default
-                mEdge = EdgeEnum.None
-            End If
-        End If
-    End Sub
-
-    Private Sub mControl_Paint(sender As PaintingObject, e As PaintEventArgs) Handles mObj.Paint
-        'e.Graphics.FillRectangle(brush, rect)
-    End Sub
-
-    Private Sub mControl_MouseLeave(ByVal sender As PaintingObject, ByVal e As EventArgs) Handles mObj.SelectedChanged
-        If Not sender.Selected Then
-            mEdge = EdgeEnum.None
-        End If
-    End Sub
-
-    Private Sub mObjParent_ParentChanged(sender As Object, e As EventArgs) Handles mObjControl.ParentChanged
-        mObjParent = mObjControl.Parent
-    End Sub
-
-    Private Sub mObj_ParentChanged(sender As PaintingObject, e As EventArgs) Handles mObj.ParentChanged
-        mObjControl = mObj.Parent
-        mObjParent = mObjControl?.Parent
-    End Sub
-
-End Class

Pilz.UI/Pilz.UI.csproj

@@ -4,7 +4,7 @@
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <ProjectGuid>{827C60BF-4D92-4D39-92F0-4285923266A1}</ProjectGuid>
+    <ProjectGuid>{3058E1D4-81CA-02C8-10A8-88FBF0A55201}</ProjectGuid>
     <OutputType>Library</OutputType>
     <RootNamespace>Pilz.UI</RootNamespace>
     <AssemblyName>Pilz.UI</AssemblyName>
@@ -12,6 +12,8 @@
     <MyType>Windows</MyType>
     <TargetFrameworkVersion>v4.7.2</TargetFrameworkVersion>
     <TargetFrameworkProfile />
+    <DefaultItemExcludes>$(DefaultItemExcludes);$(ProjectDir)**\*.vb</DefaultItemExcludes>
+    <LangVersion>latest</LangVersion>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <DebugSymbols>true</DebugSymbols>
@@ -67,6 +69,7 @@
     <CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
   </PropertyGroup>
   <ItemGroup>
+    <Reference Include="Microsoft.VisualBasic" />
     <Reference Include="System" />
     <Reference Include="System.Data" />
     <Reference Include="System.Drawing" />
@@ -89,62 +92,65 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="PaintingControl\ImageProperties.vb" />
-    <Compile Include="PaintingControl\IPaintingObjectContainer.vb" />
-    <Compile Include="PaintingControl\PaintingControlDelegates.vb" />
-    <Compile Include="PaintingControl\DefaultDrawMethodes.vb" />
-    <Compile Include="PaintingControl\EventArgs\PaintingObjectPaintEventArgs.vb" />
-    <Compile Include="PaintingControl\EventArgs\PaintingObjectEventArgs.vb" />
-    <Compile Include="PaintingControl\PaintingObjectLayering.vb" />
-    <Compile Include="PaintingControl\PaintingObjectListLayering.vb" />
-    <Compile Include="PaintingControl\PaintingControl.vb">
+    <Compile Include="My Project\MyNamespace.Static.1.Designer.cs" />
+    <Compile Include="My Project\MyNamespace.Static.2.Designer.cs" />
+    <Compile Include="My Project\MyNamespace.Static.3.Designer.cs" />
+    <Compile Include="PaintingControl\ImageProperties.cs" />
+    <Compile Include="PaintingControl\IPaintingObjectContainer.cs" />
+    <Compile Include="PaintingControl\PaintingControlDelegates.cs" />
+    <Compile Include="PaintingControl\DefaultDrawMethodes.cs" />
+    <Compile Include="PaintingControl\EventArgs\PaintingObjectPaintEventArgs.cs" />
+    <Compile Include="PaintingControl\EventArgs\PaintingObjectEventArgs.cs" />
+    <Compile Include="PaintingControl\PaintingObjectLayering.cs" />
+    <Compile Include="PaintingControl\PaintingObjectListLayering.cs" />
+    <Compile Include="PaintingControl\PaintingControl.cs">
       <SubType>UserControl</SubType>
     </Compile>
-    <Compile Include="My Project\AssemblyInfo.vb" />
-    <Compile Include="My Project\Application.Designer.vb">
+    <Compile Include="Properties\AssemblyInfo.cs" />
+    <Compile Include="My Project\Application.Designer.cs">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
     </Compile>
-    <Compile Include="My Project\Resources.Designer.vb">
+    <Compile Include="Resources.Designer.cs">
       <AutoGen>True</AutoGen>
       <DesignTime>True</DesignTime>
       <DependentUpon>Resources.resx</DependentUpon>
     </Compile>
-    <Compile Include="My Project\Settings.Designer.vb">
+    <Compile Include="Properties\Settings.Designer.cs">
       <AutoGen>True</AutoGen>
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
-    <Compile Include="PaintingControl\PaintingObject.vb" />
-    <Compile Include="PaintingControl\PaintingObjectResizing.vb" />
-    <Compile Include="Utilities\DrawingControl.vb" />
-    <Compile Include="Utilities\User32Bridge.vb" />
+    <Compile Include="PaintingControl\PaintingObject.cs" />
+    <Compile Include="PaintingControl\PaintingObjectResizing.cs" />
+    <Compile Include="Utilities\DrawingControl.cs" />
+    <Compile Include="Utilities\User32Bridge.cs" />
   </ItemGroup>
   <ItemGroup>
-    <EmbeddedResource Include="My Project\Resources.resx">
-      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
-      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
-      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+    <EmbeddedResource Include="Resources.resx">
+      <Generator>ResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.cs</LastGenOutput>
+      <CustomToolNamespace>Pilz.UI.My.Resources</CustomToolNamespace>
       <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="PaintingControl\PaintingControl.resx">
-      <DependentUpon>PaintingControl.vb</DependentUpon>
+      <DependentUpon>PaintingControl.cs</DependentUpon>
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
-      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+      <LastGenOutput>Application.Designer.cs</LastGenOutput>
     </None>
-    <None Include="My Project\Settings.settings">
+    <None Include="Properties\Settings.settings">
       <Generator>SettingsSingleFileGenerator</Generator>
-      <CustomToolNamespace>My</CustomToolNamespace>
-      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>Pilz.UI.My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.cs</LastGenOutput>
     </None>
   </ItemGroup>
   <ItemGroup>
-    <ProjectReference Include="..\Pilz.Drawing\Pilz.Drawing.vbproj">
-      <Project>{1a0b8106-2449-4908-b5e1-a00d8e9cf8f6}</Project>
+    <ProjectReference Include="..\Pilz.Drawing\Pilz.Drawing.csproj">
+      <Project>{A82F006D-E811-06F9-37B9-6A73EC0BCC56}</Project>
       <Name>Pilz.Drawing</Name>
     </ProjectReference>
   </ItemGroup>
@@ -153,5 +159,5 @@
       <Version>12.0.3</Version>
     </PackageReference>
   </ItemGroup>
-  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
 </Project>

Pilz.UI/Properties/AssemblyInfo.cs

@@ -0,0 +1,35 @@
+using global::System;
+using global::System.Reflection;
+using global::System.Runtime.InteropServices;
+
+// Allgemeine Informationen über eine Assembly werden über die folgenden
+// Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+// die einer Assembly zugeordnet sind.
+
+// Werte der Assemblyattribute überprüfen
+
+[assembly: AssemblyTitle("PaintingControls")]
+[assembly: AssemblyDescription("")]
+[assembly: AssemblyCompany("Dr. Schneider Kunststoffwerke GmbH")]
+[assembly: AssemblyProduct("PaintingControls")]
+[assembly: AssemblyCopyright("Copyright © Pascal Schedel 2018")]
+[assembly: AssemblyTrademark("")]
+[assembly: ComVisible(false)]
+
+// Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
+[assembly: Guid("35e33313-ac05-4192-9cc7-c60016d65657")]
+
+// Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+// 
+// Hauptversion
+// Nebenversion
+// Buildnummer
+// Revision
+// 
+// Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
+// übernehmen, indem Sie "*" eingeben:
+// <Assembly: AssemblyVersion("1.0.*")>
+
+[assembly: AssemblyVersion("1.0.0.0")]
+[assembly: AssemblyFileVersion("1.0.0.0")]
+

Pilz.UI/Properties/Settings.Designer.cs

@@ -0,0 +1,26 @@
+//------------------------------------------------------------------------------
+// <auto-generated>
+//     Dieser Code wurde von einem Tool generiert.
+//     Laufzeitversion:4.0.30319.42000
+//
+//     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+//     der Code erneut generiert wird.
+// </auto-generated>
+//------------------------------------------------------------------------------
+
+namespace Pilz.UI.My {
+    
+    
+    [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()]
+    [global::System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0")]
+    internal sealed partial class Settings : global::System.Configuration.ApplicationSettingsBase {
+        
+        private static Settings defaultInstance = ((Settings)(global::System.Configuration.ApplicationSettingsBase.Synchronized(new Settings())));
+        
+        public static Settings Default {
+            get {
+                return defaultInstance;
+            }
+        }
+    }
+}

Pilz.UI/Resources.Designer.cs

@@ -0,0 +1,69 @@
+// ------------------------------------------------------------------------------
+// <auto-generated>
+// Dieser Code wurde von einem Tool generiert.
+// Laufzeitversion:4.0.30319.42000
+// 
+// Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+// der Code erneut generiert wird.
+// </auto-generated>
+// ------------------------------------------------------------------------------
+
+using System.Diagnostics;
+using Microsoft.VisualBasic;
+
+namespace Pilz.UI.My.Resources
+{
+
+    // Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    // -Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    // Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    // mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    /// <summary>
+    /// Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    /// </summary>
+    [System.CodeDom.Compiler.GeneratedCode("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0")]
+    [DebuggerNonUserCode()]
+    [System.Runtime.CompilerServices.CompilerGenerated()]
+    [HideModuleName()]
+    internal static class Resources
+    {
+        private static System.Resources.ResourceManager resourceMan;
+        private static System.Globalization.CultureInfo resourceCulture;
+
+        /// <summary>
+        /// Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        /// </summary>
+        [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Advanced)]
+        internal static System.Resources.ResourceManager ResourceManager
+        {
+            get
+            {
+                if (ReferenceEquals(resourceMan, null))
+                {
+                    var temp = new System.Resources.ResourceManager("Pilz.UI.Resources", typeof(Resources).Assembly);
+                    resourceMan = temp;
+                }
+
+                return resourceMan;
+            }
+        }
+
+        /// <summary>
+        /// Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        /// Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        /// </summary>
+        [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Advanced)]
+        internal static System.Globalization.CultureInfo Culture
+        {
+            get
+            {
+                return resourceCulture;
+            }
+
+            set
+            {
+                resourceCulture = value;
+            }
+        }
+    }
+}

Pilz.UI/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Pilz.UI/Utilities/DrawingControl.cs

@@ -0,0 +1,26 @@
+using global::System.Windows.Forms;
+
+namespace Pilz.UI.Utils
+{
+    public static class DrawingControl
+    {
+        private const int WM_SETREDRAW = 11;
+
+        public static void SuspendDrawing(this Control control)
+        {
+            User32Bridge.SendMessage(control.Handle, WM_SETREDRAW, false, 0);
+        }
+
+        public static void ResumeDrawing(this Control control)
+        {
+            control.ResumeDrawing(true);
+        }
+
+        public static void ResumeDrawing(this Control control, bool redraw)
+        {
+            User32Bridge.SendMessage(control.Handle, WM_SETREDRAW, true, 0);
+            if (redraw)
+                control.Refresh();
+        }
+    }
+}

Pilz.UI/Utilities/DrawingControl.vb

@@ -1,28 +0,0 @@
-Imports System.Runtime.CompilerServices
-Imports System.Windows.Forms
-
-Namespace Utils
-
-    Public Module DrawingControl
-
-        Private Const WM_SETREDRAW = 11
-
-        <Extension>
-        Public Sub SuspendDrawing(control As Control)
-            SendMessage(control.Handle, WM_SETREDRAW, False, 0)
-        End Sub
-
-        <Extension>
-        Public Sub ResumeDrawing(control As Control)
-            ResumeDrawing(control, True)
-        End Sub
-
-        <Extension>
-        Public Sub ResumeDrawing(control As Control, redraw As Boolean)
-            SendMessage(control.Handle, WM_SETREDRAW, True, 0)
-            If redraw Then control.Refresh()
-        End Sub
-
-    End Module
-
-End Namespace

Pilz.UI/Utilities/User32Bridge.cs

@@ -0,0 +1,11 @@
+using System;
+using System.Runtime.InteropServices;
+
+namespace Pilz.UI
+{
+    public static class User32Bridge
+    {
+        [DllImport("user32.dll", CharSet = CharSet.Auto)]
+        internal static extern int SendMessage(IntPtr hWnd, int Msg, bool wParam, int lParam);
+    }
+}

Pilz.UI/Utilities/User32Bridge.vb

@@ -1,5 +0,0 @@
-Public Module User32Bridge
-
-    Friend Declare Auto Function SendMessage Lib "user32.dll" (hWnd As IntPtr, Msg As Integer, wParam As Boolean, lParam As Integer) As Integer
-
-End Module