revert to VB and update to new project file format
This commit is contained in:
schedpas
17
Pilz.UI/HelpfulFunctions.vb
Normal file
17
Pilz.UI/HelpfulFunctions.vb
Normal file
@@ -0,0 +1,17 @@
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Module HelpfulFunctions
|
||||
|
||||
Public Sub Sleep(milliseconds As Integer)
|
||||
Dim stopw As New Stopwatch
|
||||
|
||||
stopw.Start()
|
||||
|
||||
Do While stopw.ElapsedMilliseconds < milliseconds
|
||||
Application.DoEvents()
|
||||
Loop
|
||||
|
||||
stopw.Stop()
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
11
Pilz.UI/My Project/Application.Designer.cs
generated
11
Pilz.UI/My Project/Application.Designer.cs
generated
@@ -1,11 +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>
|
||||
// ------------------------------------------------------------------------------
|
||||
|
||||
|
||||
13
Pilz.UI/My Project/Application.Designer.vb
generated
Normal file
13
Pilz.UI/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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
|
||||
|
||||
192
Pilz.UI/My Project/MyNamespace.Static.1.Designer.cs
generated
192
Pilz.UI/My Project/MyNamespace.Static.1.Designer.cs
generated
@@ -1,192 +0,0 @@
|
||||
// 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 */
|
||||
253
Pilz.UI/My Project/MyNamespace.Static.2.Designer.cs
generated
253
Pilz.UI/My Project/MyNamespace.Static.2.Designer.cs
generated
@@ -1,253 +0,0 @@
|
||||
// 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;
|
||||
}
|
||||
}
|
||||
}
|
||||
14
Pilz.UI/My Project/MyNamespace.Static.3.Designer.cs
generated
14
Pilz.UI/My Project/MyNamespace.Static.3.Designer.cs
generated
@@ -1,14 +0,0 @@
|
||||
// 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
|
||||
{
|
||||
}
|
||||
}
|
||||
63
Pilz.UI/My Project/Resources.Designer.vb
generated
Normal file
63
Pilz.UI/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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
|
||||
73
Pilz.UI/My Project/Settings.Designer.vb
generated
Normal file
73
Pilz.UI/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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
|
||||
@@ -1,263 +0,0 @@
|
||||
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);
|
||||
}
|
||||
}
|
||||
}
|
||||
233
Pilz.UI/PaintingControl/DefaultDrawMethodes.vb
Normal file
233
Pilz.UI/PaintingControl/DefaultDrawMethodes.vb
Normal file
@@ -0,0 +1,233 @@
|
||||
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
|
||||
@@ -1,14 +0,0 @@
|
||||
using System;
|
||||
|
||||
namespace Pilz.UI
|
||||
{
|
||||
public class PaintingObjectEventArgs : EventArgs
|
||||
{
|
||||
public PaintingObject[] PaintingObjects { get; private set; } = null;
|
||||
|
||||
internal PaintingObjectEventArgs(PaintingObject[] paintingObjects)
|
||||
{
|
||||
PaintingObjects = paintingObjects;
|
||||
}
|
||||
}
|
||||
}
|
||||
16
Pilz.UI/PaintingControl/EventArgs/PaintingObjectEventArgs.vb
Normal file
16
Pilz.UI/PaintingControl/EventArgs/PaintingObjectEventArgs.vb
Normal file
@@ -0,0 +1,16 @@
|
||||
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
|
||||
@@ -1,86 +0,0 @@
|
||||
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;
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -0,0 +1,78 @@
|
||||
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
|
||||
@@ -1,7 +0,0 @@
|
||||
|
||||
namespace Pilz.UI
|
||||
{
|
||||
public interface IPaintingObjectContainer
|
||||
{
|
||||
}
|
||||
}
|
||||
5
Pilz.UI/PaintingControl/IPaintingObjectContainer.vb
Normal file
5
Pilz.UI/PaintingControl/IPaintingObjectContainer.vb
Normal file
@@ -0,0 +1,5 @@
|
||||
Imports System.Drawing
|
||||
|
||||
Public Interface IPaintingObjectContainer
|
||||
|
||||
End Interface
|
||||
@@ -1,10 +0,0 @@
|
||||
|
||||
namespace Pilz.UI
|
||||
{
|
||||
public class PaintingObjectImageProperties
|
||||
{
|
||||
public bool FlipY { get; set; } = false;
|
||||
public bool FlipX { get; set; } = false;
|
||||
public ushort Rotate { get; set; } = 0;
|
||||
}
|
||||
}
|
||||
5
Pilz.UI/PaintingControl/ImageProperties.vb
Normal file
5
Pilz.UI/PaintingControl/ImageProperties.vb
Normal file
@@ -0,0 +1,5 @@
|
||||
Public Class PaintingObjectImageProperties
|
||||
Public Property FlipY As Boolean = False
|
||||
Public Property FlipX As Boolean = False
|
||||
Public Property Rotate As UShort = 0
|
||||
End Class
|
||||
@@ -1,833 +0,0 @@
|
||||
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);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
680
Pilz.UI/PaintingControl/PaintingControl.vb
Normal file
680
Pilz.UI/PaintingControl/PaintingControl.vb
Normal file
@@ -0,0 +1,680 @@
|
||||
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 CInt(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
|
||||
@@ -1,11 +0,0 @@
|
||||
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);
|
||||
}
|
||||
6
Pilz.UI/PaintingControl/PaintingControlDelegates.vb
Normal file
6
Pilz.UI/PaintingControl/PaintingControlDelegates.vb
Normal file
@@ -0,0 +1,6 @@
|
||||
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)
|
||||
@@ -1,873 +0,0 @@
|
||||
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
|
||||
}
|
||||
}
|
||||
617
Pilz.UI/PaintingControl/PaintingObject.vb
Normal file
617
Pilz.UI/PaintingControl/PaintingObject.vb
Normal file
@@ -0,0 +1,617 @@
|
||||
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
|
||||
@@ -1,100 +0,0 @@
|
||||
|
||||
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);
|
||||
}
|
||||
}
|
||||
}
|
||||
85
Pilz.UI/PaintingControl/PaintingObjectLayering.vb
Normal file
85
Pilz.UI/PaintingControl/PaintingObjectLayering.vb
Normal file
@@ -0,0 +1,85 @@
|
||||
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
|
||||
@@ -1,86 +0,0 @@
|
||||
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();
|
||||
}
|
||||
}
|
||||
}
|
||||
73
Pilz.UI/PaintingControl/PaintingObjectListLayering.vb
Normal file
73
Pilz.UI/PaintingControl/PaintingObjectListLayering.vb
Normal file
@@ -0,0 +1,73 @@
|
||||
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
|
||||
@@ -1,335 +0,0 @@
|
||||
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;
|
||||
}
|
||||
}
|
||||
}
|
||||
177
Pilz.UI/PaintingControl/PaintingObjectResizing.vb
Normal file
177
Pilz.UI/PaintingControl/PaintingObjectResizing.vb
Normal file
@@ -0,0 +1,177 @@
|
||||
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
|
||||
@@ -2,15 +2,9 @@
|
||||
<PropertyGroup>
|
||||
<MyType>Windows</MyType>
|
||||
<TargetFramework>net48</TargetFramework>
|
||||
<DefaultItemExcludes>$(DefaultItemExcludes);$(ProjectDir)**\*.vb</DefaultItemExcludes>
|
||||
<LangVersion>latest</LangVersion>
|
||||
<AssemblyTitle>PaintingControls</AssemblyTitle>
|
||||
<Company>Dr. Schneider Kunststoffwerke GmbH</Company>
|
||||
<Product>PaintingControls</Product>
|
||||
<Copyright>Copyright © Pascal Schedel 2018</Copyright>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<DocumentationFile>Pilz.UI.xml</DocumentationFile>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DefineDebug>true</DefineDebug>
|
||||
@@ -43,11 +37,13 @@
|
||||
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<PackageReference Include="System.Data.DataSetExtensions" Version="4.*" />
|
||||
<PackageReference Include="System.Net.Http" Version="4.*" />
|
||||
<PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
|
||||
<PackageReference Include="System.Net.Http" Version="4.3.4" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<PackageReference Include="Newtonsoft.Json" Version="12.0.3" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="Microsoft.VisualBasic" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
@@ -62,50 +58,47 @@
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Update="PaintingControl\PaintingControl.cs">
|
||||
<Compile Update="PaintingControl\PaintingControl.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Update="My Project\Application.Designer.cs">
|
||||
<Compile Update="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Update="Resources.Designer.cs">
|
||||
<Compile Update="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Update="Properties\Settings.Designer.cs">
|
||||
<Compile Update="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Update="Resources.resx">
|
||||
<Generator>ResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.cs</LastGenOutput>
|
||||
<CustomToolNamespace>Pilz.UI.My.Resources</CustomToolNamespace>
|
||||
<EmbeddedResource Update="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Update="PaintingControl\PaintingControl.resx">
|
||||
<DependentUpon>PaintingControl.cs</DependentUpon>
|
||||
<DependentUpon>PaintingControl.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.cs</LastGenOutput>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="Properties\Settings.settings">
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>Pilz.UI.My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.cs</LastGenOutput>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<ProjectReference Include="..\Pilz.Drawing\Pilz.Drawing.csproj" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<PackageReference Include="Newtonsoft.Json" Version="12.0.3" />
|
||||
<ProjectReference Include="..\Pilz.Drawing\Pilz.Drawing.vbproj" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
@@ -1,8 +0,0 @@
|
||||
using global::System;
|
||||
using global::System.Reflection;
|
||||
using global::System.Runtime.InteropServices;
|
||||
[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")]
|
||||
|
||||
26
Pilz.UI/Properties/Settings.Designer.cs
generated
26
Pilz.UI/Properties/Settings.Designer.cs
generated
@@ -1,26 +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>
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
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;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
69
Pilz.UI/Resources.Designer.cs
generated
69
Pilz.UI/Resources.Designer.cs
generated
@@ -1,69 +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>
|
||||
// ------------------------------------------------------------------------------
|
||||
|
||||
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;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -1,117 +0,0 @@
|
||||
<?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>
|
||||
@@ -1,26 +0,0 @@
|
||||
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();
|
||||
}
|
||||
}
|
||||
}
|
||||
28
Pilz.UI/Utilities/DrawingControl.vb
Normal file
28
Pilz.UI/Utilities/DrawingControl.vb
Normal file
@@ -0,0 +1,28 @@
|
||||
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
|
||||
@@ -1,11 +0,0 @@
|
||||
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);
|
||||
}
|
||||
}
|
||||
5
Pilz.UI/Utilities/User32Bridge.vb
Normal file
5
Pilz.UI/Utilities/User32Bridge.vb
Normal file
@@ -0,0 +1,5 @@
|
||||
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
|
||||
Reference in New Issue
Block a user