Commit Changes

Controls.DocumentViewer/DocumentViewer.vb

@@ -127,7 +127,7 @@ Public Class DocumentViewer
     End Sub
     Private Sub FreeFile()
         Try
-            If Len(_FilePath) Then
+            If Len(_FilePath) OrElse _Fileinfo Is Nothing Then
                 Exit Sub
             End If
             Dim oExtension As String = _Fileinfo.Extension.ToUpper

Controls.DocumentViewer/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("DocumentViewer")>
-<Assembly: AssemblyCopyright("Copyright ©  2019")>
+<Assembly: AssemblyCopyright("Copyright ©  2021")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.4.3.0")>
+<Assembly: AssemblyVersion("1.4.4.0")>
-<Assembly: AssemblyFileVersion("1.4.3.0")>
+<Assembly: AssemblyFileVersion("1.4.4.0")>

Controls.LookupGrid/LookupControl.vbproj

@@ -136,8 +136,21 @@
     <Compile Include="LookupControl3.vb">
       <SubType>Component</SubType>
     </Compile>
+    <Compile Include="Resources\Strings.en.Designer.vb">
+      <DependentUpon>Strings.en.resx</DependentUpon>
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+    </Compile>
+    <Compile Include="Resources\Strings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Strings.resx</DependentUpon>
+    </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="frmLookupGrid.en.resx">
+      <DependentUpon>frmLookupGrid.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmLookupGrid.resx">
       <DependentUpon>frmLookupGrid.vb</DependentUpon>
     </EmbeddedResource>
@@ -157,6 +170,16 @@
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
       <SubType>Designer</SubType>
     </EmbeddedResource>
+    <EmbeddedResource Include="Resources\Strings.en.resx">
+      <Generator>ResXFileCodeGenerator</Generator>
+      <LastGenOutput>Strings.en.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Resources\Strings.resx">
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <Generator>ResXFileCodeGenerator</Generator>
+      <LastGenOutput>Strings.Designer.vb</LastGenOutput>
+    </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
     <None Include="My Project\Application.myapp">

Controls.LookupGrid/LookupControl2.vb

@@ -53,15 +53,15 @@ Public Class LookupControl2
 
     Private Const TAG_DROPDOWN = "openDropdown"
     Private Const TAG_BUTTON_LOOKUP_FORM = "openLookupForm"
-    Private Const TEXT_NO_RECORDS = "Keine Datensätze ausgewählt"
-    Private Const TEXT_ONE_RECORD = "Ein Datensatz ausgewählt"
-    Private Const TEXT_N_RECORDS = "{0} Datensätze ausgewählt"
 
+    Private _R As Resources.ResourceManager = My.Resources.Strings.ResourceManager
     Private _SelectedValues As New List(Of String)
     Private _MultiSelect As Boolean
 
     Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
     Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents fProperties As RepositoryItemGridLookUpEdit
+    Friend WithEvents fPropertiesView As DevExpress.XtraGrid.Views.Grid.GridView
     Private _ReadOnly As Boolean = False
 
     Shared Sub New()
@@ -81,7 +81,7 @@ Public Class LookupControl2
 
         Properties.Buttons.Item(0).Tag = TAG_DROPDOWN
         Properties.Buttons.AddRange({_LookupFormButton})
-        Properties.NullText = TEXT_NO_RECORDS
+        Properties.NullText = _R.GetString("LookupControl_NoRecords")
 
         AddHandler ButtonClick, AddressOf HandleButtonClick
         AddHandler EditValueChanging, AddressOf HandleEditValueChanging
@@ -155,11 +155,11 @@ Public Class LookupControl2
 
             Select Case Values.Count
                 Case 0
-                    Properties.NullText = TEXT_NO_RECORDS
+                    Properties.NullText = _R.GetString("LookupControl_NoRecords")
                 Case 1
-                    Properties.NullText = TEXT_ONE_RECORD
+                    Properties.NullText = _R.GetString("LookupControl_OneRecord")
                 Case Else
-                    Properties.NullText = String.Format(TEXT_N_RECORDS, Values.Count)
+                    Properties.NullText = String.Format(_R.GetString("LookupControl_NRecords"), Values.Count)
             End Select
         Else
             Properties.NullText = Values.FirstOrDefault()
@@ -198,6 +198,31 @@ Public Class LookupControl2
             Return RepositoryItemLookupControl2.CustomEditName
         End Get
     End Property
