MS

2022-05-20 11:26:03 +02:00
parent 90e31c01b5
commit a0f99ba5a4
21 changed files with 432 additions and 228 deletions
--- a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
+++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
@@ -589,11 +589,11 @@ Public Class frmAdmin_Globix
    Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
        Try
            If Regex.IsMatch(REGEXTextBox.Text, txtDateinameTest.Text) Then
-                Dim oMsgBox As New Dialog1("The RegEx resulted in a proper match!", "", False)
+                Dim oMsgBox As New frmDialog("The RegEx resulted in a proper match!", "", False)
                oMsgBox.ShowDialog()

            Else
-                Dim oMsgBox As New Dialog1("No Match- There might be an error in the RegEx!", "", True)
+                Dim oMsgBox As New frmDialog("No Match- There might be an error in the RegEx!", "", True)
                oMsgBox.ShowDialog()

            End If
--- a/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.Designer.vb
+++ b/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.Designer.vb
@@ -54,9 +54,9 @@ Partial Class frmIDBCommonSQL
        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem()
        Me.TBIDB_COMMON_SQLTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_COMMON_SQLTableAdapter()
        Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager()
-        Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TBIDB_COMMON_SQLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -77,6 +77,7 @@ Partial Class frmIDBCommonSQL
        '
        'RibbonControl1
        '
+        Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem2, Me.BarButtonItem3, Me.bsiStatus})
        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
@@ -361,6 +362,14 @@ Partial Class frmIDBCommonSQL
        Me.LayoutControlItem9.Text = "Geändert wann:"
        Me.LayoutControlItem9.TextSize = New System.Drawing.Size(76, 13)
        '
+        'EmptySpaceItem2
+        '
+        Me.EmptySpaceItem2.AllowHotTrack = False
+        Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 21)
+        Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
+        Me.EmptySpaceItem2.Size = New System.Drawing.Size(792, 32)
+        Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0)
+        '
        'TBIDB_COMMON_SQLTableAdapter
        '
        Me.TBIDB_COMMON_SQLTableAdapter.ClearBeforeFill = True
@@ -382,14 +391,6 @@ Partial Class frmIDBCommonSQL
        Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
        Me.TableAdapterManager.VWIDB_BE_ATTRIBUTETableAdapter = Nothing
        '
-        'EmptySpaceItem2
-        '
-        Me.EmptySpaceItem2.AllowHotTrack = False
-        Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 21)
-        Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
-        Me.EmptySpaceItem2.Size = New System.Drawing.Size(792, 32)
-        Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0)
-        '
        'frmIDBCommonSQL
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.resx
+++ b/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.resx
@@ -122,26 +122,16 @@
    <value>
        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGkEAAAC77u/
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/
        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
-        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
-        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
-        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
-        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU2F2ZUFuZENsb3NlIj4NCiAgICA8
-        cGF0aCBkPSJNNiwxNlY2SDNDMi40LDYsMiw2LjQsMiw3djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYs
-        MCwxLTAuNCwxLTFWMTZINnogTTYsMjZ2LTZoMTZ2Nkg2eiBNMTYsNkg4djhoOFY2eiAgICBNMTIsMTJo
-        LTJWOGgyVjEyeiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwYXRoIGQ9Ik0yOSwySDE5Yy0wLjUsMC0x
-        LDAuNS0xLDF2MTBjMCwwLjUsMC41LDEsMSwxaDEwYzAuNSwwLDEtMC41LDEtMVYzQzMwLDIuNSwyOS41
-        LDIsMjksMnogTTI3LjcsMTAuNCAgIGMwLjQsMC40LDAuNCwxLDAsMS4zYy0wLjQsMC40LTEsMC40LTEu
-        MywwTDI0LDkuM2wtMi40LDIuNGMtMC40LDAuNC0xLDAuNC0xLjMsMGMtMC40LTAuNC0wLjQtMSwwLTEu
-        M0wyMi43LDhsLTIuNC0yLjQgICBjLTAuNC0wLjQtMC40LTEsMC0xLjNjMC40LTAuNCwxLTAuNCwxLjMs
-        MEwyNCw2LjdsMi40LTIuNGMwLjQtMC40LDEtMC40LDEuMywwYzAuNCwwLjQsMC40LDEsMCwxLjNMMjUu
-        Myw4TDI3LjcsMTAuNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+        Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy
+        b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj
+        RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww
+        LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw
+        bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi
+        IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L
 </value>
  </data>
  <data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