+
+    Private Sub InitializeComponent()
+        Me.fProperties = New DevExpress.XtraEditors.Repository.RepositoryItemGridLookUpEdit()
+        Me.fPropertiesView = New DevExpress.XtraGrid.Views.Grid.GridView()
+        CType(Me.fProperties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.fPropertiesView, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'fProperties
+        '
+        Me.fProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.fProperties.Name = "fProperties"
+        Me.fProperties.PopupView = Me.fPropertiesView
+        '
+        'fPropertiesView
+        '
+        Me.fPropertiesView.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
+        Me.fPropertiesView.Name = "fPropertiesView"
+        Me.fPropertiesView.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.fPropertiesView.OptionsView.ShowGroupPanel = False
+        CType(Me.fProperties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.fPropertiesView, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
 End Class
 
 <UserRepositoryItem("RegisterLookupControl2")>

Controls.LookupGrid/LookupControl3.vb

@@ -13,13 +13,6 @@ Imports DevExpress.XtraEditors.Controls
 Public Class LookupControl3
     Inherits GridLookUpEdit
 
-    Shared Sub New()
-        RepositoryItemLookupControl3.RegisterLookupControl()
-    End Sub
-
-    Public Sub New()
-    End Sub
-
     <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
     Public Shadows ReadOnly Property Properties As RepositoryItemLookupControl3
         Get
@@ -32,6 +25,41 @@ Public Class LookupControl3
             Return RepositoryItemLookupControl3.CustomEditName
         End Get
     End Property
+
+    Shared Sub New()
+        RepositoryItemLookupControl3.RegisterLookupControl()
+    End Sub
+
+    Friend WithEvents fProperties As RepositoryItemGridLookUpEdit
+    Friend WithEvents fPropertiesView As DevExpress.XtraGrid.Views.Grid.GridView
+
+    Public Sub New()
+    End Sub
+
+    Private Sub InitializeComponent()
+        Me.fProperties = New DevExpress.XtraEditors.Repository.RepositoryItemGridLookUpEdit()
+        Me.fPropertiesView = New DevExpress.XtraGrid.Views.Grid.GridView()
+        CType(Me.fProperties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.fPropertiesView, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'fProperties
+        '
+        Me.fProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.fProperties.Name = "fProperties"
+        Me.fProperties.PopupView = Me.fPropertiesView
+        '
+        'fPropertiesView
+        '
+        Me.fPropertiesView.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
+        Me.fPropertiesView.Name = "fPropertiesView"
+        Me.fPropertiesView.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.fPropertiesView.OptionsView.ShowGroupPanel = False
+        CType(Me.fProperties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.fPropertiesView, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
 End Class
 
 <UserRepositoryItem("RegisterLookupControl3")>
@@ -42,13 +70,15 @@ Public Class RepositoryItemLookupControl3
         RegisterLookupControl()
     End Sub
 
+    Public Sub New()
+        SetDropdownButtonEnabled(_MultiSelect)
+    End Sub
+
     Private Const TAG_DROPDOWN = "openDropdown"
 
     Private Const TAG_BUTTON_LOOKUP_FORM = "openLookupForm"
-    Private Const TEXT_NO_RECORDS = "Keine Datensätze ausgewählt"
-    Private Const TEXT_ONE_RECORD = "Ein Datensatz ausgewählt"
-    Private Const TEXT_N_RECORDS = "{0} Datensätze ausgewählt"
 
+    Private _R As Resources.ResourceManager = My.Resources.Strings.ResourceManager
     Private _SelectedValues As New List(Of String)
     Private _MultiSelect As Boolean = False
     Private _ReadOnly As Boolean = False
@@ -96,8 +126,8 @@ Public Class RepositoryItemLookupControl3
     End Property
 
     Protected Overrides Sub RaiseQueryPopUp(e As CancelEventArgs)
-        If MultiSelect = True Then
+        If MultiSelect = False Then
-            MyBase.RaiseQueryPopUp(e)
+            e.Cancel = True
         End If
     End Sub
 
@@ -155,11 +185,11 @@ Public Class RepositoryItemLookupControl3
         If MultiSelect = True Then
             Select Case Values.Count
                 Case 0
-                    NullText = TEXT_NO_RECORDS
+                    NullText = _R.GetString("LookupControl_NoRecords")
                 Case 1
-                    NullText = TEXT_ONE_RECORD
+                    NullText = _R.GetString("LookupControl_OneRecord")
                 Case Else
-                    NullText = String.Format(TEXT_N_RECORDS, Values.Count)
+                    NullText = String.Format(_R.GetString("LookupControl_NRecords"), Values.Count)
             End Select
         Else
             NullText = Values.FirstOrDefault()
@@ -227,4 +257,10 @@ Public Class RepositoryItemLookupControl3
             EndUpdate()
         End Try
     End Sub
+
+    Public Sub HandleQueryPopup(sender As Object, e As CancelEventArgs) Handles Me.QueryPopUp
+        If MultiSelect = False Then
+            e.Cancel = True
+        End If
+    End Sub
 End Class

Controls.LookupGrid/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.0.0.0")>
+<Assembly: AssemblyVersion("2.1.2.0")>
-<Assembly: AssemblyFileVersion("2.0.0.0")>
+<Assembly: AssemblyFileVersion("2.1.2.0")>

Controls.LookupGrid/Resources/Strings.Designer.vb

@@ -0,0 +1,112 @@
+'------------------------------------------------------------------------------
+' <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", "16.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Class Strings
+        
+        Private Shared resourceMan As Global.System.Resources.ResourceManager
+        
+        Private Shared resourceCulture As Global.System.Globalization.CultureInfo
+        
+        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")>  _
+        Friend Sub New()
+            MyBase.New
+        End Sub
+        
+        '''<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 Shared 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("DigitalData.Controls.LookupGrid.Strings", GetType(Strings).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 Shared Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Keine Datensätze ausgewählt ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property LookupControl_NoRecords() As String
+            Get
+                Return ResourceManager.GetString("LookupControl_NoRecords", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die {0} Datensätze ausgewählt ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property LookupControl_NRecords() As String
+            Get
+                Return ResourceManager.GetString("LookupControl_NRecords", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Ein Datensatz ausgewählt ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property LookupControl_OneRecord() As String
+            Get
+                Return ResourceManager.GetString("LookupControl_OneRecord", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Bitte wählen Sie einen Wert aus: ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property PopupForm_Text() As String
+            Get
+                Return ResourceManager.GetString("PopupForm_Text", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Bitte wählen Sie einen oder mehrere Werte aus: ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property PopupForm_TextMultiLine() As String
+            Get
+                Return ResourceManager.GetString("PopupForm_TextMultiLine", resourceCulture)
+            End Get
+        End Property
+    End Class
+End Namespace

Controls.LookupGrid/Resources/Strings.en.resx

@@ -0,0 +1,135 @@
+<?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.Runtime.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:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <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" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </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" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="LookupControl_NoRecords" xml:space="preserve">
+    <value>No records selected</value>
+  </data>
+  <data name="LookupControl_NRecords" xml:space="preserve">
+    <value>{0} records selected</value>
+  </data>
+  <data name="LookupControl_OneRecord" xml:space="preserve">
+    <value>One record selected</value>
+  </data>
+  <data name="PopupForm_Text" xml:space="preserve">
+    <value>Please choose a value:</value>
+  </data>
+  <data name="PopupForm_TextMultiLine" xml:space="preserve">
+    <value>Please choose one or more values:</value>
+  </data>
+</root>

Controls.LookupGrid/Resources/Strings.resx

@@ -0,0 +1,135 @@
+<?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.Runtime.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:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <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" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </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" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="LookupControl_NoRecords" xml:space="preserve">
+    <value>Keine Datensätze ausgewählt</value>
+  </data>
+  <data name="LookupControl_NRecords" xml:space="preserve">
+    <value>{0} Datensätze ausgewählt</value>
+  </data>
+  <data name="LookupControl_OneRecord" xml:space="preserve">
+    <value>Ein Datensatz ausgewählt</value>
+  </data>
+  <data name="PopupForm_Text" xml:space="preserve">
+    <value>Bitte wählen Sie einen Wert aus:</value>
+  </data>
+  <data name="PopupForm_TextMultiLine" xml:space="preserve">
+    <value>Bitte wählen Sie einen oder mehrere Werte aus:</value>
+  </data>
+</root>

Controls.LookupGrid/frmLookupGrid.Designer.vb

@@ -22,6 +22,7 @@ Partial Class frmLookupGrid
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLookupGrid))
         Me.gridLookup = New DevExpress.XtraGrid.GridControl()
         Me.viewLookup = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.Panel1 = New System.Windows.Forms.Panel()
@@ -34,61 +35,58 @@ Partial Class frmLookupGrid
         '
         'gridLookup
         '
-        Me.gridLookup.Dock = System.Windows.Forms.DockStyle.Fill
+        resources.ApplyResources(Me.gridLookup, "gridLookup")
-        Me.gridLookup.Location = New System.Drawing.Point(0, 0)
+        Me.gridLookup.EmbeddedNavigator.AccessibleDescription = resources.GetString("gridLookup.EmbeddedNavigator.AccessibleDescription")
+        Me.gridLookup.EmbeddedNavigator.AccessibleName = resources.GetString("gridLookup.EmbeddedNavigator.AccessibleName")
+        Me.gridLookup.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("gridLookup.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
+        Me.gridLookup.EmbeddedNavigator.Anchor = CType(resources.GetObject("gridLookup.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
+        Me.gridLookup.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("gridLookup.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
+        Me.gridLookup.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("gridLookup.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
+        Me.gridLookup.EmbeddedNavigator.ImeMode = CType(resources.GetObject("gridLookup.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
+        Me.gridLookup.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("gridLookup.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
+        Me.gridLookup.EmbeddedNavigator.TextLocation = CType(resources.GetObject("gridLookup.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
+        Me.gridLookup.EmbeddedNavigator.ToolTip = resources.GetString("gridLookup.EmbeddedNavigator.ToolTip")
+        Me.gridLookup.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("gridLookup.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
+        Me.gridLookup.EmbeddedNavigator.ToolTipTitle = resources.GetString("gridLookup.EmbeddedNavigator.ToolTipTitle")
         Me.gridLookup.MainView = Me.viewLookup
         Me.gridLookup.Name = "gridLookup"
-        Me.gridLookup.Size = New System.Drawing.Size(388, 221)
-        Me.gridLookup.TabIndex = 0
         Me.gridLookup.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewLookup})
         '
         'viewLookup
         '
+        resources.ApplyResources(Me.viewLookup, "viewLookup")
         Me.viewLookup.GridControl = Me.gridLookup
         Me.viewLookup.Name = "viewLookup"
         Me.viewLookup.OptionsView.ShowGroupPanel = False
         '
         'Panel1
         '
+        resources.ApplyResources(Me.Panel1, "Panel1")
         Me.Panel1.Controls.Add(Me.btnOK)
         Me.Panel1.Controls.Add(Me.btnClear)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel1.Location = New System.Drawing.Point(0, 221)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(388, 40)
-        Me.Panel1.TabIndex = 1
         '
         'btnOK
         '
-        Me.btnOK.Location = New System.Drawing.Point(12, 6)
+        resources.ApplyResources(Me.btnOK, "btnOK")
         Me.btnOK.Name = "btnOK"
-        Me.btnOK.Size = New System.Drawing.Size(117, 23)
-        Me.btnOK.TabIndex = 0
-        Me.btnOK.Text = "OK (F2)"
         Me.btnOK.UseVisualStyleBackColor = True
         '
         'btnClear
         '
-        Me.btnClear.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        resources.ApplyResources(Me.btnClear, "btnClear")
         Me.btnClear.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnClear.Location = New System.Drawing.Point(240, 6)
         Me.btnClear.Name = "btnClear"
-        Me.btnClear.Size = New System.Drawing.Size(136, 23)
-        Me.btnClear.TabIndex = 0
-        Me.btnClear.Text = "Leeren"
         Me.btnClear.UseVisualStyleBackColor = True
         '
         'frmLookupGrid
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(388, 261)
         Me.Controls.Add(Me.gridLookup)
         Me.Controls.Add(Me.Panel1)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
-        Me.MinimumSize = New System.Drawing.Size(400, 300)
         Me.Name = "frmLookupGrid"
-        Me.Text = "Wählen Sie einen Wert:"
         Me.TopMost = True
         CType(Me.gridLookup, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.viewLookup, System.ComponentModel.ISupportInitialize).EndInit()

Controls.LookupGrid/frmLookupGrid.en.resx

@@ -0,0 +1,126 @@
+<?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.Runtime.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:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <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" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </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" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="btnClear.Text" xml:space="preserve">
+    <value>Clear</value>
+  </data>
+  <data name="$this.Text" xml:space="preserve">
+    <value>Choose a value:</value>
+  </data>
+</root>

Controls.LookupGrid/frmLookupGrid.resx

@@ -117,4 +117,178 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <data name="&gt;&gt;btnOK.Name" xml:space="preserve">
+    <value>btnOK</value>
+  </data>
+  <data name="btnOK.Text" xml:space="preserve">
+    <value>OK (F2)</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Name" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="gridLookup.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 0</value>
+  </data>
+  <data name="&gt;&gt;gridLookup.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="&gt;&gt;viewLookup.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="gridLookup.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
+    <value>0, 0</value>
+  </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="gridLookup.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="&gt;&gt;gridLookup.Name" xml:space="preserve">
+    <value>gridLookup</value>
+  </data>
+  <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;$this.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btnClear.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;$this.Name" xml:space="preserve">
+    <value>frmLookupGrid</value>
+  </data>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Bottom</value>
+  </data>
+  <data name="&gt;&gt;btnOK.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="btnClear.Text" xml:space="preserve">
+    <value>Leeren</value>
+  </data>
+  <data name="$this.MinimumSize" type="System.Drawing.Size, System.Drawing">
+    <value>400, 300</value>
+  </data>
+  <data name="&gt;&gt;btnClear.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <assembly alias="DevExpress.XtraEditors.v19.2" name="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="gridLookup.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
+    <value>Center</value>
+  </data>
+  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
+    <value>388, 261</value>
+  </data>
+  <data name="gridLookup.EmbeddedNavigator.ToolTip" xml:space="preserve">
+    <value />
+  </data>
+  <data name="&gt;&gt;gridLookup.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="btnOK.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="btnOK.Size" type="System.Drawing.Size, System.Drawing">
+    <value>117, 23</value>
+  </data>
+  <data name="&gt;&gt;gridLookup.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="btnClear.Location" type="System.Drawing.Point, System.Drawing">
+    <value>240, 6</value>
+  </data>
+  <data name="&gt;&gt;btnOK.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="btnClear.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="gridLookup.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Fill</value>
+  </data>
+  <data name="btnClear.Size" type="System.Drawing.Size, System.Drawing">
+    <value>136, 23</value>
+  </data>
+  <data name="gridLookup.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
+    <value>Tile</value>
+  </data>
+  <data name="&gt;&gt;btnClear.Name" xml:space="preserve">
+    <value>btnClear</value>
+  </data>
+  <data name="gridLookup.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
+    <value />
+  </data>
+  <data name="gridLookup.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Top, Left</value>
+  </data>
+  <data name="$this.TextMultiLine" xml:space="preserve">
+    <value>Wählen Sie einen oder mehrere Werte:</value>
+  </data>
+  <data name="&gt;&gt;btnOK.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="gridLookup.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>Inherit</value>
+  </data>
+  <data name="btnClear.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Top, Right</value>
+  </data>
+  <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="gridLookup.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
+    <value>Default</value>
+  </data>
+  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>388, 40</value>
+  </data>
+  <data name="gridLookup.Size" type="System.Drawing.Size, System.Drawing">
+    <value>388, 221</value>
+  </data>
+  <data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 221</value>
+  </data>
+  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
+    <value>6, 13</value>
+  </data>
+  <data name="&gt;&gt;btnClear.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="gridLookup.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
+    <value>None</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="gridLookup.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
+  <data name="gridLookup.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
+  <data name="gridLookup.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
+  <data name="&gt;&gt;viewLookup.Name" xml:space="preserve">
+    <value>viewLookup</value>
+  </data>
+  <data name="btnOK.Location" type="System.Drawing.Point, System.Drawing">
+    <value>12, 6</value>
+  </data>
+  <data name="$this.Text" xml:space="preserve">
+    <value>Wählen Sie einen Wert:</value>
+  </data>
+  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>en</value>
+  </metadata>
 </root>

Controls.LookupGrid/frmLookupGrid.vb

@@ -14,6 +14,8 @@ Public Class frmLookupGrid
     Private _DataSourceTemp As DataTable
     Private _View As GridView
     Private _Grid As GridControl
+    Private _R As Resources.ResourceManager = My.Resources.Strings.ResourceManager
+
 
     Private Sub frmLookupGrid_Load(sender As Object, e As EventArgs) Handles Me.Load
         _View = viewLookup
@@ -53,10 +55,10 @@ Public Class frmLookupGrid
             oCheckboxColumn.Caption = " "
             oCheckboxColumn.MaxWidth = 10
 
-            Text = "Wählen Sie einen oder mehrere Werte:"
+            Text = _R.GetString("PopupForm_Text")
             _DataColumn = 1
         Else
-            Text = "Wählen Sie einen Wert:"
+            Text = _R.GetString("PopupForm_TextMultiLine")
             _DataColumn = 0
         End If
 

GUIs.Common/Common.vbproj

@@ -104,6 +104,7 @@
     </Compile>
     <Compile Include="DocumentPropertyMenu\DocumentPropertyMenu.vb" />
     <Compile Include="DocumentResultList\DocumentResultConfig.vb" />
+    <Compile Include="DocumentResultList\DocumentResultInfo.vb" />
     <Compile Include="DocumentResultList\DocumentResultList.vb" />
     <Compile Include="DocumentResultList\DocumentResultParams.vb" />
     <Compile Include="DocumentResultList\frmDocumentResultList.Designer.vb">
@@ -112,6 +113,7 @@
     <Compile Include="DocumentResultList\frmDocumentResultList.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="DocumentResultList\DocumentResultCache.vb" />
     <Compile Include="IResultForm.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">

GUIs.Common/DocumentResultList/DocumentResultCache.vb

@@ -0,0 +1,117 @@
+Imports DigitalData.Modules.EDMI.API.Client
+
+Public Class DocumentResultCache
+    Implements ICollection(Of DocumentResultInfo)
+
+    Private Const _DefaultCapacity As Long = 1000
+
+    Public Shared ReadOnly Property DefaultCapacity As Long
+        Get
+            Return _DefaultCapacity
+        End Get
+    End Property
+
+    Friend ReadOnly List As New LinkedList(Of DocumentResultInfo)
+    Private ReadOnly Index As New Dictionary(Of String, LinkedListNode(Of DocumentResultInfo))
+    Private ReadOnly Lock As New Object
+
+    Public Sub New()
+        Me.New(_DefaultCapacity)
+    End Sub
+
+    Public Sub New(capacity As Long)
+        If capacity < 0 Then
+            Throw New InvalidOperationException("DocumentResultCache capacity must be positive.")
+        End If
+
+        Me.Capacity = capacity
+    End Sub
+
+    Public Event DiscardingOldestItem As EventHandler
+    Public Property Capacity As Long
+    Public Property Count As Integer Implements ICollection(Of DocumentResultInfo).Count
+
+    Public ReadOnly Property Oldest As DocumentResultInfo
+        Get
+            Return List.First.Value
+        End Get
+    End Property
+
+    Public Sub Add(item As DocumentResultInfo) Implements ICollection(Of DocumentResultInfo).Add
+        SyncLock Lock
+            If Index.ContainsKey(item.FullPath) Then
+                List.Remove(Index(item.FullPath))
+                Index(item.FullPath) = List.AddLast(item)
+                Return
+            End If
+
+            If Count >= Capacity AndAlso Capacity <> 0 Then
+                RaiseEvent DiscardingOldestItem(Me, New EventArgs())
+                Remove(Oldest)
+            End If
+
+            Index.Add(item.FullPath, List.AddLast(item))
+
+            If item.Contents IsNot Nothing Then
+                Count = Count + item.Contents?.Length
+            End If
+        End SyncLock
+    End Sub
+
+    Public Function Contains(item As DocumentResultInfo) As Boolean Implements ICollection(Of DocumentResultInfo).Contains
+        Return Index.ContainsKey(item.FullPath)
+    End Function
+
+    Public Sub CopyTo(array As DocumentResultInfo(), ByVal arrayIndex As Integer) Implements ICollection(Of DocumentResultInfo).CopyTo
+        SyncLock Lock
+
+            For Each item As DocumentResultInfo In Me
+                array(Math.Min(System.Threading.Interlocked.Increment(arrayIndex), arrayIndex - 1)) = item
+            Next
+        End SyncLock
+    End Sub
+
+    Public Sub Clear() Implements ICollection(Of DocumentResultInfo).Clear
+        SyncLock Lock
+            List.Clear()
+            Index.Clear()
+        End SyncLock
+    End Sub
+
+    Public ReadOnly Property IsReadOnly As Boolean Implements ICollection(Of DocumentResultInfo).IsReadOnly
+        Get
+            Return False
+        End Get
+    End Property
+
+    Public Function Remove(item As DocumentResultInfo) As Boolean Implements ICollection(Of DocumentResultInfo).Remove
+        SyncLock Lock
+
+            If Index.ContainsKey(item.FullPath) Then
+                List.Remove(Index(item.FullPath))
+                Index.Remove(item.FullPath)
+
+                If item.Contents IsNot Nothing Then
+                    Count -= item.Contents.Length
+                End If
+
+                Return True
+            End If
+
+            Return False
+        End SyncLock
+    End Function
+
+    Private Iterator Function GetEnumerator() As IEnumerator(Of DocumentResultInfo) Implements ICollection(Of DocumentResultInfo).GetEnumerator
+        Dim node As LinkedListNode(Of DocumentResultInfo) = List.First
+
+        While node IsNot Nothing
+            Yield node.Value
+            node = node.[Next]
+        End While
+    End Function
+
+    Private Function IEnumerable_GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator
+        Return DirectCast(List, IEnumerable).GetEnumerator()
+    End Function
+End Class

GUIs.Common/DocumentResultList/DocumentResultInfo.vb

@@ -0,0 +1,8 @@
+Imports DigitalData.Modules.EDMI.API.Client
+
+Public Class DocumentResultInfo
+    Inherits DocumentInfo
+
+    Public Contents As Byte()
+    Public LastWriteTime As Date
+End Class

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -45,14 +45,14 @@ Public Class frmDocumentResultList
     Private _IsLoading As Boolean = True
     Private _ActiveGrid As GridControl = Nothing
     Private _ActiveGridBand As GridBand = Nothing
-    Private _DocumentInfo As DocumentInfo = Nothing
 
     ' TODO: Hashes for checking if the opened file was modified externally
     Private _HashOriginalFile As String = Nothing
     Private _HashOpenedFile As String = Nothing
 
     Private WithEvents _FileOpenTimer As New Timer
-    Private _FileOpenList As New Dictionary(Of Integer, String)
+    Private _OpenDocuments As New DocumentResultCache(50000000)
+    Private _CurrentDocument As DocumentResultInfo = Nothing
 
     Private Property OperationMode As IResultForm.Mode Implements IResultForm.OperationMode
 
@@ -79,8 +79,8 @@ Public Class frmDocumentResultList
         _Params = Params
         _ResultLists = Params.Results
 
-        _FileOpenTimer.Interval = FILE_OPEN_TIMER_INTERVAL
+        '_FileOpenTimer.Interval = FILE_OPEN_TIMER_INTERVAL
-        _FileOpenTimer.Start()
+        '_FileOpenTimer.Start()
     End Sub
 
     Private Sub frmDocumentResultList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -145,40 +145,45 @@ Public Class frmDocumentResultList
 
             If e.FocusedRowHandle >= 0 Then
                 Dim oRow = sender.GetDataRow(e.FocusedRowHandle)
+                Dim oDocumentInfo As DocumentResultInfo = Nothing
+
                 DocumentViewer1.CloseDocument()
 
                 If OperationMode = IResultForm.Mode.NoAppServer Then
-                    LoadFile_Legacy(oRow)
+                    oDocumentInfo = LoadFile_Legacy(oRow)
                 ElseIf OperationMode = IResultForm.Mode.WithAppServer Then
-                    LoadFile_IDB(oRow)
+                    oDocumentInfo = LoadFile_IDB(oRow)
                 End If
 
-                If IsNothing(_DocumentInfo) Then
+                If IsNothing(oDocumentInfo) Then
                     Show_Warning("File could not be loaded!")
+                    Exit Sub
                 End If
 
-                If Not IsNothing(_DocumentInfo) Then
+                If Not File.Exists(oDocumentInfo.FullPath) Then
-                    If _FileOpenList.ContainsValue(_DocumentInfo.FullPath) Then
+                    Show_Warning("File does not exist!")
-                        Show_Warning("Die ausgewählte Datei befindet sich im Zugriff!")
+                    _HashOriginalFile = Nothing
-                    Else
+                    Exit Sub
-                        DocumentViewer1.LoadFile(_DocumentInfo.FullPath)
+                End If
 
-                        If _DocumentInfo.AccessRight = Rights.AccessRight.VIEW_ONLY Then
+                If oDocumentInfo.Contents IsNot Nothing Then
+                    Dim oFileInfo As New FileInfo(oDocumentInfo.FullPath)
+
+                    DocumentViewer1.LoadFile(oFileInfo.Name, New MemoryStream(oDocumentInfo.Contents))
+                Else
+                    DocumentViewer1.LoadFile(oDocumentInfo.FullPath)
+                End If
+
+                If oDocumentInfo.AccessRight = Rights.AccessRight.VIEW_ONLY Then
                     DocumentViewer1.SetViewOnly(True)
                     RibbonPageGroup_Export.Visible = False
                 Else
                     DocumentViewer1.SetViewOnly(False)
                     RibbonPageGroup_Export.Visible = True
                 End If
-                    End If
-                End If
 
                 ' TODO: Create checksum after closing, compare and take action
-                If File.Exists(_DocumentInfo.FullPath) Then
+                _HashOriginalFile = _Filesystem.GetChecksum(oDocumentInfo.FullPath)
-                    _HashOriginalFile = _Filesystem.GetChecksum(_DocumentInfo.FullPath)
-                Else
-                    _HashOriginalFile = Nothing
-                End If
             End If
         Catch ex As Exception
             _Logger.Error(ex)
@@ -203,31 +208,160 @@ Public Class frmDocumentResultList
         Return True
     End Function
 
-    Private Sub LoadFile_Legacy(GridRow As DataRow)
+    Private Function LoadFile_Legacy(GridRow As DataRow) As DocumentResultInfo
         Try
             Dim oFullPath = GridRow.Item(COLUMN_FILEPATH)
-
+            Dim oDocumentInfo = New DocumentResultInfo() With {
-            _DocumentInfo = New DocumentInfo() With {
                 .AccessRight = Rights.AccessRight.FULL,
                 .FullPath = oFullPath
             }
+
+            If File.Exists(oDocumentInfo.FullPath) Then
+                oDocumentInfo = LoadFile_AsByteArray(oDocumentInfo)
+                _OpenDocuments.Add(oDocumentInfo)
+                _CurrentDocument = oDocumentInfo
+            End If
+
+            Return oDocumentInfo
         Catch ex As Exception
             _Logger.Error(ex)
-            MsgBox("Error while loading file", MsgBoxStyle.Critical, Text)
+            Return Nothing
         End Try
-    End Sub
+    End Function
 
-    Private Sub LoadFile_IDB(GridRow As DataRow)
+    Private Function LoadFile_IDB(GridRow As DataRow) As DocumentResultInfo
         Try
             Dim oObjectId = GridRow.Item(COLUMN_DOCID)
-            _Logger.Debug($"Gettin' Infor for oObjectId: {oObjectId}")
+            _Logger.Debug($"Getting Information for oObjectId: {oObjectId}")
 
             ' This needs to be Sync bc otherwise the PopupMenuShowing event will fire before this method loaded the Document Info
-            _DocumentInfo = _IDBClient.GetDocumentInfo(_Environment.User.UserId, oObjectId)
+            Dim oDocumentInfo As DocumentInfo = _IDBClient.GetDocumentInfo(_Environment.User.UserId, oObjectId)
+            Dim oResultDocumentInfo As New DocumentResultInfo() With {
+                .AccessRight = oDocumentInfo.AccessRight,
+                .FullPath = oDocumentInfo.FullPath
+            }
+
+            If File.Exists(oResultDocumentInfo.FullPath) Then
+                oResultDocumentInfo = LoadFile_AsByteArray(oResultDocumentInfo)
+                _OpenDocuments.Add(oResultDocumentInfo)
+                _CurrentDocument = oResultDocumentInfo
+            End If
+
+            Return oResultDocumentInfo
         Catch ex As Exception
             _Logger.Error(ex)
+            Return Nothing
         End Try
-    End Sub
+    End Function
+
+    Private Function LoadFile_AsByteArray(DocumentInfo As DocumentResultInfo) As DocumentResultInfo
+        Try
+            Dim oFullPath As String = DocumentInfo.FullPath
+            Dim oPathExists = From oFile In _OpenDocuments
+                              Where oFile.FullPath = oFullPath And oFile.Contents IsNot Nothing
+                              Select oFile
+            Dim oExistsInCache = oPathExists.Count() > 0
+            Dim oSizeChanged = False
+            Dim oWriteTimeChanged = False
+
+            ' Get Information about the file on the filesystem
+            Dim oFileInfo As New FileInfo(oFullPath)
+
+            If oExistsInCache Then
+                Dim oCachedItem = oPathExists.First()
+
+                If oCachedItem.Contents Is Nothing Then
+                    oSizeChanged = False
+                Else
+                    oSizeChanged = Not (oFileInfo.Length = oCachedItem.Contents.Length)
+                End If
+
+                If oCachedItem.LastWriteTime = Nothing Then
+                    oWriteTimeChanged = False
+                Else
+                    oWriteTimeChanged = Not oFileInfo.LastWriteTime.Equals(oCachedItem.LastWriteTime)
+                End If
+
+                If oSizeChanged Or oWriteTimeChanged Then
+                    Using oStream = File.OpenRead(DocumentInfo.FullPath)
+                        Using oMemoryStream = New MemoryStream()
+                            oStream.CopyTo(oMemoryStream)
+                            DocumentInfo.Contents = oMemoryStream.ToArray()
+                            DocumentInfo.LastWriteTime = oFileInfo.LastWriteTime
+                        End Using
+                    End Using
+
+                    Return DocumentInfo
+                Else
+                    Return oCachedItem
+                End If
+
+            Else
+                Using oStream = File.OpenRead(DocumentInfo.FullPath)
+                    Using oMemoryStream = New MemoryStream()
+                        oStream.CopyTo(oMemoryStream)
+                        DocumentInfo.Contents = oMemoryStream.ToArray()
+                        DocumentInfo.LastWriteTime = oFileInfo.LastWriteTime
+                    End Using
+                End Using
+
+                Return DocumentInfo
+            End If
+
+        Catch ex As Exception
+
+        End Try
+    End Function
+
+    'Private Function LoadFile_AsByteArray(DocumentInfo As DocumentResultInfo)
+    '    Try
+    '        Dim oLoadedInfo As DocumentResultInfo = Nothing
+
+    '        Dim oFileContents As Byte()
+    '        Dim oFullPath As String = DocumentInfo.FullPath
+    '        Dim oPathExists = From oFile In _OpenDocuments
+    '                          Where oFile.FullPath = oFullPath And oFile.Contents IsNot Nothing
+    '                          Select oFile
+
+    '        If oPathExists.Count > 0 Then
+    '            Dim oDocumentInfo = oPathExists.First()
+    '            Dim oFileInfo As New FileInfo(DocumentInfo.FullPath)
+    '            Dim oSizeChanged = False
+    '            Dim oWriteTimeChanged = False
+
+    '            If DocumentInfo.Contents Is Nothing Then
+    '                oSizeChanged = False
+    '            Else
+    '                oSizeChanged = Not oFileInfo.Length.Equals(DocumentInfo.Contents?.Length)
+    '            End If
+
+    '            If DocumentInfo.LastWriteTime = Nothing Then
+    '                oWriteTimeChanged = False
+    '            Else
+    '                oWriteTimeChanged = Not oFileInfo.LastWriteTime.Equals(DocumentInfo.LastWriteTime)
+    '            End If
+
+    '            If oSizeChanged Or oWriteTimeChanged Then
+
+    '            Else
+    '                Using oStream = File.OpenRead(oFullPath)
+    '                    Using oMemoryStream = New MemoryStream()
+    '                        oStream.CopyTo(oMemoryStream)
+    '                        oFileContents = oMemoryStream.ToArray()
+    '                    End Using
+    '                End Using
+    '            End If
+    '        End If
+
+    '        DocumentInfo.Contents = oFileContents
+    '        DocumentInfo.LastWriteTime = oFileInfo.LastWriteTime
+
+    '        Return DocumentInfo
+    '    Catch ex As Exception
+    '        _Logger.Error(ex)
+    '        Return Nothing
+    '    End Try
+    'End Function
 
     Public Function RefreshResults(pResults As IEnumerable(Of BaseResult)) As Boolean Implements IResultForm.RefreshResults
         _IsLoading = True
@@ -576,7 +710,7 @@ Public Class frmDocumentResultList
                 Dim oRow = GetActiveRow()
 
                 If oRow IsNot Nothing Then
-                Dim oFilename = _DocumentInfo.FullPath
+                    Dim oFilename = _CurrentDocument.FullPath
                     Dim oDirectory = IO.Path.GetDirectoryName(oFilename)
                     Process.Start(oDirectory)
                 End If
@@ -587,8 +721,8 @@ Public Class frmDocumentResultList
 
         Private Sub OpenFile()
             Try
-            If _DocumentInfo IsNot Nothing Then
+                If _CurrentDocument IsNot Nothing Then
-                Dim oFilename = _DocumentInfo.FullPath
+                    Dim oFilename = _CurrentDocument.FullPath
                     DocumentPropertyMenu_FileOpened(Me, oFilename)
                 End If
             Catch ex As Exception
@@ -603,7 +737,7 @@ Public Class frmDocumentResultList
                 Dim oRow = GetActiveRow()
 
                 If oRow IsNot Nothing Then
-                Dim oFilename = _DocumentInfo.FullPath
+                    Dim oFilename = _CurrentDocument.FullPath
                     Clipboard.SetText(oFilename)
                 End If
             Catch ex As Exception
@@ -658,7 +792,7 @@ Public Class frmDocumentResultList
         End Sub
 
         Private Sub GridControl_DoubleClick(sender As Object, e As EventArgs) Handles GridControl1.DoubleClick, GridControl2.DoubleClick, GridControl3.DoubleClick
-        If _DocumentInfo IsNot Nothing And _DocumentInfo.AccessRight > Rights.AccessRight.VIEW_ONLY Then
+            If _CurrentDocument IsNot Nothing AndAlso _CurrentDocument.AccessRight > Rights.AccessRight.VIEW_ONLY Then
                 OpenFile()
             End If
         End Sub
@@ -671,13 +805,13 @@ Public Class frmDocumentResultList
                 If e.MenuType = GridMenuType.Row Then
                     Dim oRowHandle = e.HitInfo.RowHandle
                     Dim oRow As DataRow = oView.GetDataRow(oRowHandle)
-                Dim oFilepath As String = _DocumentInfo.FullPath
+                    Dim oFilepath As String = _CurrentDocument.FullPath
                     Dim oObjectId As Long = oRow.Item(COLUMN_DOCID)
                     Dim oMenu As New DocumentPropertyMenu(_LogConfig, _Environment, _IDBClient, oFilepath, oObjectId)
 
                     e.Menu.Items.Clear()
 
-                For Each oItem In oMenu.GetMenuItems(OperationMode, _DocumentInfo.AccessRight)
+                    For Each oItem In oMenu.GetMenuItems(OperationMode, _CurrentDocument.AccessRight)
                         e.Menu.Items.Add(oItem)
                     Next
 
@@ -691,46 +825,45 @@ Public Class frmDocumentResultList
         End Sub
 
         Public Sub DocumentPropertyMenu_FileOpened(sender As Object, FilePath As String)
-        DocumentViewer1.CloseDocument()
+            'DocumentViewer1.CloseDocument()
 
             Dim oProcess = Process.Start(New ProcessStartInfo With {
             .FileName = FilePath
         })
-        _FileOpenList.Add(oProcess.Id, FilePath)
         End Sub
 
         Public Sub FileOpenTimer_Elapsed() Handles _FileOpenTimer.Tick
-        Try
+            'Try
-            Dim oProcesses = Process.GetProcesses()
+            '    Dim oProcesses = Process.GetProcesses()
-            Dim oIds = (From oProc In oProcesses
+            '    Dim oIds = (From oProc In oProcesses
-                        Select oProc.Id).
+            '                Select oProc.Id).
-                        ToList()
+            '                ToList()
 
-            Dim oNewFileOpenList As New Dictionary(Of Integer, String)
+            '    Dim oNewFileOpenList As New Dictionary(Of Integer, String)
-            For Each oOpenFile In _FileOpenList
+            '    For Each oOpenFile In _FileOpenList
-                If oIds.Contains(oOpenFile.Key) Then
+            '        If oIds.Contains(oOpenFile.Key) Then
-                    oNewFileOpenList.Add(oOpenFile.Key, oOpenFile.Value)
+            '            oNewFileOpenList.Add(oOpenFile.Key, oOpenFile.Value)
-                End If
+            '        End If
-            Next
+            '    Next
 
-            If oNewFileOpenList.Count < _FileOpenList.Count Then
+            '    If oNewFileOpenList.Count < _FileOpenList.Count Then
-                Dim oClosedFiles = _FileOpenList.
+            '        Dim oClosedFiles = _FileOpenList.
-                    Except(oNewFileOpenList).
+            '            Except(oNewFileOpenList).
-                    ToList()
+            '            ToList()
 
-                If oClosedFiles.Count = 1 Then
+            '        If oClosedFiles.Count = 1 Then
-                    Dim oOpenFile = oClosedFiles.First()
+            '            Dim oOpenFile = oClosedFiles.First()
-                    DocumentViewer1.LoadFile(oOpenFile.Value)
+            '            DocumentViewer1.LoadFile(oOpenFile.Value)
-                Else
+            '        Else
-                    ClearGridData()
+            '            ClearGridData()
-                    UpdateGridData()
+            '            UpdateGridData()
-                End If
+            '        End If
 
-                _FileOpenList = oNewFileOpenList
+            '        _FileOpenList = oNewFileOpenList
-            End If
+            '    End If
-        Catch ex As Exception
+            'Catch ex As Exception
-            _Logger.Error(ex)
+            '    _Logger.Error(ex)
-        End Try
+            'End Try
         End Sub
 
         Public Sub Show_CriticalError(Message As String)
@@ -792,10 +925,10 @@ Public Class frmDocumentResultList
                     Dim oHitInfo = sender.CalcHitInfo(e.Location)
 
                     If oHitInfo.InRow Then
-                    If _DocumentInfo IsNot Nothing AndAlso _DocumentInfo.AccessRight > Rights.AccessRight.VIEW_ONLY Then
+                        If _CurrentDocument IsNot Nothing AndAlso _CurrentDocument.AccessRight >= Rights.AccessRight.VIEW_EXPORT Then
                             _ScreenOffset = SystemInformation.WorkingArea.Location
 
-                        Dim oFullPath As String = _DocumentInfo.FullPath
+                            Dim oFullPath As String = _CurrentDocument.FullPath
                             Dim oFiles As String() = {oFullPath}
                             Dim oData As New DataObject(DataFormats.FileDrop, oFiles)
 
@@ -805,4 +938,4 @@ Public Class frmDocumentResultList
                 End If
             End If
         End Sub
-End Class
+    End Class

GUIs.Common/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.4.1.0")>
+<Assembly: AssemblyVersion("1.5.0.0")>
-<Assembly: AssemblyFileVersion("1.4.1.0")>
+<Assembly: AssemblyFileVersion("1.5.0.0")>

GUIs.Test.TestGUI/frmLookup.vb

@@ -8,8 +8,10 @@ Public Class frmLookup
             _Datasource.Add($"item-{index}")
         Next
 
-
+        Dim oTable = GetDatatable(10)
-        LookupControl31.Properties.DataSource = GetDatatable(10)
+        LookupControl31.Properties.DataSource = oTable
+        LookupControl31.Properties.ValueMember = oTable.Columns.Item(0).ColumnName
+        LookupControl31.Properties.DisplayMember = oTable.Columns.Item(0).ColumnName
 
         Dim oEditor As New LookupControl3
         GridControl1.DataSource = New List(Of String) From {"foo", "var"}

GUIs.ZooFlow/Administration/SourceBundle.vb

@@ -0,0 +1,17 @@
+Public Class SourceBundle
+    Public Overview As SourceSql
+    Public Update As SourceSql
+    Public Insert As SourceSql
+    Public Load As SourceSql
+End Class
+
+
+Public Class SourceSql
+    Public Guid As Integer
+    Public ParentId As Integer
+    Public Title As String
+    Public SQL As String
+    Public PrimaryKey As String
+    Public Scope As String
+End Class
+

GUIs.ZooFlow/Administration/frmAdmin_Base.vb

@@ -25,10 +25,6 @@ Partial Public MustInherit Class BaseForm
     End Sub
 End Class
 
-Public Class BaseFormImpl
+Partial Public Class frmAdmin_Base
     Inherits BaseForm
 End Class
-
-Partial Public Class frmAdmin_Base
-    Inherits BaseFormImpl
-End Class

GUIs.ZooFlow/Administration/frmAdmin_CWProfile.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmAdmin_CWProfile
-    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+    Inherits frmAdmin_Base
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,81 +20,111 @@ Partial Class frmAdmin_CWProfile
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_CWProfile))
-        Dim GUIDLabel As System.Windows.Forms.Label
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.DBCW_Stammdaten = New DigitalData.GUIs.ZooFlow.DBCW_Stammdaten()
         Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBCW_PROFILESTableAdapter = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TBCW_PROFILESTableAdapter()
         Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TableAdapterManager()
-        Me.TBCW_PROFILESBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
+        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
-        Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
+        Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
-        Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
+        Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
+        Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
+        Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit()
-        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
+        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit()
-        Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
+        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
+        Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
+        Me.txtAddedWhen = New DevExpress.XtraEditors.TextEdit()
-        Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
+        Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.TBCW_PROFILESBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
+        Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
-        Me.FillToolStrip = New System.Windows.Forms.ToolStrip()
+        Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.GUIDToolStripLabel = New System.Windows.Forms.ToolStripLabel()
+        Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit()
-        Me.GUIDToolStripTextBox = New System.Windows.Forms.ToolStripTextBox()
+        Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.FillToolStripButton = New System.Windows.Forms.ToolStripButton()
+        Me.labelStatus = New DevExpress.XtraBars.BarStaticItem()
-        Me.GUIDTextBox = New System.Windows.Forms.TextBox()
+        Me.labelError = New DevExpress.XtraBars.BarStaticItem()
-        GUIDLabel = New System.Windows.Forms.Label()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DBCW_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TBCW_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.TBCW_PROFILESBindingNavigator.SuspendLayout()
+        Me.LayoutControl1.SuspendLayout()
-        Me.FillToolStrip.SuspendLayout()
+        CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAddedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'RibbonControl1
         '
+        Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus, Me.labelError})
         Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 1
+        Me.RibbonControl1.MaxItemId = 5
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
-        Me.RibbonControl1.Size = New System.Drawing.Size(800, 159)
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
+        Me.RibbonControl1.ShowToolbarCustomizeItem = False
+        Me.RibbonControl1.Size = New System.Drawing.Size(800, 63)
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
+        '
+        'BarButtonItem1
+        '
+        Me.BarButtonItem1.Caption = "Speichern und Schließen"
+        Me.BarButtonItem1.Id = 1
+        Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check2
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'BarButtonItem2
+        '
+        Me.BarButtonItem2.Caption = "Speichern"
+        Me.BarButtonItem2.Id = 2
+        Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save2
+        Me.BarButtonItem2.Name = "BarButtonItem2"
         '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
         Me.RibbonPage1.Name = "RibbonPage1"
         Me.RibbonPage1.Text = "RibbonPage1"
         '
         'RibbonPageGroup1
         '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
         Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
         '
-        'RibbonPageGroup2
-        '
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
-        '
         'RibbonStatusBar1
         '
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 428)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 426)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 22)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 24)
         '
         'RibbonPage2
         '
@@ -121,184 +151,219 @@ Partial Class frmAdmin_CWProfile
         Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Me.TBCW_PROFILESTableAdapter
         Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
-        'TBCW_PROFILESBindingNavigator
+        'LayoutControl1
         '
-        Me.TBCW_PROFILESBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem
+        Me.LayoutControl1.Controls.Add(Me.TextEdit1)
-        Me.TBCW_PROFILESBindingNavigator.BindingSource = Me.TBCW_PROFILESBindingSource
+        Me.LayoutControl1.Controls.Add(Me.TextEdit2)
-        Me.TBCW_PROFILESBindingNavigator.CountItem = Me.BindingNavigatorCountItem
+        Me.LayoutControl1.Controls.Add(Me.TextEdit3)
-        Me.TBCW_PROFILESBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem
+        Me.LayoutControl1.Controls.Add(Me.txtAddedWho)
-        Me.TBCW_PROFILESBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBCW_PROFILESBindingNavigatorSaveItem})
+        Me.LayoutControl1.Controls.Add(Me.txtAddedWhen)
-        Me.TBCW_PROFILESBindingNavigator.Location = New System.Drawing.Point(0, 159)
+        Me.LayoutControl1.Controls.Add(Me.txtChangedWho)
-        Me.TBCW_PROFILESBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
+        Me.LayoutControl1.Controls.Add(Me.txtChangedWhen)
-        Me.TBCW_PROFILESBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
+        Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.TBCW_PROFILESBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem
+        Me.LayoutControl1.Location = New System.Drawing.Point(0, 63)
-        Me.TBCW_PROFILESBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
+        Me.LayoutControl1.Name = "LayoutControl1"
-        Me.TBCW_PROFILESBindingNavigator.Name = "TBCW_PROFILESBindingNavigator"
+        Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(848, 159, 650, 400)
-        Me.TBCW_PROFILESBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
+        Me.LayoutControl1.Root = Me.Root
-        Me.TBCW_PROFILESBindingNavigator.Size = New System.Drawing.Size(800, 25)
+        Me.LayoutControl1.Size = New System.Drawing.Size(800, 363)
-        Me.TBCW_PROFILESBindingNavigator.TabIndex = 2
+        Me.LayoutControl1.TabIndex = 2
-        Me.TBCW_PROFILESBindingNavigator.Text = "BindingNavigator1"
+        Me.LayoutControl1.Text = "LayoutControl1"
         '
-        'BindingNavigatorMoveFirstItem
+        'Root
         '
-        Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
-        Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image)
+        Me.Root.GroupBordersVisible = False
-        Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
+        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem5, Me.LayoutControlItem7})
-        Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True
+        Me.Root.Name = "Root"
-        Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22)
+        Me.Root.Size = New System.Drawing.Size(800, 363)
-        Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben"
+        Me.Root.TextVisible = False
         '
-        'BindingNavigatorMovePreviousItem
+        'TextEdit1
         '
-        Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "GUID", True))
-        Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image)
+        Me.TextEdit1.Location = New System.Drawing.Point(108, 20)
-        Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
+        Me.TextEdit1.MenuManager = Me.RibbonControl1
-        Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True
+        Me.TextEdit1.Name = "TextEdit1"
-        Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22)
+        Me.TextEdit1.Size = New System.Drawing.Size(672, 20)
-        Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben"
+        Me.TextEdit1.StyleController = Me.LayoutControl1
+        Me.TextEdit1.TabIndex = 4
         '
-        'BindingNavigatorSeparator
+        'LayoutControlItem1
         '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
+        Me.LayoutControlItem1.Control = Me.TextEdit1
-        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
+        Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlItem1.Name = "LayoutControlItem1"
+        Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(780, 40)
+        Me.LayoutControlItem1.Text = "GUID"
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(76, 13)
         '
-        'BindingNavigatorPositionItem
+        'TextEdit2
         '
-        Me.BindingNavigatorPositionItem.AccessibleName = "Position"
+        Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "NAME", True))
-        Me.BindingNavigatorPositionItem.AutoSize = False
+        Me.TextEdit2.Location = New System.Drawing.Point(108, 60)
-        Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
+        Me.TextEdit2.MenuManager = Me.RibbonControl1
-        Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
+        Me.TextEdit2.Name = "TextEdit2"
-        Me.BindingNavigatorPositionItem.Text = "0"
+        Me.TextEdit2.Size = New System.Drawing.Size(672, 20)
-        Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position"
+        Me.TextEdit2.StyleController = Me.LayoutControl1
+        Me.TextEdit2.TabIndex = 5
         '
-        'BindingNavigatorCountItem
+        'LayoutControlItem2
         '
-        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
+        Me.LayoutControlItem2.Control = Me.TextEdit2
-        Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 15)
+        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40)
-        Me.BindingNavigatorCountItem.Text = "von {0}"
+        Me.LayoutControlItem2.Name = "LayoutControlItem2"
-        Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente."
+        Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(780, 40)
+        Me.LayoutControlItem2.Text = "Profil"
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(76, 13)
         '
-        'BindingNavigatorSeparator1
+        'TextEdit3
         '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator"
+        Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "COMMENT", True))
-        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 6)
+        Me.TextEdit3.Location = New System.Drawing.Point(108, 100)
+        Me.TextEdit3.MenuManager = Me.RibbonControl1
+        Me.TextEdit3.Name = "TextEdit3"
+        Me.TextEdit3.Size = New System.Drawing.Size(672, 20)
+        Me.TextEdit3.StyleController = Me.LayoutControl1
+        Me.TextEdit3.TabIndex = 6
         '
-        'BindingNavigatorMoveNextItem
+        'LayoutControlItem3
         '
-        Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.LayoutControlItem3.Control = Me.TextEdit3
-        Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image)
+        Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 80)
-        Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
+        Me.LayoutControlItem3.Name = "LayoutControlItem3"
-        Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True
+        Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 20)
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(780, 40)
-        Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben"
+        Me.LayoutControlItem3.Text = "Kommentar"
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(76, 13)
         '
-        'BindingNavigatorMoveLastItem
+        'txtAddedWho
         '
-        Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True))
-        Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image)
+        Me.txtAddedWho.Location = New System.Drawing.Point(108, 140)
-        Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
+        Me.txtAddedWho.MenuManager = Me.RibbonControl1
-        Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True
+        Me.txtAddedWho.Name = "txtAddedWho"
-        Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 20)
+        Me.txtAddedWho.Size = New System.Drawing.Size(282, 20)
-        Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben"
+        Me.txtAddedWho.StyleController = Me.LayoutControl1
+        Me.txtAddedWho.TabIndex = 7
         '
-        'BindingNavigatorSeparator2
+        'LayoutControlItem4
         '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator"
+        Me.LayoutControlItem4.Control = Me.txtAddedWho
-        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 6)
+        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 120)
+        Me.LayoutControlItem4.Name = "LayoutControlItem4"
+        Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.LayoutControlItem4.Size = New System.Drawing.Size(390, 40)
+        Me.LayoutControlItem4.Text = "Erstellt Wer"
+        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(76, 13)
         '
-        'BindingNavigatorAddNewItem
+        'txtAddedWhen
         '
-        Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True))
-        Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image)
+        Me.txtAddedWhen.Location = New System.Drawing.Point(498, 140)
-        Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
+        Me.txtAddedWhen.MenuManager = Me.RibbonControl1
-        Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True
+        Me.txtAddedWhen.Name = "txtAddedWhen"
-        Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22)
+        Me.txtAddedWhen.Size = New System.Drawing.Size(282, 20)
-        Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen"
+        Me.txtAddedWhen.StyleController = Me.LayoutControl1
+        Me.txtAddedWhen.TabIndex = 8
         '
-        'BindingNavigatorDeleteItem
+        'LayoutControlItem5
         '
-        Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.LayoutControlItem5.Control = Me.txtAddedWhen
-        Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image)
+        Me.LayoutControlItem5.Location = New System.Drawing.Point(390, 120)
-        Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
+        Me.LayoutControlItem5.Name = "LayoutControlItem5"
-        Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
+        Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 20)
+        Me.LayoutControlItem5.Size = New System.Drawing.Size(390, 40)
-        Me.BindingNavigatorDeleteItem.Text = "Löschen"
+        Me.LayoutControlItem5.Text = "Erstellt Wann"
+        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(76, 13)
         '
-        'TBCW_PROFILESBindingNavigatorSaveItem
+        'txtChangedWho
         '
-        Me.TBCW_PROFILESBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True))
-        Me.TBCW_PROFILESBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBCW_PROFILESBindingNavigatorSaveItem.Image"), System.Drawing.Image)
+        Me.txtChangedWho.Location = New System.Drawing.Point(108, 180)
-        Me.TBCW_PROFILESBindingNavigatorSaveItem.Name = "TBCW_PROFILESBindingNavigatorSaveItem"
+        Me.txtChangedWho.MenuManager = Me.RibbonControl1
-        Me.TBCW_PROFILESBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 20)
+        Me.txtChangedWho.Name = "txtChangedWho"
-        Me.TBCW_PROFILESBindingNavigatorSaveItem.Text = "Daten speichern"
+        Me.txtChangedWho.Size = New System.Drawing.Size(282, 20)
+        Me.txtChangedWho.StyleController = Me.LayoutControl1
+        Me.txtChangedWho.TabIndex = 9
         '
-        'FillToolStrip
+        'LayoutControlItem6
         '
-        Me.FillToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GUIDToolStripLabel, Me.GUIDToolStripTextBox, Me.FillToolStripButton})
+        Me.LayoutControlItem6.Control = Me.txtChangedWho
-        Me.FillToolStrip.Location = New System.Drawing.Point(0, 184)
+        Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 160)
-        Me.FillToolStrip.Name = "FillToolStrip"
+        Me.LayoutControlItem6.Name = "LayoutControlItem6"
-        Me.FillToolStrip.Size = New System.Drawing.Size(800, 25)
+        Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.FillToolStrip.TabIndex = 3
+        Me.LayoutControlItem6.Size = New System.Drawing.Size(390, 183)
-        Me.FillToolStrip.Text = "FillToolStrip"
+        Me.LayoutControlItem6.Text = "Geändert Wer"
+        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(76, 13)
         '
-        'GUIDToolStripLabel
+        'txtChangedWhen
         '
-        Me.GUIDToolStripLabel.Name = "GUIDToolStripLabel"
+        Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True))
-        Me.GUIDToolStripLabel.Size = New System.Drawing.Size(37, 22)
+        Me.txtChangedWhen.Location = New System.Drawing.Point(498, 180)
-        Me.GUIDToolStripLabel.Text = "GUID:"
+        Me.txtChangedWhen.MenuManager = Me.RibbonControl1
+        Me.txtChangedWhen.Name = "txtChangedWhen"
+        Me.txtChangedWhen.Size = New System.Drawing.Size(282, 20)
+        Me.txtChangedWhen.StyleController = Me.LayoutControl1
+        Me.txtChangedWhen.TabIndex = 10
         '
-        'GUIDToolStripTextBox
+        'LayoutControlItem7
         '
-        Me.GUIDToolStripTextBox.Name = "GUIDToolStripTextBox"
+        Me.LayoutControlItem7.Control = Me.txtChangedWhen
-        Me.GUIDToolStripTextBox.Size = New System.Drawing.Size(100, 23)
+        Me.LayoutControlItem7.Location = New System.Drawing.Point(390, 160)
+        Me.LayoutControlItem7.Name = "LayoutControlItem7"
+        Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.LayoutControlItem7.Size = New System.Drawing.Size(390, 183)
+        Me.LayoutControlItem7.Text = "Geändert Wann"
+        Me.LayoutControlItem7.TextSize = New System.Drawing.Size(76, 13)
         '
-        'FillToolStripButton
+        'labelStatus
         '
-        Me.FillToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        Me.labelStatus.Caption = "BarStaticItem1"
-        Me.FillToolStripButton.Name = "FillToolStripButton"
+        Me.labelStatus.Id = 3
-        Me.FillToolStripButton.Size = New System.Drawing.Size(26, 19)
+        Me.labelStatus.Name = "labelStatus"
-        Me.FillToolStripButton.Text = "Fill"
+        Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
         '
-        'GUIDLabel
+        'labelError
         '
-        GUIDLabel.AutoSize = True
+        Me.labelError.Caption = "BarStaticItem2"
-        GUIDLabel.Location = New System.Drawing.Point(548, 312)
+        Me.labelError.Id = 4
-        GUIDLabel.Name = "GUIDLabel"
+        Me.labelError.Name = "labelError"
-        GUIDLabel.Size = New System.Drawing.Size(37, 13)
+        Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
-        GUIDLabel.TabIndex = 4
-        GUIDLabel.Text = "GUID:"
-        '
-        'GUIDTextBox
-        '
-        Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True))
-        Me.GUIDTextBox.Location = New System.Drawing.Point(591, 309)
-        Me.GUIDTextBox.Name = "GUIDTextBox"
-        Me.GUIDTextBox.Size = New System.Drawing.Size(100, 22)
-        Me.GUIDTextBox.TabIndex = 5
         '
         'frmAdmin_CWProfile
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(800, 450)
-        Me.Controls.Add(GUIDLabel)
+        Me.Controls.Add(Me.LayoutControl1)
-        Me.Controls.Add(Me.GUIDTextBox)
-        Me.Controls.Add(Me.FillToolStrip)
-        Me.Controls.Add(Me.TBCW_PROFILESBindingNavigator)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
         Me.Name = "frmAdmin_CWProfile"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
-        Me.Text = "frmAdmin_CWProfiles"
+        Me.Text = "Clipboard Watcher - Profile"
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DBCW_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TBCW_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.TBCW_PROFILESBindingNavigator.ResumeLayout(False)
+        Me.LayoutControl1.ResumeLayout(False)
-        Me.TBCW_PROFILESBindingNavigator.PerformLayout()
+        CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.FillToolStrip.ResumeLayout(False)
+        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.FillToolStrip.PerformLayout()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAddedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -307,29 +372,30 @@ Partial Class frmAdmin_CWProfile
     Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
     Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
     Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
     Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
     Friend WithEvents DBCW_Stammdaten As DBCW_Stammdaten
     Friend WithEvents TBCW_PROFILESBindingSource As BindingSource
     Friend WithEvents TBCW_PROFILESTableAdapter As DBCW_StammdatenTableAdapters.TBCW_PROFILESTableAdapter
     Friend WithEvents TableAdapterManager As DBCW_StammdatenTableAdapters.TableAdapterManager
-    Friend WithEvents TBCW_PROFILESBindingNavigator As BindingNavigator
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BindingNavigatorCountItem As ToolStripLabel
+    Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
-    Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton
+    Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton
+    Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
-    Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton
+    Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
+    Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox
+    Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
+    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton
+    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton
+    Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
+    Friend WithEvents txtAddedWhen As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents TBCW_PROFILESBindingNavigatorSaveItem As ToolStripButton
+    Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents FillToolStrip As ToolStrip
+    Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents GUIDToolStripLabel As ToolStripLabel
+    Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents GUIDToolStripTextBox As ToolStripTextBox
+    Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents FillToolStripButton As ToolStripButton
+    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents GUIDTextBox As TextBox
+    Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem
 End Class

GUIs.ZooFlow/Administration/frmAdmin_CWProfile.resx

@@ -129,86 +129,4 @@
   <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>612, 17</value>
   </metadata>
-  <metadata name="TBCW_PROFILESBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>785, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFKSURBVDhPYxi84O4C9v+35nH+vzqH6//FGbz/ocLEg+tA
-        jX8eNf7/87Dh/8nJAqQbcH46L9yAgz0ipBtwfJIgUHPd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/
-        fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97
-        J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp
-        Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4
-        35OhQ1gDOgD5898NfyD2+9+arE+6Ad3pumD/gnB9nBHpBrQkGfxviDf8XxNr/L8y2oR0A+gEGBgAJCPY
-        nnX8iGkAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFvSURBVDhPtZBNKMNhHMd3Vd5K7eKCWjkgk7yEZDKksciE
-        yMwkBw6LhHZxcCDlQg64SA4kJeVE4jRv89qaWn8tUtoF/7g8H2Ootb+x4nt56nm+38/v+/xUfyJcJ9Bt
-        BMcOH1eRiZV5RGcVwqyHrfWwELweWJoJ9rC2AL0mRLse0VEBcxOKkLeGwlwGIz2h75w6ApC6bERjAdia
-        gkxiyIow5cKkPWxDFYvTiMrUdxDDVnCfwVh/AOo/P2zhhccFzcWBLxmzEPV50Nfyu/Cn2N/1V85DGNKh
-        Rhth+EaCxkLISUDWxvOgjYXa7F/Wv7kGUz4UJeKzGODi6H25d2l+yPLsDwu8v4NWHY8lSbhL0/HtbX8F
-        GLXh1MQgnxwoQ3h5hkEL6JI5TlPj21gNMd6WZyC1VSN7r0Mh7G4i56pxpkQhdTWA/KQ4aUcTh+x0KACm
-        RpBSo3HrM0G6Uq7pl2zvhvNDBcClE8YH4HDv2/A/SKV6BYojAxyEJtLJAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEqSURBVDhPYxg8oHDW8/9NC57/z5z4+D9UCAOEtz/AKceQ
-        O/PZ/1VH3v/HpSi++8H/4IZruA3ImPL0/8J9H7Aqiu95+H/p/v///asv4DYgoefJ/2lb3mMoimi/D9ac
-        Oev/f6/SE7gNiOx69L939QcURaGt98CaW9cBbe/8+98l/wBuAwKbH/6vm/8Orii45e7/RXv//+8Aas6Y
-        8/O/Xd3P//YZ23Eb4FF1/3/+tDcoiuyKb/9Pn/P7v3/Xt/86he/+WySsx22Afend/9mTX2Mo0k85/9+k
-        6MV/laxP/40jl+E2wCLvzv/U/tdYFRkknfgvm/b1v27wPNwGGGbd/h/W8hKnIv3Uy/81fKfhNkAn7cZ/
-        v+qHeBWpeEzAbYBT7pX/IAV4FQ1CwMAAAPB2wKul5ZpwAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC2SURBVDhPYxg6ILz9wX8ok3QQ3/3gf3DDNfIMiO95+H/p
-        /v///asvkG5ARPt9sObMWf//e5WeIM2A0NZ7YM2t64C2d/7975J/gHgDglvu/l+09///DqDmjDk//9vV
-        /fxvn7GdNBfYFd/+nz7n93//rm//dQrf/bdIWE96GOinnP9vUvTiv0rWp//GkctINwAEDJJO/JdN+/pf
-        N3geeQaAgH7q5f8avtPINwAEVDwmUGbAYAUMDADQFGCYBLpQVQAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACjSURBVDhPYxh8oHDW8/9QJnkgd+az/wnd98g3JGPK0//z
-        9v/+n9B1hzxDEnqe/J+979f/zq1//7uVXibdkMiuR/+nbPv1v2Tp3/8J0//+t8k9S5ohgc0P/7eufQ/W
-        bFzy5b909LX/xpHLiDfEo+r+/5K57+CaFV16SHOBfend/4Etz8jTDAIWeXf+2xRcIU8zCBhm3SZfMwjo
-        pN0gX/NQBAwMAKB+X6AHNEI4AAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEsSURBVDhPYxhcoHDW8/9QJgYAyTUteP4/c+JjnGoYcmc+
-        +5/QfQ+rApDcqiPv/4e3P8BtQMaUp//n7f/9P6HrDoYikNzCfR/+Bzdcw21AQs+T/7P3/frfufXvf7fS
-        yygKQXLTtrz/7199AbcBkV2P/k/Z9ut/ydK//xOm//1vk3sWrhgk17v6w3+v0hO4DQhsfvi/de17sGbj
-        ki//paOv/TeOXAbWAJKrm//uv0v+AdwGeFTd/18y9x1cs6JLD1wxSC5/2pv/9hnbcRtgX3r3f2DLMwzN
-        IACSy578+r9FwnrcBljk3flvU3AFQzMIgORS+1/DvYQVGGbdxqoZBEByYS0v/+sGz8NtgE7aDZySIDm/
-        6of/NXyn4TYAH3DKvfJfxWMCGEOFBgVgYAAAvtG/s7kMTpwAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="TBCW_PROFILESBindingNavigatorSaveItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABMSURBVDhPY6AK+Pbt239SMVQrBIAFgufA8Yf3H+EYWQxE
-        x0zYh2kIKQaAMMwQqHbSDQBhog1AxshqaGsAMXjUgEFpADkYqp0SwMAAAPRDDFPA2mtzAAAAAElFTkSu
-        QmCC
-</value>
-  </data>
-  <metadata name="FillToolStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1021, 17</value>
-  </metadata>
-  <metadata name="GUIDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
 </root>

GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb

@@ -1,7 +1,6 @@
 Imports DigitalData.Modules.Logging
 
 Public Class frmAdmin_CWProfile
-    'Inherits frmAdmin_Base
     Implements frmAdmin_Interface
 
     Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
@@ -12,27 +11,70 @@ Public Class frmAdmin_CWProfile
 
     Private Property Logger As Logger Implements frmAdmin_Interface.Logger
 
-    Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Public Sub New(PrimaryKey As Integer)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
 
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Logger = My.LogConfig.GetLogger()
+        Me.PrimaryKey = PrimaryKey
+        Me.IsInsert = IsInsert
+    End Sub
+
+    Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            TBCW_PROFILESTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROFILES, PrimaryKey)
+        Catch ex As Exception
+            ShowError(ex)
+        End Try
+    End Sub
+
+    Private Sub ResetMessages()
+        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+    End Sub
+
+    Private Sub ShowStatus(Message As String)
+        labelStatus.Caption = Message
+        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
     End Sub
 
     Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
+        Try
+            TBCW_PROFILESBindingSource.EndEdit()
 
+            If DBCW_Stammdaten.TBCW_PROFILES.GetChanges() IsNot Nothing Then
+                HasChanges = True
+
+                If IsInsert Then
+                    txtAddedWho.EditValue = My.Application.User.UserName
+                Else
+                    txtChangedWho.EditValue = My.Application.User.UserName
+                End If
+
+                TBCW_PROFILESBindingSource.EndEdit()
+                TBCW_PROFILESTableAdapter.Update(DBCW_Stammdaten.TBCW_PROFILES)
+            End If
+
+            Return True
+        Catch ex As Exception
+            ShowError(ex)
+            Return False
+        End Try
     End Function
 
-    Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBCW_PROFILESBindingNavigatorSaveItem.Click
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
-        Me.Validate()
+        ResetMessages()
-        Me.TBCW_PROFILESBindingSource.EndEdit()
-        Me.TableAdapterManager.UpdateAll(Me.DBCW_Stammdaten)
 
+        If SaveData() Then
+            Close()
+        End If
     End Sub
 
-    Private Sub FillToolStripButton_Click(sender As Object, e As EventArgs) Handles FillToolStripButton.Click
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
-        Try
+        ResetMessages()
-            Me.TBCW_PROFILESTableAdapter.Fill(Me.DBCW_Stammdaten.TBCW_PROFILES, CType(GUIDToolStripTextBox.Text, Integer))
-        Catch ex As System.Exception
-            System.Windows.Forms.MessageBox.Show(ex.Message)
-        End Try
 
+        If SaveData() And HasChanges Then
+            ShowStatus("Attribute gespeichert!")
+        End If
     End Sub
 End Class

GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb

@@ -100,7 +100,7 @@ Partial Class frmAdmin_IDBAttribute
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
         Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
-        Me.RibbonControl1.Size = New System.Drawing.Size(800, 66)
+        Me.RibbonControl1.Size = New System.Drawing.Size(800, 63)
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
         '
         'BarButtonItem1
@@ -142,10 +142,10 @@ Partial Class frmAdmin_IDBAttribute
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 428)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 426)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 22)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 24)
         '
         'RibbonPage2
         '
@@ -166,21 +166,21 @@ Partial Class frmAdmin_IDBAttribute
         Me.LayoutControl1.Controls.Add(Me.txtChangedWhen)
         Me.LayoutControl1.Controls.Add(Me.ComboBoxEdit1)
         Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.LayoutControl1.Location = New System.Drawing.Point(0, 66)
+        Me.LayoutControl1.Location = New System.Drawing.Point(0, 63)
         Me.LayoutControl1.Name = "LayoutControl1"
         Me.LayoutControl1.Root = Me.Root
-        Me.LayoutControl1.Size = New System.Drawing.Size(800, 362)
+        Me.LayoutControl1.Size = New System.Drawing.Size(800, 363)
         Me.LayoutControl1.TabIndex = 2
         Me.LayoutControl1.Text = "LayoutControl1"
         '
         'TextEdit1
         '
         Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "GUID", True))
-        Me.TextEdit1.Location = New System.Drawing.Point(168, 20)
+        Me.TextEdit1.Location = New System.Drawing.Point(154, 20)
         Me.TextEdit1.MenuManager = Me.RibbonControl1
         Me.TextEdit1.Name = "TextEdit1"
         Me.TextEdit1.Properties.ReadOnly = True
-        Me.TextEdit1.Size = New System.Drawing.Size(612, 20)
+        Me.TextEdit1.Size = New System.Drawing.Size(626, 20)
         Me.TextEdit1.StyleController = Me.LayoutControl1
         Me.TextEdit1.TabIndex = 4
         '
@@ -197,10 +197,10 @@ Partial Class frmAdmin_IDBAttribute
         'TextEdit2
         '
         Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "TITLE", True))
-        Me.TextEdit2.Location = New System.Drawing.Point(168, 60)
+        Me.TextEdit2.Location = New System.Drawing.Point(154, 60)
         Me.TextEdit2.MenuManager = Me.RibbonControl1
         Me.TextEdit2.Name = "TextEdit2"
-        Me.TextEdit2.Size = New System.Drawing.Size(612, 20)
+        Me.TextEdit2.Size = New System.Drawing.Size(626, 20)
         Me.TextEdit2.StyleController = Me.LayoutControl1
         Me.TextEdit2.TabIndex = 5
         '
@@ -208,11 +208,11 @@ Partial Class frmAdmin_IDBAttribute
         '
         Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True))
         Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0})
-        Me.SpinEdit1.Location = New System.Drawing.Point(558, 180)
+        Me.SpinEdit1.Location = New System.Drawing.Point(544, 180)
         Me.SpinEdit1.MenuManager = Me.RibbonControl1
         Me.SpinEdit1.Name = "SpinEdit1"
         Me.SpinEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.SpinEdit1.Size = New System.Drawing.Size(222, 20)
+        Me.SpinEdit1.Size = New System.Drawing.Size(236, 20)
         Me.SpinEdit1.StyleController = Me.LayoutControl1
         Me.SpinEdit1.TabIndex = 6
         '
@@ -223,7 +223,7 @@ Partial Class frmAdmin_IDBAttribute
         Me.CheckEdit1.MenuManager = Me.RibbonControl1
         Me.CheckEdit1.Name = "CheckEdit1"
         Me.CheckEdit1.Properties.Caption = "Attribut mehrzeilig"
-        Me.CheckEdit1.Size = New System.Drawing.Size(760, 18)
+        Me.CheckEdit1.Size = New System.Drawing.Size(760, 20)
         Me.CheckEdit1.StyleController = Me.LayoutControl1
         Me.CheckEdit1.TabIndex = 7
         '
@@ -234,72 +234,72 @@ Partial Class frmAdmin_IDBAttribute
         Me.CheckEdit2.MenuManager = Me.RibbonControl1
         Me.CheckEdit2.Name = "CheckEdit2"
         Me.CheckEdit2.Properties.Caption = "Standard in Ergebnisliste"
-        Me.CheckEdit2.Size = New System.Drawing.Size(370, 18)
+        Me.CheckEdit2.Size = New System.Drawing.Size(370, 20)
         Me.CheckEdit2.StyleController = Me.LayoutControl1
         Me.CheckEdit2.TabIndex = 8
         '
         'TextEdit3
         '
         Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "COMMENT", True))
-        Me.TextEdit3.Location = New System.Drawing.Point(168, 140)
+        Me.TextEdit3.Location = New System.Drawing.Point(154, 140)
         Me.TextEdit3.MenuManager = Me.RibbonControl1
         Me.TextEdit3.Name = "TextEdit3"
-        Me.TextEdit3.Size = New System.Drawing.Size(612, 20)
+        Me.TextEdit3.Size = New System.Drawing.Size(626, 20)
         Me.TextEdit3.StyleController = Me.LayoutControl1
         Me.TextEdit3.TabIndex = 9
         '
         'txtAddedWho
         '
         Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHO", True))
-        Me.txtAddedWho.Location = New System.Drawing.Point(168, 258)
+        Me.txtAddedWho.Location = New System.Drawing.Point(154, 260)
         Me.txtAddedWho.MenuManager = Me.RibbonControl1
         Me.txtAddedWho.Name = "txtAddedWho"
         Me.txtAddedWho.Properties.ReadOnly = True
-        Me.txtAddedWho.Size = New System.Drawing.Size(222, 20)
+        Me.txtAddedWho.Size = New System.Drawing.Size(236, 20)
         Me.txtAddedWho.StyleController = Me.LayoutControl1
         Me.txtAddedWho.TabIndex = 10
         '
         'txtAddedWhen
         '
         Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHEN", True))
-        Me.txtAddedWhen.Location = New System.Drawing.Point(558, 258)
+        Me.txtAddedWhen.Location = New System.Drawing.Point(544, 260)
         Me.txtAddedWhen.MenuManager = Me.RibbonControl1
         Me.txtAddedWhen.Name = "txtAddedWhen"
         Me.txtAddedWhen.Properties.ReadOnly = True
-        Me.txtAddedWhen.Size = New System.Drawing.Size(222, 20)
+        Me.txtAddedWhen.Size = New System.Drawing.Size(236, 20)
         Me.txtAddedWhen.StyleController = Me.LayoutControl1
         Me.txtAddedWhen.TabIndex = 11
         '
         'txtChangedWho
         '
         Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHO", True))
-        Me.txtChangedWho.Location = New System.Drawing.Point(168, 298)
+        Me.txtChangedWho.Location = New System.Drawing.Point(154, 300)
         Me.txtChangedWho.MenuManager = Me.RibbonControl1
         Me.txtChangedWho.Name = "txtChangedWho"
         Me.txtChangedWho.Properties.ReadOnly = True
-        Me.txtChangedWho.Size = New System.Drawing.Size(222, 20)
+        Me.txtChangedWho.Size = New System.Drawing.Size(236, 20)
         Me.txtChangedWho.StyleController = Me.LayoutControl1
         Me.txtChangedWho.TabIndex = 12
         '
         'txtChangedWhen
         '
         Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHEN", True))
-        Me.txtChangedWhen.Location = New System.Drawing.Point(558, 298)
+        Me.txtChangedWhen.Location = New System.Drawing.Point(544, 300)
         Me.txtChangedWhen.MenuManager = Me.RibbonControl1
         Me.txtChangedWhen.Name = "txtChangedWhen"
         Me.txtChangedWhen.Properties.ReadOnly = True
-        Me.txtChangedWhen.Size = New System.Drawing.Size(222, 20)
+        Me.txtChangedWhen.Size = New System.Drawing.Size(236, 20)
         Me.txtChangedWhen.StyleController = Me.LayoutControl1
         Me.txtChangedWhen.TabIndex = 13
         '
         'ComboBoxEdit1
         '
         Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "TYP_ID", True))
-        Me.ComboBoxEdit1.Location = New System.Drawing.Point(168, 100)
+        Me.ComboBoxEdit1.Location = New System.Drawing.Point(154, 100)
         Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1
         Me.ComboBoxEdit1.Name = "ComboBoxEdit1"
         Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.ComboBoxEdit1.Size = New System.Drawing.Size(612, 20)
+        Me.ComboBoxEdit1.Size = New System.Drawing.Size(626, 20)
         Me.ComboBoxEdit1.StyleController = Me.LayoutControl1
         Me.ComboBoxEdit1.TabIndex = 14
         '
@@ -309,7 +309,7 @@ Partial Class frmAdmin_IDBAttribute
         Me.Root.GroupBordersVisible = False
         Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem3, Me.LayoutControlItem11, Me.LayoutControlItem9, Me.LayoutControlItem5, Me.LayoutControlItem8, Me.LayoutControlItem10})
         Me.Root.Name = "Root"
-        Me.Root.Size = New System.Drawing.Size(800, 362)
+        Me.Root.Size = New System.Drawing.Size(800, 363)
         Me.Root.TextVisible = False
         '
         'LayoutControlItem1
@@ -321,7 +321,7 @@ Partial Class frmAdmin_IDBAttribute
         Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
         Me.LayoutControlItem1.Size = New System.Drawing.Size(780, 40)
         Me.LayoutControlItem1.Text = "GUID"
-        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(145, 13)
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(131, 13)
         '
         'LayoutControlItem2
         '
@@ -331,7 +331,7 @@ Partial Class frmAdmin_IDBAttribute
         Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
         Me.LayoutControlItem2.Size = New System.Drawing.Size(780, 40)
         Me.LayoutControlItem2.Text = "Bezeichnung"
-        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(145, 13)
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(131, 13)
         '
         'LayoutControlItem4
         '
@@ -339,7 +339,7 @@ Partial Class frmAdmin_IDBAttribute
         Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 200)
         Me.LayoutControlItem4.Name = "LayoutControlItem4"
         Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem4.Size = New System.Drawing.Size(780, 38)
+        Me.LayoutControlItem4.Size = New System.Drawing.Size(780, 40)
         Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
         Me.LayoutControlItem4.TextVisible = False
         '
@@ -351,17 +351,17 @@ Partial Class frmAdmin_IDBAttribute
         Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
         Me.LayoutControlItem6.Size = New System.Drawing.Size(780, 40)
         Me.LayoutControlItem6.Text = "Kommentar"
-        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(145, 13)
+        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(131, 13)
         '
         'LayoutControlItem7
         '
         Me.LayoutControlItem7.Control = Me.txtAddedWho
-        Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 238)
+        Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 240)
         Me.LayoutControlItem7.Name = "LayoutControlItem7"
         Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
         Me.LayoutControlItem7.Size = New System.Drawing.Size(390, 40)
         Me.LayoutControlItem7.Text = "Erstellt Wer"
-        Me.LayoutControlItem7.TextSize = New System.Drawing.Size(145, 13)
+        Me.LayoutControlItem7.TextSize = New System.Drawing.Size(131, 13)
         '
         'LayoutControlItem3
         '
@@ -372,7 +372,7 @@ Partial Class frmAdmin_IDBAttribute
         Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
         Me.LayoutControlItem3.Size = New System.Drawing.Size(390, 40)
         Me.LayoutControlItem3.Text = "Reihenfolge in Ergebnisliste"
-        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(145, 13)
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(131, 13)
         '
         'LayoutControlItem11
         '
@@ -382,17 +382,17 @@ Partial Class frmAdmin_IDBAttribute
         Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
         Me.LayoutControlItem11.Size = New System.Drawing.Size(780, 40)
         Me.LayoutControlItem11.Text = "Attribut-Typ"
-        Me.LayoutControlItem11.TextSize = New System.Drawing.Size(145, 13)
+        Me.LayoutControlItem11.TextSize = New System.Drawing.Size(131, 13)
         '
         'LayoutControlItem9
         '
         Me.LayoutControlItem9.Control = Me.txtChangedWho
-        Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 278)
+        Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 280)
         Me.LayoutControlItem9.Name = "LayoutControlItem9"
         Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem9.Size = New System.Drawing.Size(390, 64)
+        Me.LayoutControlItem9.Size = New System.Drawing.Size(390, 63)
         Me.LayoutControlItem9.Text = "Geändert Wer"
-        Me.LayoutControlItem9.TextSize = New System.Drawing.Size(145, 13)
+        Me.LayoutControlItem9.TextSize = New System.Drawing.Size(131, 13)
         '
         'LayoutControlItem5
         '
@@ -407,22 +407,22 @@ Partial Class frmAdmin_IDBAttribute
         'LayoutControlItem8
         '
         Me.LayoutControlItem8.Control = Me.txtAddedWhen
-        Me.LayoutControlItem8.Location = New System.Drawing.Point(390, 238)
+        Me.LayoutControlItem8.Location = New System.Drawing.Point(390, 240)
         Me.LayoutControlItem8.Name = "LayoutControlItem8"
         Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
         Me.LayoutControlItem8.Size = New System.Drawing.Size(390, 40)
         Me.LayoutControlItem8.Text = "Erstellt Wann"
-        Me.LayoutControlItem8.TextSize = New System.Drawing.Size(145, 13)
+        Me.LayoutControlItem8.TextSize = New System.Drawing.Size(131, 13)
         '
         'LayoutControlItem10
         '
         Me.LayoutControlItem10.Control = Me.txtChangedWhen
-        Me.LayoutControlItem10.Location = New System.Drawing.Point(390, 278)
+        Me.LayoutControlItem10.Location = New System.Drawing.Point(390, 280)
         Me.LayoutControlItem10.Name = "LayoutControlItem10"
         Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem10.Size = New System.Drawing.Size(390, 64)
+        Me.LayoutControlItem10.Size = New System.Drawing.Size(390, 63)
         Me.LayoutControlItem10.Text = "Geändert Wann"
-        Me.LayoutControlItem10.TextSize = New System.Drawing.Size(145, 13)
+        Me.LayoutControlItem10.TextSize = New System.Drawing.Size(131, 13)
         '
         'TBIDB_ATTRIBUTETableAdapter
         '
@@ -446,10 +446,11 @@ Partial Class frmAdmin_IDBAttribute
         Me.Controls.Add(Me.LayoutControl1)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
+        Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_appearance
         Me.Name = "frmAdmin_IDBAttribute"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
-        Me.Text = "frmAdmin_Attribute"
+        Me.Text = "IDB - Attribut"
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.LayoutControl1.ResumeLayout(False)

GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx

@@ -123,6 +123,9 @@
   <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>74, 22</value>
   </metadata>
+  <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>74, 22</value>
+  </metadata>
   <metadata name="TBIDB_ATTRIBUTETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>649, 17</value>
   </metadata>

GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb

@@ -116,6 +116,7 @@ Partial Class frmAdmin_SourceSQL
         Me.labelStatus.Id = 3
         Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about1
         Me.labelStatus.Name = "labelStatus"
+        Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
         '
         'labelError
@@ -394,10 +395,11 @@ Partial Class frmAdmin_SourceSQL
         Me.Controls.Add(Me.LayoutControl1)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
+        Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.managedatasource
         Me.Name = "frmAdmin_SourceSQL"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
-        Me.Text = "Source SQL"
+        Me.Text = "IDB - Source SQL"
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.LayoutControl1.ResumeLayout(False)

GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx

@@ -123,9 +123,6 @@
   <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>314, 17</value>
   </metadata>
-  <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>314, 17</value>
-  </metadata>
   <metadata name="TBZF_ADMIN_SOURCE_SQLTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>754, 17</value>
   </metadata>

GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb

@@ -34,7 +34,13 @@ Partial Class frmAdmin_Start
         Dim VIEW_SEQUENCELabel As System.Windows.Forms.Label
         Dim TITLELabel As System.Windows.Forms.Label
         Dim GUIDLabel As System.Windows.Forms.Label
+        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_Start))
+        Me.ViewCWProcesses = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridCWProfiles = New DevExpress.XtraGrid.GridControl()
+        Me.WinExplorerView1 = New DevExpress.XtraGrid.Views.WinExplorer.WinExplorerView()
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
         Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
@@ -63,10 +69,12 @@ Partial Class frmAdmin_Start
         Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.ViewCWWindows = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.ViewCWControls = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.TreeListMenu = New DevExpress.XtraTreeList.TreeList()
         Me.TreeListColumn1 = New DevExpress.XtraTreeList.Columns.TreeListColumn()
-        Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components)
+        Me.MainTreeImages = New DevExpress.Utils.SvgImageCollection(Me.components)
         Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components)
         Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel()
         Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer()
@@ -81,6 +89,7 @@ Partial Class frmAdmin_Start
         Me.XtraTabPageIDB_Attributes_New = New DevExpress.XtraTab.XtraTabPage()
         Me.GridAttributes = New DevExpress.XtraGrid.GridControl()
         Me.ViewAttributes = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.XtraTabPageIDB_Attributes = New DevExpress.XtraTab.XtraTabPage()
         Me.ComboBox1 = New System.Windows.Forms.ComboBox()
         Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
@@ -103,11 +112,18 @@ Partial Class frmAdmin_Start
         Me.GridSourceSQL = New DevExpress.XtraGrid.GridControl()
         Me.ViewSourceSQL = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.XtraTabPage_GlobalIndexer = New DevExpress.XtraTab.XtraTabPage()
+        Me.TreeList2 = New DevExpress.XtraTreeList.TreeList()
+        Me.GLOBIXImages = New DevExpress.Utils.SvgImageCollection(Me.components)
         Me.XtraTabPage_ClipboardWatcher = New DevExpress.XtraTab.XtraTabPage()
         Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
         Me.XtraTabPageCWProfiles = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
+        Me.TreeList1 = New DevExpress.XtraTreeList.TreeList()
-        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.COL_ENTITY = New DevExpress.XtraTreeList.Columns.TreeListColumn()
+        Me.COL_ENITY_SCOPE = New DevExpress.XtraTreeList.Columns.TreeListColumn()
+        Me.COL_PARENT = New DevExpress.XtraTreeList.Columns.TreeListColumn()
+        Me.COL_GUID = New DevExpress.XtraTreeList.Columns.TreeListColumn()
+        Me.COL_NODE_TITLE = New DevExpress.XtraTreeList.Columns.TreeListColumn()
+        Me.CWImages = New DevExpress.Utils.SvgImageCollection(Me.components)
         Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
         Me.XtraTabControl = New DevExpress.XtraTab.XtraTabControl()
         CHANGED_WHENLabel = New System.Windows.Forms.Label()
@@ -118,9 +134,14 @@ Partial Class frmAdmin_Start
         VIEW_SEQUENCELabel = New System.Windows.Forms.Label()
         TITLELabel = New System.Windows.Forms.Label()
         GUIDLabel = New System.Windows.Forms.Label()
+        CType(Me.ViewCWProcesses, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridCWProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.WinExplorerView1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ViewCWWindows, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ViewCWControls, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.DockPanel1.SuspendLayout()
         Me.DockPanel1_Container.SuspendLayout()
@@ -133,18 +154,22 @@ Partial Class frmAdmin_Start
         Me.XtraTabPageIDB_Attributes_New.SuspendLayout()
         CType(Me.GridAttributes, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ViewAttributes, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabPageIDB_Attributes.SuspendLayout()
         CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabPageIDB_SourceSQL.SuspendLayout()
         CType(Me.GridSourceSQL, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ViewSourceSQL, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPage_GlobalIndexer.SuspendLayout()
+        CType(Me.TreeList2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GLOBIXImages, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabPage_ClipboardWatcher.SuspendLayout()
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControl1.SuspendLayout()
         Me.XtraTabPageCWProfiles.SuspendLayout()
-        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.CWImages, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControl.SuspendLayout()
         Me.SuspendLayout()
@@ -221,6 +246,36 @@ Partial Class frmAdmin_Start
         GUIDLabel.TabIndex = 0
         GUIDLabel.Text = "GUID:"
         '
+        'ViewCWProcesses
+        '
+        Me.ViewCWProcesses.GridControl = Me.GridCWProfiles
+        Me.ViewCWProcesses.Name = "ViewCWProcesses"
+        Me.ViewCWProcesses.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Never
+        '
+        'GridCWProfiles
+        '
+        GridLevelNode1.LevelTemplate = Me.ViewCWProcesses
+        GridLevelNode2.LevelTemplate = Me.ViewCWWindows
+        GridLevelNode3.LevelTemplate = Me.ViewCWControls
+        GridLevelNode3.RelationName = "Level3"
+        GridLevelNode2.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
+        GridLevelNode2.RelationName = "Level2"
+        GridLevelNode1.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
+        GridLevelNode1.RelationName = "Level1"
+        Me.GridCWProfiles.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
+        Me.GridCWProfiles.Location = New System.Drawing.Point(819, 41)
+        Me.GridCWProfiles.MainView = Me.WinExplorerView1
+        Me.GridCWProfiles.MenuManager = Me.RibbonControl1
+        Me.GridCWProfiles.Name = "GridCWProfiles"
+        Me.GridCWProfiles.Size = New System.Drawing.Size(319, 266)
+        Me.GridCWProfiles.TabIndex = 0
+        Me.GridCWProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.WinExplorerView1, Me.ViewCWWindows, Me.ViewCWControls, Me.ViewCWProcesses})
+        '
+        'WinExplorerView1
+        '
+        Me.WinExplorerView1.GridControl = Me.GridCWProfiles
+        Me.WinExplorerView1.Name = "WinExplorerView1"
+        '
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
@@ -279,6 +334,7 @@ Partial Class frmAdmin_Start
         Me.labelStatus.Id = 6
         Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("labelStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.labelStatus.Name = "labelStatus"
+        Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
         '
         'labelError
@@ -424,6 +480,16 @@ Partial Class frmAdmin_Start
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
         Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 22)
         '
+        'ViewCWWindows
+        '
+        Me.ViewCWWindows.GridControl = Me.GridCWProfiles
+        Me.ViewCWWindows.Name = "ViewCWWindows"
+        '
+        'ViewCWControls
+        '
+        Me.ViewCWControls.GridControl = Me.GridCWProfiles
+        Me.ViewCWControls.Name = "ViewCWControls"
+        '
         'RibbonPage2
         '
         Me.RibbonPage2.Name = "RibbonPage2"
@@ -453,7 +519,7 @@ Partial Class frmAdmin_Start
         Me.TreeListMenu.OptionsView.ShowHorzLines = False
         Me.TreeListMenu.OptionsView.ShowIndicator = False
         Me.TreeListMenu.OptionsView.ShowVertLines = False
-        Me.TreeListMenu.SelectImageList = Me.SvgImageCollection1
+        Me.TreeListMenu.SelectImageList = Me.MainTreeImages
         Me.TreeListMenu.Size = New System.Drawing.Size(193, 521)
         Me.TreeListMenu.TabIndex = 8
         '
@@ -465,14 +531,14 @@ Partial Class frmAdmin_Start
         Me.TreeListColumn1.Visible = True
         Me.TreeListColumn1.VisibleIndex = 0
         '
-        'SvgImageCollection1
+        'MainTreeImages
         '
-        Me.SvgImageCollection1.Add("shopping_box", "image://svgimages/icon builder/shopping_box.svg")
+        Me.MainTreeImages.Add("shopping_box", "image://svgimages/icon builder/shopping_box.svg")
-        Me.SvgImageCollection1.Add("bo_organization", "image://svgimages/business objects/bo_organization.svg")
+        Me.MainTreeImages.Add("bo_organization", "image://svgimages/business objects/bo_organization.svg")
-        Me.SvgImageCollection1.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg")
+        Me.MainTreeImages.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg")
-        Me.SvgImageCollection1.Add("managedatasource", "image://svgimages/spreadsheet/managedatasource.svg")
+        Me.MainTreeImages.Add("managedatasource", "image://svgimages/spreadsheet/managedatasource.svg")
-        Me.SvgImageCollection1.Add("grandtotals", "image://svgimages/dashboards/grandtotals.svg")
+        Me.MainTreeImages.Add("grandtotals", "image://svgimages/dashboards/grandtotals.svg")
-        Me.SvgImageCollection1.Add("allowuserstoeditranges", "image://svgimages/spreadsheet/allowuserstoeditranges.svg")
+        Me.MainTreeImages.Add("allowuserstoeditranges", "image://svgimages/spreadsheet/allowuserstoeditranges.svg")
         '
         'DockManager1
         '
@@ -565,13 +631,18 @@ Partial Class frmAdmin_Start
         Me.GridAttributes.Name = "GridAttributes"
         Me.GridAttributes.Size = New System.Drawing.Size(1124, 524)
         Me.GridAttributes.TabIndex = 0
-        Me.GridAttributes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewAttributes})
+        Me.GridAttributes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewAttributes, Me.GridView2})
         '
         'ViewAttributes
         '
         Me.ViewAttributes.GridControl = Me.GridAttributes
         Me.ViewAttributes.Name = "ViewAttributes"
         '
+        'GridView2
+        '
+        Me.GridView2.GridControl = Me.GridAttributes
+        Me.GridView2.Name = "GridView2"
+        '
         'XtraTabPageIDB_Attributes
         '
         Me.XtraTabPageIDB_Attributes.AutoScroll = True
@@ -778,11 +849,29 @@ Partial Class frmAdmin_Start
         '
         'XtraTabPage_GlobalIndexer
         '
+        Me.XtraTabPage_GlobalIndexer.Controls.Add(Me.TreeList2)
         Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer"
         Me.XtraTabPage_GlobalIndexer.PageVisible = False
         Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 547)
         Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer"
         '
+        'TreeList2
+        '
+        Me.TreeList2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeList2.Location = New System.Drawing.Point(0, 0)
+        Me.TreeList2.MenuManager = Me.RibbonControl1
+        Me.TreeList2.Name = "TreeList2"
+        Me.TreeList2.PreviewFieldName = "Title"
+        Me.TreeList2.Size = New System.Drawing.Size(1126, 547)
+        Me.TreeList2.StateImageList = Me.GLOBIXImages
+        Me.TreeList2.TabIndex = 0
+        '
+        'GLOBIXImages
+        '
+        Me.GLOBIXImages.Add("bo_document", "image://svgimages/business objects/bo_document.svg")
+        Me.GLOBIXImages.Add("calculatenow", "image://svgimages/spreadsheet/calculatenow.svg")
+        Me.GLOBIXImages.Add("calculationoptions", "image://svgimages/spreadsheet/calculationoptions.svg")
+        '
         'XtraTabPage_ClipboardWatcher
         '
         Me.XtraTabPage_ClipboardWatcher.Controls.Add(Me.XtraTabControl1)
@@ -793,7 +882,6 @@ Partial Class frmAdmin_Start
         '
         'XtraTabControl1
         '
-        Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageCWProfiles
@@ -803,26 +891,70 @@ Partial Class frmAdmin_Start
         '
         'XtraTabPageCWProfiles
         '
-        Me.XtraTabPageCWProfiles.Controls.Add(Me.GridControl2)
+        Me.XtraTabPageCWProfiles.Controls.Add(Me.TreeList1)
+        Me.XtraTabPageCWProfiles.Controls.Add(Me.GridCWProfiles)
         Me.XtraTabPageCWProfiles.Name = "XtraTabPageCWProfiles"
         Me.XtraTabPageCWProfiles.Size = New System.Drawing.Size(1124, 524)
         Me.XtraTabPageCWProfiles.Text = "Profile"
         '
-        'GridControl2
+        'TreeList1
         '
-        Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeList1.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.COL_ENTITY, Me.COL_ENITY_SCOPE, Me.COL_PARENT, Me.COL_GUID, Me.COL_NODE_TITLE})
-        Me.GridControl2.Location = New System.Drawing.Point(0, 0)
+        Me.TreeList1.KeyFieldName = ""
-        Me.GridControl2.MainView = Me.GridView2
+        Me.TreeList1.Location = New System.Drawing.Point(4, 3)
-        Me.GridControl2.MenuManager = Me.RibbonControl1
+        Me.TreeList1.MenuManager = Me.RibbonControl1
-        Me.GridControl2.Name = "GridControl2"
+        Me.TreeList1.Name = "TreeList1"
-        Me.GridControl2.Size = New System.Drawing.Size(1124, 524)
+        Me.TreeList1.OptionsView.ShowIndentAsRowStyle = True
-        Me.GridControl2.TabIndex = 0
+        Me.TreeList1.ParentFieldName = ""
-        Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
+        Me.TreeList1.Size = New System.Drawing.Size(809, 504)
+        Me.TreeList1.StateImageList = Me.CWImages
+        Me.TreeList1.TabIndex = 2
         '
-        'GridView2
+        'COL_ENTITY
         '
-        Me.GridView2.GridControl = Me.GridControl2
+        Me.COL_ENTITY.Caption = "Entität"
-        Me.GridView2.Name = "GridView2"
+        Me.COL_ENTITY.FieldName = "Entity"
+        Me.COL_ENTITY.Name = "COL_ENTITY"
+        Me.COL_ENTITY.Visible = True
+        Me.COL_ENTITY.VisibleIndex = 1
+        '
+        'COL_ENITY_SCOPE
+        '
+        Me.COL_ENITY_SCOPE.Caption = "Scope"
+        Me.COL_ENITY_SCOPE.FieldName = "Scope"
+        Me.COL_ENITY_SCOPE.Name = "COL_ENITY_SCOPE"
+        Me.COL_ENITY_SCOPE.Visible = True
+        Me.COL_ENITY_SCOPE.VisibleIndex = 2
+        '
+        'COL_PARENT
+        '
+        Me.COL_PARENT.Caption = "ParentId"
+        Me.COL_PARENT.FieldName = "ParentId"
+        Me.COL_PARENT.Name = "COL_PARENT"
+        Me.COL_PARENT.Visible = True
+        Me.COL_PARENT.VisibleIndex = 3
+        '
+        'COL_GUID
+        '
+        Me.COL_GUID.Caption = "Guid"
+        Me.COL_GUID.FieldName = "Guid"
+        Me.COL_GUID.Name = "COL_GUID"
+        Me.COL_GUID.Visible = True
+        Me.COL_GUID.VisibleIndex = 4
+        '
+        'COL_NODE_TITLE
+        '
+        Me.COL_NODE_TITLE.Caption = "Titel"
+        Me.COL_NODE_TITLE.FieldName = "Title"
+        Me.COL_NODE_TITLE.Name = "COL_NODE_TITLE"
+        Me.COL_NODE_TITLE.Visible = True
+        Me.COL_NODE_TITLE.VisibleIndex = 0
+        '
+        'CWImages
+        '
+        Me.CWImages.Add("detailed", "image://svgimages/outlook inspired/detailed.svg")
+        Me.CWImages.Add("newtablestyle", "image://svgimages/actions/newtablestyle.svg")
+        Me.CWImages.Add("bo_appointment", "image://svgimages/business objects/bo_appointment.svg")
         '
         'XtraTabPage2
         '
@@ -855,9 +987,14 @@ Partial Class frmAdmin_Start
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
         Me.Text = "Administration"
+        CType(Me.ViewCWProcesses, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridCWProfiles, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.WinExplorerView1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ViewCWWindows, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ViewCWControls, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.DockPanel1.ResumeLayout(False)
         Me.DockPanel1_Container.ResumeLayout(False)
@@ -870,6 +1007,7 @@ Partial Class frmAdmin_Start
         Me.XtraTabPageIDB_Attributes_New.ResumeLayout(False)
         CType(Me.GridAttributes, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ViewAttributes, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabPageIDB_Attributes.ResumeLayout(False)
         Me.XtraTabPageIDB_Attributes.PerformLayout()
         CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -877,12 +1015,15 @@ Partial Class frmAdmin_Start
         Me.XtraTabPageIDB_SourceSQL.ResumeLayout(False)
         CType(Me.GridSourceSQL, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ViewSourceSQL, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPage_GlobalIndexer.ResumeLayout(False)
+        CType(Me.TreeList2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GLOBIXImages, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabPage_ClipboardWatcher.ResumeLayout(False)
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabControl1.ResumeLayout(False)
         Me.XtraTabPageCWProfiles.ResumeLayout(False)
-        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.CWImages, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabControl.ResumeLayout(False)
         Me.ResumeLayout(False)
@@ -898,7 +1039,7 @@ Partial Class frmAdmin_Start
     Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
     Friend WithEvents TreeListMenu As DevExpress.XtraTreeList.TreeList
     Friend WithEvents TreeListColumn1 As DevExpress.XtraTreeList.Columns.TreeListColumn
-    Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
+    Friend WithEvents MainTreeImages As DevExpress.Utils.SvgImageCollection
     Friend WithEvents RibbonGroup_ClipboardWatcher_DataSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents RibbonGroup_ClipboardWatcher_Process As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents RibbonGroup_ClipboardWatcher_Window As DevExpress.XtraBars.Ribbon.RibbonPageGroup
@@ -966,6 +1107,19 @@ Partial Class frmAdmin_Start
     Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
     Friend WithEvents XtraTabPageCWProfiles As DevExpress.XtraTab.XtraTabPage
     Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControl2 As GridControl
+    Friend WithEvents GridCWProfiles As GridControl
     Friend WithEvents GridView2 As GridView
+    Friend WithEvents ViewCWProcesses As GridView
+    Friend WithEvents ViewCWWindows As GridView
+    Friend WithEvents ViewCWControls As GridView
+    Friend WithEvents TreeList1 As DevExpress.XtraTreeList.TreeList
+    Friend WithEvents WinExplorerView1 As Views.WinExplorer.WinExplorerView
+    Friend WithEvents COL_ENTITY As DevExpress.XtraTreeList.Columns.TreeListColumn
+    Friend WithEvents COL_ENITY_SCOPE As DevExpress.XtraTreeList.Columns.TreeListColumn
+    Friend WithEvents COL_PARENT As DevExpress.XtraTreeList.Columns.TreeListColumn
+    Friend WithEvents COL_GUID As DevExpress.XtraTreeList.Columns.TreeListColumn
+    Friend WithEvents COL_NODE_TITLE As DevExpress.XtraTreeList.Columns.TreeListColumn
+    Friend WithEvents CWImages As DevExpress.Utils.SvgImageCollection
+    Friend WithEvents TreeList2 As DevExpress.XtraTreeList.TreeList
+    Friend WithEvents GLOBIXImages As DevExpress.Utils.SvgImageCollection
 End Class

GUIs.ZooFlow/Administration/frmAdmin_Start.resx

@@ -291,17 +291,23 @@
         bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
 </value>
   </data>
-  <metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="MainTreeImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>22, 21</value>
+    <value>122, 17</value>
   </metadata>
   <metadata name="DockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>188, 21</value>
+    <value>396, 17</value>
   </metadata>
   <metadata name="TBIDB_ATTRIBUTEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>483, 21</value>
+    <value>691, 17</value>
   </metadata>
   <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>323, 21</value>
+    <value>531, 17</value>
+  </metadata>
+  <metadata name="CWImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="GLOBIXImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>264, 17</value>
   </metadata>
   <data name="frmAdmin_Start.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -326,19 +332,16 @@
         LjEsMjguMSwyNy42LDI3LjZ6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
 </value>
   </data>
-  <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>323, 21</value>
-  </metadata>
   <metadata name="TBIDB_ATTRIBUTETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>711, 21</value>
+    <value>919, 17</value>
   </metadata>
   <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>933, 21</value>
+    <value>1141, 17</value>
   </metadata>
   <metadata name="TBIDB_ATTRIBUTE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1106, 21</value>
+    <value>17, 56</value>
   </metadata>
   <metadata name="TBIDB_ATTRIBUTE_TYPETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1366, 21</value>
+    <value>277, 56</value>
   </metadata>
 </root>

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -1,10 +1,11 @@
 Imports DevExpress.Utils
-Imports DevExpress.XtraBars.Docking2010.Views
 Imports DevExpress.XtraBars.Ribbon
 Imports DevExpress.XtraGrid
 Imports DevExpress.XtraGrid.Views.Grid
 Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
 Imports DevExpress.XtraTab
+Imports DevExpress.XtraTreeList
+Imports DevExpress.XtraTreeList.Nodes
 Imports DigitalData.Modules.Logging
 
 Public Class frmAdmin_Start
@@ -18,14 +19,17 @@ Public Class frmAdmin_Start
     Private Const CW_PROFILES = "CW_PROFILES"
 
     Private PrimaryKey As String = Nothing
-    Private SourceCommands As New Dictionary(Of String, SourceSql)
+    Private AdminItems As New List(Of AdminItem)
     Private CurrentPage As String
 
 
-    Private Class SourceSql
+    Private Class AdminItem
-        Public Title As String
+        Public Property Guid As Integer
-        Public SQL As String
+        Public Property ParentId As Integer
-        Public PrimaryKey As String
+        Public Property Title As String
+        Public Property Entity As String
+        Public Property Scope As String
+        Public Property Summary As String
     End Class
 
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -39,17 +43,20 @@ Public Class frmAdmin_Start
 
     Private Function Load_SQLData() As Boolean
         Try
-            Dim oTable As DataTable = My.Database.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL")
+            Dim oTable As DataTable = My.Database.GetDatatable("SELECT * FROM VWIDB_ADMINISTRATION_TREEVIEW")
-            SourceCommands.Clear()
+            AdminItems.Clear()
 
             For Each oRow As DataRow In oTable.Rows
-                Dim oSource As New SourceSql With {
+                Dim oItem As New AdminItem With {
-                    .PrimaryKey = oRow.Item("PK_COLUMN"),
+                    .Guid = oRow.Item("GUID"),
-                    .SQL = oRow.Item("SQL_COMMAND"),
+                    .ParentId = oRow.Item("PARENT"),
-                    .Title = oRow.Item("ENTITY_TITLE")
+                    .Entity = oRow.Item("ENTITY").ToString,
+                    .Scope = oRow.Item("ENTITY_SCOPE").ToString,
+                    .Title = oRow.Item("NODE_TITLE").ToString,
+                    .Summary = oRow.Item("SUMMARY").ToString
                 }
 
-                SourceCommands.Add(oRow.Item("ENTITY_TITLE"), oSource)
+                AdminItems.Add(oItem)
             Next
             Return True
         Catch ex As Exception
@@ -96,11 +103,6 @@ Public Class frmAdmin_Start
 
             CurrentPage = e.Node.Tag.ToString
 
-            Dim oSource As SourceSql
-            If SourceCommands.ContainsKey(CurrentPage) Then
-                oSource = SourceCommands.Item(CurrentPage)
-            End If
-
             Select Case e.Node.Tag.ToString
                 Case IDB_START
                     Display_Tab(XtraTabPage_IDB)
@@ -109,8 +111,8 @@ Public Class frmAdmin_Start
                     Display_Tab(XtraTabPage_IDB)
                     Display_Tab(XtraTabPageIDB_Attributes_New)
 
-                    Dim oTable As DataTable = My.Database.GetDatatable(oSource.SQL)
+                    'Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
-                    Load_Grid(oTable, oSource.PrimaryKey, GridAttributes)
+                    'Load_Grid(oTable, oSource, GridAttributes)
 
                 Case IDB_BUSINESS_ENTITY
                 'DisplayTab(XtraTabPage_Entities)
@@ -119,20 +121,27 @@ Public Class frmAdmin_Start
                     Display_Tab(XtraTabPage_GlobalIndexer)
                     Display_RibbonPage(RibbonPage_GlobalIndexer)
 
+                    Dim oCWItems As List(Of AdminItem) = (From Item As AdminItem In AdminItems
+                                                          Where Item.Entity = "GLOBIX"
+                                                          Select Item).ToList()
+                    Load_Tree(oCWItems, TreeList2)
+
                 Case CW_PROFILES
                     Display_Tab(XtraTabPage_ClipboardWatcher)
                     Display_Tab(XtraTabPageCWProfiles)
                     Display_RibbonPage(RibbonPage_ClipboardWatcher)
 
-                    Dim oTable As DataTable = My.Database.GetDatatable(oSource.SQL)
+                    Dim oCWItems As List(Of AdminItem) = (From Item As AdminItem In AdminItems
-                    Load_Grid(oTable, oSource.PrimaryKey, GridControl2)
+                                                          Where Item.Entity = "CW"
+                                                          Select Item).ToList()
+                    Load_Tree(oCWItems, TreeList1)
 
                 Case IDB_SOURCE_SQL
                     Display_Tab(XtraTabPage_IDB)
                     Display_Tab(XtraTabPageIDB_SourceSQL)
 
-                    Dim oTable As DataTable = My.Database.GetDatatable(oSource.SQL)
+                    'Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
-                    Load_Grid(oTable, oSource.PrimaryKey, GridSourceSQL)
+                    'Load_Grid(oTable, oSource, GridSourceSQL)
 
             End Select
         Catch ex As Exception
@@ -141,68 +150,106 @@ Public Class frmAdmin_Start
 
     End Sub
 
-    Private Sub Load_Grid(DataSource As DataTable, PrimaryKey As String, GridControl As GridControl)
+    'Private Sub Load_Children(Source As AdminItem, DataSet As DataSet, DataTable As DataTable)
-        Try
+    '    Dim oChildren = AdminItems.Where(Function(cmd) cmd.Value.ParentId = Source.Guid).ToList()
-            Me.PrimaryKey = PrimaryKey
 
-            GridControl.DataSource = DataSource
+    '    If oChildren.Count > 0 Then
-            GridControl.ForceInitialize()
+    '        For Each oChild In oChildren
+    '            Dim oChildSource As AdminItem = oChild.Value
+    '            Dim oChildTable As DataTable = My.Database.GetDatatable(oChildSource.Title)
+    '            oChildTable.TableName = oChildSource.Title
+    '            Dim oRelationName As String = $"{Source.Title}__{oChildSource.Title}"
 
-            Dim oGridView = DirectCast(GridControl.DefaultView, GridView)
+    '            DataSet.Tables.Add(oChildTable)
+    '            DataSet.Relations.Add(New DataRelation(oRelationName,
+    '                                    DataTable.Columns.Item(Source.Entity),
+    '                                    oChildTable.Columns.Item(oChildSource.Scope)))
 
-            With oGridView.Appearance.EvenRow
+    '            Load_Children(oChildSource, DataSet, oChildTable)
-                .BackColor = Color.Gainsboro
+    '        Next
-                .Options.UseBackColor = True
+    '    End If
-            End With
+    'End Sub
 
-            With oGridView.Appearance.FocusedCell
+    Private Sub Load_Tree(Source As List(Of AdminItem), TreeList As TreeList)
-                .BackColor = Color.Gold
+        TreeList.HierarchyFieldName = "Title"
-                .Options.UseBackColor = True
+        TreeList.KeyFieldName = "Guid"
-            End With
+        TreeList.ParentFieldName = "ParentId"
-
+        'TreeList.PreviewFieldName = "Summary"
-            With oGridView.Appearance.FocusedRow
+        'TreeList.PreviewLineCount = 3
-                .BackColor = Color.Gold
+        'TreeList.OptionsView.ShowPreview = True
-                .Options.UseBackColor = True
+        TreeList.DataSource = Source
-            End With
+        TreeList.ForceInitialize()
-
-            With oGridView.OptionsBehavior
-                .Editable = False
-                .ReadOnly = True
-            End With
-
-            With oGridView.OptionsClipboard
-                .CopyColumnHeaders = DefaultBoolean.False
-            End With
-
-            With oGridView.OptionsFind
-                .AlwaysVisible = True
-            End With
-
-            With oGridView.OptionsView
-                .ShowAutoFilterRow = True
-                .EnableAppearanceEvenRow = True
-                .ShowIndicator = False
-            End With
-
-            AddHandler oGridView.KeyDown, Sub(sender As Object, e As KeyEventArgs)
-                                              Dim oView As GridView = DirectCast(sender, GridView)
-                                              If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then
-                                                  Dim oCellValue = oView.GetRowCellValue(oView.FocusedRowHandle, oView.FocusedColumn)
-                                                  If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then
-                                                      Clipboard.SetText(oCellValue.ToString)
-                                                  End If
-                                                  e.Handled = True
-                                              End If
     End Sub
 
-            oGridView.BestFitColumns()
+    Private Sub Load_Grid(DataSource As DataTable, Source As AdminItem, GridControl As GridControl)
+        Try
+            PrimaryKey = Source.Entity
+
+            Dim oDataSet As New DataSet()
+            DataSource.TableName = Source.Title
+            oDataSet.Tables.Add(DataSource)
+
+            'Load_Children(Source, oDataSet, DataSource)
+
+            'GridControl.DataSource = oDataSet.Tables.Item(Source.Title)
+            'GridControl.ForceInitialize()
+
+            'Dim oGridView = DirectCast(GridControl.DefaultView, GridView)
+
+            'With oGridView.Appearance.EvenRow
+            '    .BackColor = Color.Gainsboro
+            '    .Options.UseBackColor = True
+            'End With
+
+            'With oGridView.Appearance.FocusedCell
+            '    .BackColor = Color.Gold
+            '    .Options.UseBackColor = True
+            'End With
+
+            'With oGridView.Appearance.FocusedRow
+            '    .BackColor = Color.Gold
+            '    .Options.UseBackColor = True
+            'End With
+
+            'With oGridView.OptionsBehavior
+            '    .Editable = False
+            '    .ReadOnly = True
+            'End With
+
+            'With oGridView.OptionsClipboard
+            '    .CopyColumnHeaders = DefaultBoolean.False
+            'End With
+
+            'With oGridView.OptionsFind
+            '    .AlwaysVisible = True
+            'End With
+
+            'With oGridView.OptionsView
+            '    .ShowAutoFilterRow = True
+            '    .EnableAppearanceEvenRow = True
+            '    .ShowIndicator = False
+            'End With
+
+            'AddHandler oGridView.KeyDown, Sub(sender As Object, e As KeyEventArgs)
+            '                                  Dim oView As GridView = DirectCast(sender, GridView)
+            '                                  If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then
+            '                                      Dim oCellValue = oView.GetRowCellValue(oView.FocusedRowHandle, oView.FocusedColumn)
+            '                                      If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then
+            '                                          Clipboard.SetText(oCellValue.ToString)
+            '                                      End If
+            '                                      e.Handled = True
+            '                                  End If
+            '                              End Sub
+
+            'oGridView.BestFitColumns()
 
         Catch ex As Exception
             ShowError(ex)
         End Try
     End Sub
 
-    Private Sub View_DoubleClick(sender As Object, e As EventArgs) Handles ViewAttributes.DoubleClick, ViewSourceSQL.DoubleClick
+    Private Sub View_DoubleClick(sender As Object, e As EventArgs) Handles _
+        ViewAttributes.DoubleClick, ViewSourceSQL.DoubleClick
         Dim oView As GridView = TryCast(sender, GridView)
         Dim hitInfo As GridHitInfo = oView.CalcHitInfo(TryCast(e, DXMouseEventArgs).Location)
         If hitInfo.InDataRow Then
@@ -213,11 +260,14 @@ Public Class frmAdmin_Start
 
                     Select Case oView.Name
                         Case ViewAttributes.Name
-                            Load_Attributes(oPrimaryKey)
+                            Load_Attribute(oPrimaryKey)
 
                         Case ViewSourceSQL.Name
                             Load_SourceSql(oPrimaryKey)
 
+                        Case WinExplorerView1.Name
+                            Load_CWProfile(oPrimaryKey)
+
                     End Select
 
                 End If
@@ -227,15 +277,15 @@ Public Class frmAdmin_Start
         End If
     End Sub
 
-    Private Sub Load_Attributes(PrimaryKey As Integer)
+    Private Sub Load_Attribute(PrimaryKey As Integer)
         Try
             Dim oForm As New frmAdmin_IDBAttribute(PrimaryKey)
             oForm.ShowDialog()
 
             If oForm.HasChanges Then
-                Dim oSource As SourceSql = SourceCommands.Item(CurrentPage)
+                Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
-                Dim oTable As DataTable = My.Database.GetDatatable(oSource.SQL)
+                Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
-                Load_Grid(oTable, oSource.PrimaryKey, GridAttributes)
+                Load_Grid(oTable, oSource, GridAttributes)
             End If
         Catch ex As Exception
             ShowError(ex)
@@ -248,9 +298,24 @@ Public Class frmAdmin_Start
             oForm.ShowDialog()
 
             If oForm.HasChanges Then
-                Dim oSource As SourceSql = SourceCommands.Item(CurrentPage)
+                Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
-                Dim oTable As DataTable = My.Database.GetDatatable(oSource.SQL)
+                Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
-                Load_Grid(oTable, oSource.PrimaryKey, GridSourceSQL)
+                Load_Grid(oTable, oSource, GridSourceSQL)
+            End If
+        Catch ex As Exception
+            ShowError(ex)
+        End Try
+    End Sub
+
+    Private Sub Load_CWProfile(PrimaryKey As Integer)
+        Try
+            Dim oForm As New frmAdmin_CWProfile(PrimaryKey)
+            oForm.ShowDialog()
+
+            If oForm.HasChanges Then
+                Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
+                Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
+                'Load_Tree(oTable, oSource, TreeList1)
             End If
         Catch ex As Exception
             ShowError(ex)
@@ -262,7 +327,7 @@ Public Class frmAdmin_Start
             Dim oRow As DataRow = ViewAttributes.GetFocusedDataRow
             If oRow IsNot Nothing Then
                 Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey)
-                Load_Attributes(oPrimaryKey)
+                Load_Attribute(oPrimaryKey)
             End If
         Catch ex As Exception
             ShowError(ex)
@@ -282,4 +347,42 @@ Public Class frmAdmin_Start
     Private Sub ResetStatus()
         labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
     End Sub
+
+    Private Sub TreeList1_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList1.GetStateImage
+        Dim oTreeList As TreeList = DirectCast(sender, TreeList)
+        Dim oItem As AdminItem = oTreeList.GetRow(e.Node.Id)
+
+        Select Case oItem.Scope
+            Case "PROFILE"
+                e.NodeImageIndex = 0
+
+            Case "PROCESS"
+                e.NodeImageIndex = 1
+
+            Case "WINDOW"
+                e.NodeImageIndex = 2
+
+            Case "CONTROL"
+                e.NodeImageIndex = 3
+        End Select
+
+    End Sub
+
+    Private Sub TreeList2_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList2.GetStateImage
+        Dim oTreeList As TreeList = DirectCast(sender, TreeList)
+        Dim oItem As AdminItem = oTreeList.GetRow(e.Node.Id)
+
+        Select Case oItem.Scope
+            Case "PROFILE"
+                e.NodeImageIndex = 0
+
+            Case "INDEX_MAN"
+                e.NodeImageIndex = 1
+
+            Case "INDEX_AUTO"
+                e.NodeImageIndex = 2
+
+        End Select
+
+    End Sub
 End Class

GUIs.ZooFlow/ClassConstants.vb

@@ -22,8 +22,8 @@
     Public Const VECTORSEPARATOR = "╚"
     Public Const SERVICE_ADDRESS_SEPARATOR = ":"
 
-    Public Const HOTKEY_TOGGLE_WATCHER = 354522017
+    Public Const HOTKEY_TOGGLE_WATCHER As Integer = 354522017
-    Public Const HOTKEY_TRIGGER_WATCHER = 354523017
+    Public Const HOTKEY_TRIGGER_WATCHER As Integer = 354523017
 
     Public Const NOTIFICATION_DELAY = 2500
 

GUIs.ZooFlow/ClassInit.vb

@@ -166,7 +166,7 @@ Public Class ClassInit
         Try
             MyApplication.Service.Address = My.SystemConfig.AppServerConfig
 
-            Dim oSplit() As String = MyApplication.Service.Address.Split(":")
+            Dim oSplit() As String = MyApplication.Service.Address.Split(":"c)
             Dim oAppServerAddress As String = oSplit(0)
             Dim oAppServerPort As Integer = 9000
             If oSplit.Length = 2 Then

GUIs.ZooFlow/My Project/Resources.Designer.vb

@@ -250,6 +250,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property actions_check2() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("actions_check2", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -290,6 +300,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property bo_appearance() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("bo_appearance", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -410,6 +430,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property managedatasource() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("managedatasource", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -440,6 +470,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property save2() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("save2", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

GUIs.ZooFlow/My Project/Resources.resx

@@ -151,6 +151,9 @@
   <data name="DD_Icons_ICO_PMANAGER_128px" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="actions_check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="4_GLOBIX_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -214,6 +217,9 @@
   <data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="bo_appearance" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\bo_appearance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="Flow" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -235,6 +241,12 @@
   <data name="actions_addcircled1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_addcircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="managedatasource" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\managedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="updatedataextract" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="actions_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_edit.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -247,7 +259,7 @@
   <data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="updatedataextract" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
 </root>

GUIs.ZooFlow/Resources/actions_check2.svg

@@ -0,0 +1,15 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Black{fill:#727272;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+</style>
+  <g id="Check">
+    <polygon points="27,5 11,21 5,15 2,18 11,27 30,8  " class="Green" />
+  </g>
+</svg>

GUIs.ZooFlow/Resources/bo_appearance.svg

@@ -0,0 +1,30 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{opacity:0.75;}
+	.st2{display:none;}
+	.st3{display:inline;fill:#FFB115;}
+	.st4{display:inline;}
+	.st5{display:inline;opacity:0.75;}
+	.st6{display:inline;opacity:0.5;}
+	.st7{display:inline;fill:#039C23;}
+	.st8{display:inline;fill:#D11C1C;}
+	.st9{display:inline;fill:#1177D7;}
+	.st10{display:inline;fill:#FFFFFF;}
+</style>
+  <g id="Appearance">
+    <rect x="12" y="4" width="8" height="6" rx="0" ry="0" class="Yellow" />
+    <rect x="2" y="12" width="8" height="6" rx="0" ry="0" class="Red" />
+    <rect x="22" y="20" width="8" height="6" rx="0" ry="0" class="Green" />
+    <g class="st0">
+      <path d="M12,12h8v6h-8V12z M10,10V4H2v6H10z M22,10h8V4h-8V10z M22,18h8v-6h-8V18z M12,20v6h8v-6H12z M10,26v-6H2v6    H10z" class="Black" />
+    </g>
+  </g>
+</svg>

GUIs.ZooFlow/Resources/managedatasource.svg

@@ -0,0 +1,9 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Manage_Data_Source" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+</style>
+  <path d="M2,10V6c0-2.2,4.5-4,10-4s10,1.8,10,4v4c0,2.2-4.5,4-10,4S2,12.2,2,10z M12,20v-0.7l2.5-0.4L13,16.8l1-0.9  C13.3,16,12.7,16,12,16c-5.5,0-10-1.8-10-4v4C2,18.2,6.5,20,12,20z M14.5,25.1L12,24.7V22c-5.5,0-10-1.8-10-4v4c0,2.2,4.5,4,10,4  c0.7,0,1.3,0,1.9-0.1L14.5,25.1z" class="Yellow" />
+  <path d="M30,23v-2l-2.2-0.4c-0.2-0.6-0.4-1.3-0.7-1.8l1.3-1.8l-1.4-1.4l-1.8,1.3c-0.5-0.3-1.2-0.6-1.8-0.7L23,14h-2  l-0.4,2.2c-0.6,0.2-1.3,0.4-1.8,0.7l-1.8-1.3l-1.4,1.4l1.3,1.8c-0.3,0.5-0.6,1.2-0.7,1.8L14,21v2l2.2,0.4c0.2,0.6,0.4,1.3,0.7,1.8  l-1.3,1.8l1.4,1.4l1.8-1.3c0.5,0.3,1.2,0.6,1.8,0.7L21,30h2l0.4-2.2c0.6-0.2,1.3-0.4,1.8-0.7l1.8,1.3l1.4-1.4l-1.3-1.8  c0.3-0.5,0.6-1.2,0.7-1.8L30,23z M22,24c-1.1,0-2-0.9-2-2s0.9-2,2-2s2,0.9,2,2S23.1,24,22,24z" class="Blue" />
+</svg>

GUIs.ZooFlow/Resources/save2.svg

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Save" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Black{fill:#727272;}
+</style>
+  <path d="M27,4h-3v10H8V4H5C4.4,4,4,4.4,4,5v22c0,0.6,0.4,1,1,1h22c0.6,0,1-0.4,1-1V5C28,4.4,27.6,4,27,4z M24,24H8v-6  h16V24z M10,4v8h10V4H10z M14,10h-2V6h2V10z" class="Black" />
+</svg>

GUIs.ZooFlow/ZooFlow.vbproj

@@ -56,15 +56,6 @@
     <Reference Include="DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
     <Reference Include="DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DigitalData.Controls.DocumentViewer">
-      <HintPath>..\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Controls.LookupGrid">
-      <HintPath>..\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.GUIs.Common">
-      <HintPath>..\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
-    </Reference>
     <Reference Include="Independentsoft.Msg">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\22_11_19\Independentsoft.Msg.dll</HintPath>
     </Reference>
@@ -396,10 +387,22 @@
     </None>
   </ItemGroup>
   <ItemGroup>
+    <ProjectReference Include="..\Controls.DocumentViewer\DocumentViewer.vbproj">
+      <Project>{0958cddf-4a16-41f6-8837-8335f71d599c}</Project>
+      <Name>DocumentViewer</Name>
+    </ProjectReference>
+    <ProjectReference Include="..\Controls.LookupGrid\LookupControl.vbproj">
+      <Project>{3dcd6d1a-c830-4241-b7e4-27430e7ea483}</Project>
+      <Name>LookupControl</Name>
+    </ProjectReference>
     <ProjectReference Include="..\GUIs.ClipboardWatcher\ClipboardWatcher.vbproj">
       <Project>{B7D465A2-AE31-4CDF-A8B2-34B42D3EA84E}</Project>
       <Name>ClipboardWatcher</Name>
     </ProjectReference>
+    <ProjectReference Include="..\GUIs.Common\Common.vbproj">
+      <Project>{d20a6bf2-c7c6-4a7a-b34d-fa27d775a049}</Project>
+      <Name>Common</Name>
+    </ProjectReference>
     <ProjectReference Include="..\Modules.Config\Config.vbproj">
       <Project>{44982F9B-6116-44E2-85D0-F39650B1EF99}</Project>
       <Name>Config</Name>
@@ -565,6 +568,18 @@
   <ItemGroup>
     <None Include="Resources\updatedataextract.svg" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\bo_appearance.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\managedatasource.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\actions_check2.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\save2.svg" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
        Other similar extension points exist, see Microsoft.Common.targets.

GUIs.ZooFlow/frmFlowForm.vb

@@ -34,6 +34,11 @@ Public Class frmFlowForm
     Private ClassWindow As Window
     Private ProfileFilter As ProfileFilter
     Private ProfileLoader As ClassProfileLoader
+    Private Animator As New Animator() With {
+        .PopupColor = Color.FromArgb(255, 214, 49),
+        .PopupOpacity = 0.8,
+        .PopupSize = New Size(100, 30)
+    }
 
     ' Runtime Flags
     Private ApplicationLoading As Boolean = True
@@ -229,13 +234,13 @@ Public Class frmFlowForm
 
                 Select Case oFunctionKey
                     Case "CTRL"
-                        HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER)
+                        HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_CONTROL, HOTKEY_TRIGGER_WATCHER)
                     Case "SHIFT"
-                        HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER)
+                        HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_SHIFT, HOTKEY_TRIGGER_WATCHER)
                     Case "ALT"
-                        HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_ALT, ClassConstants.HOTKEY_TRIGGER_WATCHER)
+                        HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_ALT, HOTKEY_TRIGGER_WATCHER)
                     Case "WIN"
-                        HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_WIN, ClassConstants.HOTKEY_TRIGGER_WATCHER)
+                        HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_WIN, HOTKEY_TRIGGER_WATCHER)
                 End Select
 
                 AddHandler HotkeyClass.HotKeyPressed, AddressOf HotkeyClass_HotKeyPressed
@@ -943,6 +948,8 @@ Public Class frmFlowForm
 
         Select Case HotKeyID
             Case HOTKEY_TRIGGER_WATCHER
+                Animator.Highlight(Cursor.Position)
+
                 If oState.CurrentClipboardContents = String.Empty Then
                     Logger.Info("Current Clipboard Contents is empty. Exiting.")
                     Exit Sub
@@ -995,8 +1002,6 @@ Public Class frmFlowForm
     End Sub
 
     Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestToolStripMenuItem.Click
-
-
     End Sub
 End Class
 

Windows/Animator.vb

@@ -0,0 +1,82 @@
+Imports System.Drawing
+Imports System.Windows.Forms
+Public Class Animator
+    Private Const DEFAULT_POPUP_OPACITY = 0.5
+    Private Const DEFAULT_POPUP_SIZE = 30
+    Private Const DEFAULT_POPUP_FADE_SPEED = 10
+    Private Const DEFAULT_POPUP_FADE_INTERVAL = 250
+
+    ''' <summary>
+    ''' Time the popup stays visible between the animations
+    ''' </summary>
+    Public Property AnimationInterval As Integer
+    ''' <summary>
+    ''' Basevalue for calculating the time the popup takes to animate
+    ''' </summary>
+    Public Property AnimationSpeed As Integer
+    ''' <summary>
+    ''' Opacity the popup animates to (From 0.0 to .., back to 0.0)
+    ''' </summary>
+    Public Property PopupOpacity As Double
+    ''' <summary>
+    ''' Color of the popup
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property PopupColor As Color
+    ''' <summary>
+    ''' Size of the popup in width and height
+    ''' </summary>
+    Public Property PopupSize As Size
+
+    Public Sub New()
+        _PopupSize = New Size(DEFAULT_POPUP_SIZE, DEFAULT_POPUP_SIZE)
+        _AnimationSpeed = DEFAULT_POPUP_FADE_SPEED
+        _AnimationInterval = DEFAULT_POPUP_FADE_INTERVAL
+        _PopupOpacity = DEFAULT_POPUP_OPACITY
+        _PopupColor = Color.FromArgb(255, 214, 49)
+    End Sub
+
+    Public Async Sub Highlight(Position As Point)
+        Dim oForm = GetPopup(Position, PopupSize)
+        oForm.Show()
+        FadeIn(oForm, _PopupOpacity, _AnimationSpeed / 2)
+        Await Task.Delay(_AnimationInterval)
+        FadeOut(oForm, _AnimationSpeed * 2)
+    End Sub
+
+    Private Function GetPopup(CursorPosition As Point, PopupSize As Size) As frmPopup
+        Dim oFormLocation = New Point(
+            CursorPosition.X - (PopupSize.Width / 2),
+            CursorPosition.Y - (PopupSize.Height / 2))
+
+        Return New frmPopup() With {
+            .Location = oFormLocation,
+            .StartPosition = FormStartPosition.Manual,
+            .Size = PopupSize,
+            .MaximumSize = PopupSize,
+            .MinimumSize = PopupSize,
+            .Opacity = 0,
+            .ShowInTaskbar = False,
+            .BackColor = _PopupColor,
+            .TopMost = True
+        }
+    End Function
+
+    Private Async Sub FadeIn(ByVal o As Form, finalOpacity As Double, ByVal Optional interval As Integer = 80)
+        While o.Opacity < finalOpacity
+            Await Task.Delay(interval)
+            o.Opacity += 0.05
+        End While
+
+        o.Opacity = finalOpacity
+    End Sub
+
+    Private Async Sub FadeOut(ByVal o As Form, ByVal Optional interval As Integer = 80)
+        While o.Opacity > 0.0
+            Await Task.Delay(interval)
+            o.Opacity -= 0.05
+        End While
+
+        o.Opacity = 0
+    End Sub
+End Class

Windows/Animator/frmPopup.Designer.vb

@@ -0,0 +1,43 @@
+Imports System.Windows.Forms
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmPopup
+    Inherits Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.SuspendLayout()
+        '
+        'frmPopup
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.Yellow
+        Me.ClientSize = New System.Drawing.Size(30, 30)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.MaximumSize = New System.Drawing.Size(30, 30)
+        Me.MinimumSize = New System.Drawing.Size(30, 30)
+        Me.Name = "frmPopup"
+        Me.Text = "frmPopup"
+        Me.ResumeLayout(False)
+
+    End Sub
+End Class

Windows/Animator/frmPopup.resx

@@ -0,0 +1,120 @@
+<?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.Runtime.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:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <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" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </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" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Windows/Animator/frmPopup.vb

@@ -0,0 +1,3 @@
+Public Class frmPopup
+
+End Class

Windows/Hotkey.vb

@@ -1,4 +1,6 @@
-Imports System.Windows.Forms
+Option Explicit On
+
+Imports System.Windows.Forms
 
 Public Class Hotkey
     Implements IMessageFilter
@@ -10,7 +12,7 @@ Public Class Hotkey
     ''' <summary>
     ''' Diesem Event wird immer die zugewiesene HotKeyID übergeben, wenn eine HotKey Kombination gedrückt wurde.
     ''' </summary>
-    Public Event HotKeyPressed(ByVal HotKeyID As String)
+    Public Event HotKeyPressed(HotKeyID As String)
 
     ''' <summary>
     ''' Definiert verfügbare Modfier Keys
@@ -22,7 +24,7 @@ Public Class Hotkey
         MOD_WIN = 8
     End Enum
 
-    Sub New(ByVal pOwnerForm As Form)
+    Sub New(pOwnerForm As Form)
         _OwnerForm = pOwnerForm
         Application.AddMessageFilter(Me)
     End Sub
@@ -33,13 +35,12 @@ Public Class Hotkey
     ''' <param name="pKeyCode">Den KeyCode für die Taste</param>
     ''' <param name="pModifiers">Die Zusatztasten wie z.B. Strg oder Alt, diese können auch mit OR kombiniert werden</param>
     ''' <param name="pHotKeyID">Die ID die der Hotkey bekommen soll um diesen zu identifizieren</param>
-    Public Sub AddHotKey(ByVal pKeyCode As Keys, ByVal pModifiers As ModfierKey, ByVal pHotKeyID As Integer)
+    Public Sub AddHotKey(pKeyCode As Keys, pModifiers As ModfierKey, pHotKeyID As Integer)
         If _HotkeyIDList.ContainsKey(pHotKeyID) = True Then
             Exit Sub
         End If
 
-        Dim oHotkeyId As Short = NativeMethods.GlobalAddAtom(pHotKeyID)
+        Dim oHotkeyId As Short = NativeMethods.GlobalAddAtom(pHotKeyID.ToString())
-        _HotkeyIDList.Add(pHotKeyID, oHotkeyId)
         _HotkeyList.Add(oHotkeyId, New HotKeyObject(pKeyCode, pModifiers, pHotKeyID))
 
         NativeMethods.RegisterHotKey(_OwnerForm.Handle, oHotkeyId, _HotkeyList(oHotkeyId).Modifier, _HotkeyList(oHotkeyId).HotKey)
@@ -67,15 +68,16 @@ Public Class Hotkey
                 RaiseEvent HotKeyPressed(_HotkeyList(CShort(m.WParam)).HotKeyID)
             End If
         End If
+        Return False
     End Function
 
     Public Class HotKeyObject
-        Public Property HotKey() As Keys
+        Public Property HotKey As Keys
-        Public Property Modifier() As ModfierKey
+        Public Property Modifier As ModfierKey
-        Public Property HotKeyID() As String
+        Public Property HotKeyID As Integer
-        Public Property AtomID() As Short
+        Public Property AtomID As Short
 
-        Sub New(ByVal NewHotKey As Keys, ByVal NewModifier As ModfierKey, ByVal NewHotKeyID As String)
+        Sub New(NewHotKey As Keys, NewModifier As ModfierKey, NewHotKeyID As Integer)
             HotKey = NewHotKey
             Modifier = NewModifier
             HotKeyID = NewHotKeyID

Windows/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("Windows")>
-<Assembly: AssemblyCopyright("Copyright ©  2019")>
+<Assembly: AssemblyCopyright("Copyright © 2021")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.1.0.0")>
+<Assembly: AssemblyVersion("1.2.2.0")>
-<Assembly: AssemblyFileVersion("1.1.0.0")>
+<Assembly: AssemblyFileVersion("1.2.2.0")>

Windows/My Project/Resources.Designer.vb

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<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.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _

Windows/My Project/Resources.resx

@@ -46,7 +46,7 @@
     
     mimetype: application/x-microsoft.net.object.binary.base64
     value   : The object must be serialized with 
-            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
             : and then encoded with base64 encoding.
     
     mimetype: application/x-microsoft.net.object.soap.base64
@@ -60,6 +60,7 @@
             : 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:import namespace="http://www.w3.org/XML/1998/namespace" />
     <xsd:element name="root" msdata:IsDataSet="true">
       <xsd:complexType>
         <xsd:choice maxOccurs="unbounded">
@@ -68,9 +69,10 @@
               <xsd:sequence>
                 <xsd:element name="value" type="xsd:string" minOccurs="0" />
               </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="name" use="required" type="xsd:string" />
               <xsd:attribute name="type" type="xsd:string" />
               <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
             </xsd:complexType>
           </xsd:element>
           <xsd:element name="assembly">
@@ -85,9 +87,10 @@
                 <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="name" type="xsd:string" use="required" msdata:Ordinal="1" />
               <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
               <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
             </xsd:complexType>
           </xsd:element>
           <xsd:element name="resheader">
@@ -109,9 +112,9 @@
     <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>
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.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>
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
 </root>

Windows/Windows.vbproj

@@ -74,6 +74,13 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="Animator.vb" />
+    <Compile Include="Animator\frmPopup.Designer.vb">
+      <DependentUpon>frmPopup.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Animator\frmPopup.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Drawing.vb" />
     <Compile Include="File.vb" />
     <Compile Include="Hotkey.vb" />
@@ -97,6 +104,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="Animator\frmPopup.resx">
+      <DependentUpon>frmPopup.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>