--- a/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.vb
+++ b/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.vb
--- a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb
@@ -10,6 +10,7 @@ Imports DevExpress.XtraGrid
 Imports DevExpress.XtraBars
 Imports DigitalData.Modules.Language
 Imports DigitalData.Controls.SQLConfig
+Imports DigitalData.GUIs.Common

 Public Class frmAdmin_Start
    Private CurrentModule As String
@@ -45,7 +46,7 @@ Public Class frmAdmin_Start

                Load_GridData(oDetailData)
            Else
-                Dim oMsgBox As New Dialog1($"Could not load data for Page [{oKey}] because it does not exist!", "Error", True)
+                Dim oMsgBox As New frmDialog($"Could not load data for Page [{oKey}] because it does not exist!", "Error", True)
                oMsgBox.ShowDialog()
            End If
        End If
--- a/GUIs.ZooFlow/ClassDragDrop.vb
+++ b/GUIs.ZooFlow/ClassDragDrop.vb
@@ -3,6 +3,7 @@ Imports DevExpress.XtraGrid.Views.Grid
 Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Base
+Imports DigitalData.GUIs.Common

 Public Class ClassDragDrop
    Inherits BaseClass
@@ -99,7 +100,7 @@ Public Class ClassDragDrop
        Catch ex As Exception
            Logger.Error(ex)

-            Dim oMsgBox As New Dialog1("Error in view_MouseMove: " & ex.Message, "", True)
+            Dim oMsgBox As New frmDialog("Error in view_MouseMove: " & ex.Message, "", True)
            oMsgBox.ShowDialog()
        End Try
    End Sub
--- a/GUIs.ZooFlow/ClassInit.vb
+++ b/GUIs.ZooFlow/ClassInit.vb
@@ -13,6 +13,7 @@ Imports System.Data.SqlClient
 Imports DigitalData.Modules
 Imports DevExpress.LookAndFeel
 Imports DigitalData.Modules.Language
+Imports DigitalData.GUIs.Common

 Public Class ClassInit
    Inherits Base.BaseClass
@@ -371,7 +372,7 @@ Public Class ClassInit

            Dim oMessage = $"{oMessageStart}{oMessage1}{oMessage2}{oMessageEnd}"

-            Dim oMsgBox As New Dialog1(oMessage, _MainForm.Text, True)
+            Dim oMsgBox As New frmDialog(oMessage, _MainForm.Text, True)
            oMsgBox.ShowDialog()
            Application.ExitThread()
        Else
--- a/GUIs.ZooFlow/Dialog1.Designer.vb
+++ b/GUIs.ZooFlow/Dialog1.Designer.vb
@@ -1,103 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class Dialog1
-    Inherits DevExpress.XtraEditors.XtraForm
-
-    '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.OK_Button = New System.Windows.Forms.Button()
-        Me.Cancel_Button = New System.Windows.Forms.Button()
-        Me.lblMeldung = New DevExpress.XtraEditors.LabelControl()
-        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.Panel1.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'OK_Button
-        '
-        Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.OK_Button.DialogResult = System.Windows.Forms.DialogResult.Yes
-        Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.OK_Button.Location = New System.Drawing.Point(12, 94)
-        Me.OK_Button.Name = "OK_Button"
-        Me.OK_Button.Size = New System.Drawing.Size(87, 32)
-        Me.OK_Button.TabIndex = 0
-        Me.OK_Button.Text = "OK"
-        '
-        'Cancel_Button
-        '
-        Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.No
-        Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Cancel_Button.Location = New System.Drawing.Point(328, 94)
-        Me.Cancel_Button.Name = "Cancel_Button"
-        Me.Cancel_Button.Size = New System.Drawing.Size(95, 32)
-        Me.Cancel_Button.TabIndex = 1
-        Me.Cancel_Button.Text = "Abbrechen"
-        '
-        'lblMeldung
-        '
-        Me.lblMeldung.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblMeldung.Appearance.ForeColor = System.Drawing.Color.Black
-        Me.lblMeldung.Appearance.Options.UseFont = True
-        Me.lblMeldung.Appearance.Options.UseForeColor = True
-        Me.lblMeldung.Location = New System.Drawing.Point(12, 12)
-        Me.lblMeldung.Name = "lblMeldung"
-        Me.lblMeldung.Size = New System.Drawing.Size(98, 21)
-        Me.lblMeldung.TabIndex = 1
-        Me.lblMeldung.Text = "LabelControl1"
-        '
-        'Panel1
-        '
-        Me.Panel1.BackColor = System.Drawing.Color.OrangeRed
-        Me.Panel1.Controls.Add(Me.lblMeldung)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel1.Location = New System.Drawing.Point(0, 0)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(435, 88)
-        Me.Panel1.TabIndex = 2
-        '
-        'Dialog1
-        '
-        Me.AcceptButton = Me.OK_Button
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.CancelButton = Me.Cancel_Button
-        Me.ClientSize = New System.Drawing.Size(435, 134)
-        Me.Controls.Add(Me.Cancel_Button)
-        Me.Controls.Add(Me.OK_Button)
-        Me.Controls.Add(Me.Panel1)
-        Me.FormBorderEffect = DevExpress.XtraEditors.FormBorderEffect.None
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
-        Me.MaximizeBox = False
-        Me.MinimizeBox = False
-        Me.Name = "Dialog1"
-        Me.ShowInTaskbar = False
-        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
-        Me.Text = "Dialog1"
-        Me.Panel1.ResumeLayout(False)
-        Me.Panel1.PerformLayout()
-        Me.ResumeLayout(False)
-
-    End Sub
-    Friend WithEvents OK_Button As System.Windows.Forms.Button
-    Friend WithEvents Cancel_Button As System.Windows.Forms.Button
-    Friend WithEvents lblMeldung As DevExpress.XtraEditors.LabelControl
-    Friend WithEvents Panel1 As Panel
-End Class
--- a/GUIs.ZooFlow/Dialog1.resx
+++ b/GUIs.ZooFlow/Dialog1.resx
@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.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>
--- a/GUIs.ZooFlow/Dialog1.vb
+++ b/GUIs.ZooFlow/Dialog1.vb
@@ -1,34 +0,0 @@
-Imports System.Windows.Forms
-
-Public Class Dialog1
-    Public Sub New(pMessageText As String, pTitle As String, IsError As Boolean)
-
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        Me.lblMeldung.Text = pMessageText
-        Me.Text = pTitle
-        If IsError Then
-            Panel1.BackColor = Color.Red
-            Cancel_Button.Visible = False
-        Else
-            Panel1.BackColor = Color.OrangeRed
-            Cancel_Button.Visible = True
-        End If
-    End Sub
-
-    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
-        Me.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.Close()
-    End Sub
-
-    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
-        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.Close()
-    End Sub
-
-    Private Sub Dialog1_Load(sender As Object, e As EventArgs) Handles Me.Load
-
-    End Sub
-End Class
--- a/GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb
+++ b/GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb
@@ -7,6 +7,7 @@ Imports DigitalData.Modules.Language
 Imports DigitalData.Modules.Filesystem
 Imports DigitalData.Modules.Messaging
 Imports Limilabs.Mail
+Imports DigitalData.GUIs.Common

 Public Class ClassFilehandle
    Inherits BaseClass
@@ -126,7 +127,7 @@ Public Class ClassFilehandle
                Else
                    oMSG = "Shortcuts cannot be droppped!"
                End If
-                Dim oMsgBox As New Dialog1(oMSG, "", True)
+                Dim oMsgBox As New frmDialog(oMSG, "", True)
                oMsgBox.ShowDialog()
                Return False
            End If
--- a/GUIs.ZooFlow/Modules/Globix/ClassFolderwatcher.vb
+++ b/GUIs.ZooFlow/Modules/Globix/ClassFolderwatcher.vb
@@ -1,4 +1,5 @@
 Imports System.IO
+Imports DigitalData.GUIs.Common
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Logging

@@ -81,7 +82,7 @@ Public Class ClassFolderwatcher
        Catch ex As Exception
            Logger.Error(ex.Message)

-            Dim oMsgBox As New Dialog1("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, "", True)
+            Dim oMsgBox As New frmDialog("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, "", True)
            oMsgBox.ShowDialog()
        End Try
    End Function
--- a/GUIs.ZooFlow/Modules/Globix/ClassValidator.vb
+++ b/GUIs.ZooFlow/Modules/Globix/ClassValidator.vb
@@ -6,6 +6,7 @@ Imports DigitalData.Modules.EDMI.API
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Base
+Imports DigitalData.GUIs.Common

 Public Class ClassValidator
    Inherits BaseClass
@@ -260,7 +261,7 @@ Public Class ClassValidator

    Private Sub ShowValidationMessage()
        'MsgBox(ClassConstants.TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, ClassConstants.TITLE_MISSING_INPUT)
-        Dim oMsgBox As New Dialog1(ClassConstants.TITLE_MISSING_INPUT & vbNewLine & ClassConstants.TEXT_MISSING_INPUT, "", True)
+        Dim oMsgBox As New frmDialog(ClassConstants.TITLE_MISSING_INPUT & vbNewLine & ClassConstants.TEXT_MISSING_INPUT, "", True)
        oMsgBox.ShowDialog()
    End Sub
 End Class
--- a/GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.vb
+++ b/GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.vb
@@ -1,4 +1,5 @@
 Imports DevExpress.XtraEditors
+Imports DigitalData.GUIs.Common
 Imports DigitalData.Modules.Logging

 Public Class frmGlobixBasicConfig
@@ -51,7 +52,7 @@ Public Class frmGlobixBasicConfig
                Else
                    otext = "Error in creating Hotfolder: " & pMypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message
                End If
-                Dim oMsgBox As New Dialog1("No Match- There might be an error in the RegEx!", "", True)
+                Dim oMsgBox As New frmDialog("No Match- There might be an error in the RegEx!", "", True)
                oMsgBox.ShowDialog()
                Exit Sub
            End Try
--- a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb
+++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb
@@ -16,6 +16,7 @@ Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Patterns
 Imports DevExpress.XtraEditors
 Imports DevExpress.XtraSplashScreen
+Imports DigitalData.GUIs.Common

 Public Class frmGlobix_Index
 #Region "+++++ Variablen ++++++"
@@ -469,7 +470,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
                        Else
                            omsg = "Please check Datatype of Indexvalue!"
                        End If
-                        Dim oMsgBox As New Dialog1(omsg, "", True)
+                        Dim oMsgBox As New frmDialog(omsg, "", True)
                        oMsgBox.ShowDialog()
                        Logger.Warn("DataType [{0}] not implemented!", oIndex.DataType)
                End Select
@@ -658,8 +659,8 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
                    Else
                        oMsg = "Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)"
                    End If
-                    Dim oMsgBox As New Dialog1(oMsg, "", False)
-                    oMsgBox.Cancel_Button.Visible = False
+                    Dim oMsgBox As New frmDialog(oMsg, "", False)
+                    oMsgBox.CancelButtonInvisible()
                    oMsgBox.ShowDialog()
                    CancelAttempts += 1
                    e.Cancel = True
@@ -670,8 +671,9 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
                    Else
                        oMsg = "You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?"
                    End If
-                    Dim oMsgBox As New Dialog1(oMsg, "", False)
-                    oMsgBox.Cancel_Button.Visible = True
+                    Dim oMsgBox As New frmDialog(oMsg, "", False)
+                    oMsgBox.CancelButtonVisible()
+
                    If oMsgBox.DialogResult = DialogResult.Yes Then
                        Dim containsfw_file As Boolean = False
                        Try
--- a/GUIs.ZooFlow/ZooFlow.vbproj
+++ b/GUIs.ZooFlow/ZooFlow.vbproj
@@ -246,16 +246,10 @@
    <Compile Include="Administration\Users\frmAdmin_UserGroupRelations.vb">
      <SubType>Form</SubType>
    </Compile>
-    <Compile Include="Dialog1.Designer.vb">
-      <DependentUpon>Dialog1.vb</DependentUpon>
-    </Compile>
-    <Compile Include="Dialog1.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmIDBCommonSQL.Designer.vb">
+    <Compile Include="Administration\IDB\frmIDBCommonSQL.Designer.vb">
      <DependentUpon>frmIDBCommonSQL.vb</DependentUpon>
    </Compile>
-    <Compile Include="frmIDBCommonSQL.vb">
+    <Compile Include="Administration\IDB\frmIDBCommonSQL.vb">
      <SubType>Form</SubType>
    </Compile>
    <Compile Include="frmWaitForm.Designer.vb">
@@ -511,10 +505,7 @@
    <EmbeddedResource Include="Administration\Users\frmAdmin_UserGroupRelations.resx">
      <DependentUpon>frmAdmin_UserGroupRelations.vb</DependentUpon>
    </EmbeddedResource>
-    <EmbeddedResource Include="Dialog1.resx">
-      <DependentUpon>Dialog1.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmIDBCommonSQL.resx">
+    <EmbeddedResource Include="Administration\IDB\frmIDBCommonSQL.resx">
      <DependentUpon>frmIDBCommonSQL.vb</DependentUpon>
    </EmbeddedResource>
    <EmbeddedResource Include="frmWaitForm.resx">
--- a/GUIs.ZooFlow/frmFlowForm.vb
+++ b/GUIs.ZooFlow/frmFlowForm.vb
@@ -315,7 +315,7 @@ Public Class frmFlowForm
                    Else
                        oMsg = "File-Exclusions in Folderwatch could not be created!"
                    End If
-                    Dim oMsgBox As New Dialog1(oMsg, "Error", True)
+                    Dim oMsgBox As New frmDialog(oMsg, "Error", True)
                    oMsgBox.ShowDialog()
                End If

@@ -508,7 +508,7 @@ Public Class frmFlowForm
        If My.Application.User.Language <> "de-DE" Then
            oTitle = "Exit Zooflow"
        End If
-        Dim oMsgBox As New Dialog1(omessage, oTitle, False)
+        Dim oMsgBox As New frmDialog(omessage, oTitle, False)
        oMsgBox.ShowDialog()

        If oMsgBox.DialogResult = DialogResult.OK Then
@@ -613,7 +613,7 @@ Public Class frmFlowForm
        End If
        If TheFormIsAlreadyLoaded("frmIndexFileList") Then
            Cursor = Cursors.Default
-            Dim oMsgBox As New Dialog1("Please index the active file first!", "Drag 'n Drop not allowed!", True)
+            Dim oMsgBox As New frmDialog("Please index the active file first!", "Drag 'n Drop not allowed!", True)
            oMsgBox.ShowDialog()
            Exit Function
        End If
@@ -917,7 +917,7 @@ Public Class frmFlowForm
            If ex.Message.Contains("Sammlung wurde geändert") Or ex.Message.Contains("Enumeration") Then

            Else
-                Dim oMsgBox As New Dialog1("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, "Drag 'n Drop not allowed!", True)
+                Dim oMsgBox As New frmDialog("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, "Drag 'n Drop not allowed!", True)
                oMsgBox.ShowDialog()
            End If