MS New RibbonForm StartupParams

app/DD_Clipboard_Searcher/App.config

@@ -14,10 +14,10 @@
     </DD_Clipboard_Watcher.My.MySettings>
     <DevExpress.LookAndFeel.Design.AppSettings>
       <setting name="DefaultAppSkin" serializeAs="String">
-        <value></value>
+        <value>Skin/Office 2019 Colorful</value>
       </setting>
       <setting name="DefaultPalette" serializeAs="String">
-        <value></value>
+        <value>Custom/Digital Data</value>
       </setting>
       <setting name="TouchUI" serializeAs="String">
         <value></value>
@@ -47,14 +47,41 @@
         <value></value>
       </setting>
       <setting name="CustomPaletteCollection" serializeAs="Xml">
-        <value />
+        <value>
+          <CustomPaletteCollection>
+            <Skin Name="Office 2019 Colorful">
+              <SvgPalette Name="Digital Data">
+                <SvgColor Name="Paint" Value="248,248,248" />
+                <SvgColor Name="Paint High" Value="255,255,255" />
+                <SvgColor Name="Paint Shadow" Value="240,240,240" />
+                <SvgColor Name="Paint Deep Shadow" Value="230,230,230" />
+                <SvgColor Name="Brush" Value="72,70,68" />
+                <SvgColor Name="Brush High" Value="72,70,68" />
+                <SvgColor Name="Brush Light" Value="119,119,119" />
+                <SvgColor Name="Brush Major" Value="171,171,171" />
+                <SvgColor Name="Brush Minor" Value="210,210,210" />
+                <SvgColor Name="Accent Paint" Value="165,36,49" />
+                <SvgColor Name="Accent Paint Dark" Value="165,36,49" />
+                <SvgColor Name="Accent Paint Light" Value="250,220,221" />
+                <SvgColor Name="Accent Paint Lighter" Value="251,233,234" />
+                <SvgColor Name="Accent Brush" Value="255,255,255" />
+                <SvgColor Name="Accent Brush Light" Value="218,175,176" />
+                <SvgColor Name="Red" Value="237,61,59" />
+                <SvgColor Name="Green" Value="48,144,72" />
+                <SvgColor Name="Blue" Value="30,139,205" />
+                <SvgColor Name="Yellow" Value="251,152,59" />
+                <SvgColor Name="Black" Value="87,87,85" />
+                <SvgColor Name="Gray" Value="169,168,168" />
+                <SvgColor Name="White" Value="248,248,248" />
+              </SvgPalette>
+            </Skin>
+          </CustomPaletteCollection>
+        </value>
       </setting>
     </DevExpress.LookAndFeel.Design.AppSettings>
   </applicationSettings>
   <connectionStrings>
-    <add name="DD_Clipboard_Watcher.My.MySettings.DD_ECMConnectionString"
+    <add name="DD_Clipboard_Watcher.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
-      connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
-      providerName="System.Data.SqlClient" />
   </connectionStrings>
   <startup>
     <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />

app/DD_Clipboard_Searcher/ClassInit.vb

@@ -169,6 +169,30 @@ Public Class ClassInit
                 End If
                 USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
                 USERCOUNT_LOGGED_IN += 1
+                Try
+                    WORKING_MODE = DT_CHECKUSER_MODULE.Rows(0).Item("WORKING_MODE")
+                Catch ex As Exception
+                    WORKING_MODE = ""
+                End Try
+                Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
+                Dim oMode As String
+                For Each oMode In oSplitWorkMode
+                    Logger.Debug($"oWorkingMode Parameter: {oMode}")
+                    If oMode = "NO_BASICCONF" Then
+                        BASIC_CONF_VISIBLE = False
+                    ElseIf oMode.StartsWith("NOMATCH_INFO") Then
+                        Try
+                            Dim oResult = oMode.Replace("NOMATCH_INFO=", "")
+                            NOMATCH_INFO = CBool(oResult)
+                        Catch ex As Exception
+                            NOMATCH_INFO = False
+                        End Try
+
+
+                    Else
+                        Logger.Info($"Wrong oMode: {oMode}")
+                    End If
+                Next
                 Return True
             Else
                 Logger.Info(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)

app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj

@@ -220,6 +220,12 @@
     <Compile Include="frmLicenseInfo.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmMain.Designer.vb">
+      <DependentUpon>frmMain.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmMain.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmPrint.designer.vb">
       <DependentUpon>frmPrint.vb</DependentUpon>
     </Compile>
@@ -310,6 +316,9 @@
     <EmbeddedResource Include="frmLicenseInfo.resx">
       <DependentUpon>frmLicenseInfo.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmMain.resx">
+      <DependentUpon>frmMain.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmPrint.resx">
       <DependentUpon>frmPrint.vb</DependentUpon>
     </EmbeddedResource>
@@ -321,6 +330,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmStart.resx">
       <DependentUpon>frmStart.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmConfig_Basic.resx">
       <DependentUpon>frmConfig_Basic.vb</DependentUpon>

app/DD_Clipboard_Searcher/My Project/Application.Designer.vb

@@ -32,7 +32,7 @@ Namespace My
         
         <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = Global.DD_Clipboard_Watcher.frmStart
+            Me.MainForm = Global.DD_Clipboard_Watcher.frmMain
         End Sub
     End Class
 End Namespace

app/DD_Clipboard_Searcher/My Project/Application.myapp

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
 <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
   <MySubMain>true</MySubMain>
-  <MainForm>frmStart</MainForm>
+  <MainForm>frmMain</MainForm>
   <SingleInstance>true</SingleInstance>
   <ShutdownMode>0</ShutdownMode>
   <EnableVisualStyles>true</EnableVisualStyles>

app/DD_Clipboard_Searcher/frmAdministration.Designer.vb

@@ -405,7 +405,7 @@ Partial Class frmAdministration
         Me.GridControlProfiles.Location = New System.Drawing.Point(0, 0)
         Me.GridControlProfiles.MainView = Me.GridViewProfiles
         Me.GridControlProfiles.Name = "GridControlProfiles"
-        Me.GridControlProfiles.Size = New System.Drawing.Size(237, 600)
+        Me.GridControlProfiles.Size = New System.Drawing.Size(237, 601)
         Me.GridControlProfiles.TabIndex = 18
         Me.GridControlProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProfiles})
         '
@@ -503,7 +503,7 @@ Partial Class frmAdministration
         Me.XtraTabControl3.Location = New System.Drawing.Point(0, 0)
         Me.XtraTabControl3.Name = "XtraTabControl3"
         Me.XtraTabControl3.SelectedTabPage = Me.TabPageProfileManagement
-        Me.XtraTabControl3.Size = New System.Drawing.Size(1118, 600)
+        Me.XtraTabControl3.Size = New System.Drawing.Size(1118, 601)
         Me.XtraTabControl3.TabIndex = 21
         Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageProfileManagement, Me.TabPageProfileAssignment})
         '
@@ -513,7 +513,7 @@ Partial Class frmAdministration
         Me.TabPageProfileManagement.ImageOptions.SvgImage = CType(resources.GetObject("TabPageProfileManagement.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.TabPageProfileManagement.ImageOptions.SvgImageSize = New System.Drawing.Size(20, 20)
         Me.TabPageProfileManagement.Name = "TabPageProfileManagement"
-        Me.TabPageProfileManagement.Size = New System.Drawing.Size(1116, 568)
+        Me.TabPageProfileManagement.Size = New System.Drawing.Size(1116, 571)
         Me.TabPageProfileManagement.Text = "Profil-Verwaltung"
         '
         'XtraTabControl1
@@ -522,7 +522,7 @@ Partial Class frmAdministration
         Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.TabPageGeneralSettings
-        Me.XtraTabControl1.Size = New System.Drawing.Size(1116, 568)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(1116, 571)
         Me.XtraTabControl1.TabIndex = 0
         Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageGeneralSettings, Me.TabPageDocuments, Me.TabPageData, Me.TabPageProcessAssignment})
         '
@@ -532,7 +532,7 @@ Partial Class frmAdministration
         Me.TabPageGeneralSettings.ImageOptions.SvgImage = CType(resources.GetObject("TabPageGeneralSettings.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.TabPageGeneralSettings.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
         Me.TabPageGeneralSettings.Name = "TabPageGeneralSettings"
-        Me.TabPageGeneralSettings.Size = New System.Drawing.Size(1114, 540)
+        Me.TabPageGeneralSettings.Size = New System.Drawing.Size(1114, 545)
         Me.TabPageGeneralSettings.Text = "Allgemein"
         '
         'LayoutControl1
@@ -560,7 +560,7 @@ Partial Class frmAdministration
         'txtProfileName
         '
         Me.txtProfileName.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "NAME", True))
-        Me.txtProfileName.Location = New System.Drawing.Point(131, 60)
+        Me.txtProfileName.Location = New System.Drawing.Point(131, 58)
         Me.txtProfileName.Name = "txtProfileName"
         Me.txtProfileName.Size = New System.Drawing.Size(245, 20)
         Me.txtProfileName.StyleController = Me.LayoutControl1
@@ -569,7 +569,7 @@ Partial Class frmAdministration
         'textEdit4
         '
         Me.textEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "COMMENT", True))
-        Me.textEdit4.Location = New System.Drawing.Point(131, 116)
+        Me.textEdit4.Location = New System.Drawing.Point(131, 114)
         Me.textEdit4.Name = "textEdit4"
         Me.textEdit4.Size = New System.Drawing.Size(245, 20)
         Me.textEdit4.StyleController = Me.LayoutControl1
@@ -582,7 +582,7 @@ Partial Class frmAdministration
         Me.CheckEdit1.MenuManager = Me.RibbonControl2
         Me.CheckEdit1.Name = "CheckEdit1"
         Me.CheckEdit1.Properties.Caption = "Profil Aktiv"
-        Me.CheckEdit1.Size = New System.Drawing.Size(364, 20)
+        Me.CheckEdit1.Size = New System.Drawing.Size(364, 18)
         Me.CheckEdit1.StyleController = Me.LayoutControl1
         Me.CheckEdit1.TabIndex = 10
         '
@@ -597,7 +597,7 @@ Partial Class frmAdministration
         Me.RibbonControl2.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
         Me.RibbonControl2.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[False]
         Me.RibbonControl2.ShowToolbarCustomizeItem = False
-        Me.RibbonControl2.Size = New System.Drawing.Size(1365, 158)
+        Me.RibbonControl2.Size = New System.Drawing.Size(1365, 157)
         Me.RibbonControl2.StatusBar = Me.RibbonStatusBar1
         Me.RibbonControl2.Toolbar.ShowCustomizeItem = False
         Me.RibbonControl2.ToolbarLocation = DevExpress.XtraBars.Ribbon.RibbonQuickAccessToolbarLocation.Hidden
@@ -903,7 +903,7 @@ Partial Class frmAdministration
         'textEdit2
         '
         Me.textEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "PROFILE_TYPE", True))
-        Me.textEdit2.Location = New System.Drawing.Point(131, 88)
+        Me.textEdit2.Location = New System.Drawing.Point(131, 86)
         Me.textEdit2.Name = "textEdit2"
         Me.textEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
         Me.textEdit2.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("TYPE_NAME", "Profil Typ", 68, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near, DevExpress.Data.ColumnSortOrder.None, DevExpress.Utils.DefaultBoolean.[Default])})
@@ -925,7 +925,7 @@ Partial Class frmAdministration
         'TextEdit8
         '
         Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True))
-        Me.TextEdit8.Location = New System.Drawing.Point(12, 263)
+        Me.TextEdit8.Location = New System.Drawing.Point(12, 262)
         Me.TextEdit8.Name = "TextEdit8"
         Me.TextEdit8.Properties.ReadOnly = True
         Me.TextEdit8.Size = New System.Drawing.Size(180, 20)
@@ -935,7 +935,7 @@ Partial Class frmAdministration
         'TextEdit7
         '
         Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True))
-        Me.TextEdit7.Location = New System.Drawing.Point(196, 263)
+        Me.TextEdit7.Location = New System.Drawing.Point(196, 262)
         Me.TextEdit7.Name = "TextEdit7"
         Me.TextEdit7.Properties.ReadOnly = True
         Me.TextEdit7.Size = New System.Drawing.Size(180, 20)
@@ -945,7 +945,7 @@ Partial Class frmAdministration
         'CHANGEDWHOTextBox
         '
         Me.CHANGEDWHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True))
-        Me.CHANGEDWHOTextBox.Location = New System.Drawing.Point(12, 303)
+        Me.CHANGEDWHOTextBox.Location = New System.Drawing.Point(12, 302)
         Me.CHANGEDWHOTextBox.Name = "CHANGEDWHOTextBox"
         Me.CHANGEDWHOTextBox.Properties.ReadOnly = True
         Me.CHANGEDWHOTextBox.Size = New System.Drawing.Size(180, 20)
@@ -955,7 +955,7 @@ Partial Class frmAdministration
         'TextEdit6
         '
         Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True))
-        Me.TextEdit6.Location = New System.Drawing.Point(196, 303)
+        Me.TextEdit6.Location = New System.Drawing.Point(196, 302)
         Me.TextEdit6.Name = "TextEdit6"
         Me.TextEdit6.Properties.ReadOnly = True
         Me.TextEdit6.Size = New System.Drawing.Size(180, 20)
@@ -965,7 +965,7 @@ Partial Class frmAdministration
         'PROFILE_IDTextBox
         '
         Me.PROFILE_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True))
-        Me.PROFILE_IDTextBox.Location = New System.Drawing.Point(131, 36)
+        Me.PROFILE_IDTextBox.Location = New System.Drawing.Point(131, 34)
         Me.PROFILE_IDTextBox.MenuManager = Me.RibbonControl2
         Me.PROFILE_IDTextBox.Name = "PROFILE_IDTextBox"
         Me.PROFILE_IDTextBox.Properties.ReadOnly = True
@@ -976,15 +976,15 @@ Partial Class frmAdministration
         'textEdit5
         '
         Me.textEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "REGEX_EXPRESSION", True))
-        Me.textEdit5.Location = New System.Drawing.Point(131, 144)
+        Me.textEdit5.Location = New System.Drawing.Point(131, 142)
         Me.textEdit5.Name = "textEdit5"
-        Me.textEdit5.Size = New System.Drawing.Size(245, 49)
+        Me.textEdit5.Size = New System.Drawing.Size(245, 50)
         Me.textEdit5.StyleController = Me.LayoutControl1
         Me.textEdit5.TabIndex = 8
         '
         'txtRegexTestString
         '
-        Me.txtRegexTestString.Location = New System.Drawing.Point(131, 197)
+        Me.txtRegexTestString.Location = New System.Drawing.Point(131, 196)
         Me.txtRegexTestString.MenuManager = Me.RibbonControl2
         Me.txtRegexTestString.Name = "txtRegexTestString"
         Me.txtRegexTestString.Size = New System.Drawing.Size(245, 20)
@@ -993,7 +993,7 @@ Partial Class frmAdministration
         '
         'SimpleButton1
         '
-        Me.SimpleButton1.Location = New System.Drawing.Point(12, 221)
+        Me.SimpleButton1.Location = New System.Drawing.Point(12, 220)
         Me.SimpleButton1.Name = "SimpleButton1"
         Me.SimpleButton1.Size = New System.Drawing.Size(364, 22)
         Me.SimpleButton1.StyleController = Me.LayoutControl1
@@ -1013,7 +1013,7 @@ Partial Class frmAdministration
         '
         Me.layoutControlItem2.Control = Me.textEdit2
         Me.layoutControlItem2.CustomizationFormText = "Profil Typ"
-        Me.layoutControlItem2.Location = New System.Drawing.Point(0, 76)
+        Me.layoutControlItem2.Location = New System.Drawing.Point(0, 74)
         Me.layoutControlItem2.MinSize = New System.Drawing.Size(149, 24)
         Me.layoutControlItem2.Name = "layoutControlItem2"
         Me.layoutControlItem2.Size = New System.Drawing.Size(368, 28)
@@ -1026,7 +1026,7 @@ Partial Class frmAdministration
         '
         Me.layoutControlItem4.Control = Me.textEdit4
         Me.layoutControlItem4.CustomizationFormText = "Kommentar"
-        Me.layoutControlItem4.Location = New System.Drawing.Point(0, 104)
+        Me.layoutControlItem4.Location = New System.Drawing.Point(0, 102)
         Me.layoutControlItem4.MaxSize = New System.Drawing.Size(404, 0)
         Me.layoutControlItem4.MinSize = New System.Drawing.Size(149, 24)
         Me.layoutControlItem4.Name = "layoutControlItem4"
@@ -1040,10 +1040,10 @@ Partial Class frmAdministration
         '
         Me.layoutControlItem5.Control = Me.textEdit5
         Me.layoutControlItem5.CustomizationFormText = "Regular Expression"
-        Me.layoutControlItem5.Location = New System.Drawing.Point(0, 132)
+        Me.layoutControlItem5.Location = New System.Drawing.Point(0, 130)
         Me.layoutControlItem5.MinSize = New System.Drawing.Size(50, 25)
         Me.layoutControlItem5.Name = "layoutControlItem5"
-        Me.layoutControlItem5.Size = New System.Drawing.Size(368, 53)
+        Me.layoutControlItem5.Size = New System.Drawing.Size(368, 54)
         Me.layoutControlItem5.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom
         Me.layoutControlItem5.Text = "Regular Expression"
         Me.layoutControlItem5.TextLocation = DevExpress.Utils.Locations.Left
@@ -1054,7 +1054,7 @@ Partial Class frmAdministration
         Me.LayoutControlItem7.Control = Me.CheckEdit1
         Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 0)
         Me.LayoutControlItem7.Name = "LayoutControlItem7"
-        Me.LayoutControlItem7.Size = New System.Drawing.Size(368, 24)
+        Me.LayoutControlItem7.Size = New System.Drawing.Size(368, 22)
         Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0)
         Me.LayoutControlItem7.TextVisible = False
         '
@@ -1062,7 +1062,7 @@ Partial Class frmAdministration
         '
         Me.layoutControlItem1.Control = Me.TextEdit8
         Me.layoutControlItem1.CustomizationFormText = "layoutControlItem1"
-        Me.layoutControlItem1.Location = New System.Drawing.Point(0, 235)
+        Me.layoutControlItem1.Location = New System.Drawing.Point(0, 234)
         Me.layoutControlItem1.Name = "layoutControlItem1"
         Me.layoutControlItem1.Size = New System.Drawing.Size(184, 40)
         Me.layoutControlItem1.Text = "Erstellt Wer"
@@ -1073,7 +1073,7 @@ Partial Class frmAdministration
         '
         Me.layoutControlItem6.Control = Me.TextEdit7
         Me.layoutControlItem6.CustomizationFormText = "layoutControlItem2"
-        Me.layoutControlItem6.Location = New System.Drawing.Point(184, 235)
+        Me.layoutControlItem6.Location = New System.Drawing.Point(184, 234)
         Me.layoutControlItem6.Name = "layoutControlItem6"
         Me.layoutControlItem6.Size = New System.Drawing.Size(184, 40)
         Me.layoutControlItem6.Text = "Erstellt wann"
@@ -1084,7 +1084,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem8.Control = Me.CHANGEDWHOTextBox
         Me.LayoutControlItem8.CustomizationFormText = "layoutControlItem3"
-        Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 275)
+        Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 274)
         Me.LayoutControlItem8.Name = "LayoutControlItem8"
         Me.LayoutControlItem8.Size = New System.Drawing.Size(184, 40)
         Me.LayoutControlItem8.Text = "Geändert wer"
@@ -1095,7 +1095,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem9.Control = Me.TextEdit6
         Me.LayoutControlItem9.CustomizationFormText = "layoutControlItem4"
-        Me.LayoutControlItem9.Location = New System.Drawing.Point(184, 275)
+        Me.LayoutControlItem9.Location = New System.Drawing.Point(184, 274)
         Me.LayoutControlItem9.Name = "LayoutControlItem9"
         Me.LayoutControlItem9.Size = New System.Drawing.Size(184, 40)
         Me.LayoutControlItem9.Text = "Geändert wann"
@@ -1105,7 +1105,7 @@ Partial Class frmAdministration
         'LayoutControlItem20
         '
         Me.LayoutControlItem20.Control = Me.PROFILE_IDTextBox
-        Me.LayoutControlItem20.Location = New System.Drawing.Point(0, 24)
+        Me.LayoutControlItem20.Location = New System.Drawing.Point(0, 22)
         Me.LayoutControlItem20.Name = "LayoutControlItem20"
         Me.LayoutControlItem20.Size = New System.Drawing.Size(368, 24)
         Me.LayoutControlItem20.Text = "ID"
@@ -1114,16 +1114,16 @@ Partial Class frmAdministration
         'EmptySpaceItem3
         '
         Me.EmptySpaceItem3.AllowHotTrack = False
-        Me.EmptySpaceItem3.Location = New System.Drawing.Point(0, 315)
+        Me.EmptySpaceItem3.Location = New System.Drawing.Point(0, 314)
         Me.EmptySpaceItem3.Name = "EmptySpaceItem3"
-        Me.EmptySpaceItem3.Size = New System.Drawing.Size(368, 23)
+        Me.EmptySpaceItem3.Size = New System.Drawing.Size(368, 24)
         Me.EmptySpaceItem3.TextSize = New System.Drawing.Size(0, 0)
         '
         'layoutControlItem3
         '
         Me.layoutControlItem3.Control = Me.txtProfileName
         Me.layoutControlItem3.CustomizationFormText = "Name"
-        Me.layoutControlItem3.Location = New System.Drawing.Point(0, 48)
+        Me.layoutControlItem3.Location = New System.Drawing.Point(0, 46)
         Me.layoutControlItem3.MinSize = New System.Drawing.Size(149, 24)
         Me.layoutControlItem3.Name = "layoutControlItem3"
         Me.layoutControlItem3.Size = New System.Drawing.Size(368, 28)
@@ -1135,7 +1135,7 @@ Partial Class frmAdministration
         'LayoutControlItem35
         '
         Me.LayoutControlItem35.Control = Me.txtRegexTestString
-        Me.LayoutControlItem35.Location = New System.Drawing.Point(0, 185)
+        Me.LayoutControlItem35.Location = New System.Drawing.Point(0, 184)
         Me.LayoutControlItem35.Name = "LayoutControlItem35"
         Me.LayoutControlItem35.Size = New System.Drawing.Size(368, 24)
         Me.LayoutControlItem35.Text = "Regular Expression Test"
@@ -1144,7 +1144,7 @@ Partial Class frmAdministration
         'LayoutControlItem36
         '
         Me.LayoutControlItem36.Control = Me.SimpleButton1
-        Me.LayoutControlItem36.Location = New System.Drawing.Point(0, 209)
+        Me.LayoutControlItem36.Location = New System.Drawing.Point(0, 208)
         Me.LayoutControlItem36.Name = "LayoutControlItem36"
         Me.LayoutControlItem36.Size = New System.Drawing.Size(368, 26)
         Me.LayoutControlItem36.TextSize = New System.Drawing.Size(0, 0)
@@ -1192,14 +1192,14 @@ Partial Class frmAdministration
         Me.CheckEdit3.Location = New System.Drawing.Point(12, 12)
         Me.CheckEdit3.Name = "CheckEdit3"
         Me.CheckEdit3.Properties.Caption = "Suche Aktiv"
-        Me.CheckEdit3.Size = New System.Drawing.Size(299, 20)
+        Me.CheckEdit3.Size = New System.Drawing.Size(299, 18)
         Me.CheckEdit3.StyleController = Me.LayoutControlDocs
         Me.CheckEdit3.TabIndex = 8
         '
         'TextEdit17
         '
         Me.TextEdit17.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHO", True))
-        Me.TextEdit17.Location = New System.Drawing.Point(12, 148)
+        Me.TextEdit17.Location = New System.Drawing.Point(12, 146)
         Me.TextEdit17.Name = "TextEdit17"
         Me.TextEdit17.Properties.ReadOnly = True
         Me.TextEdit17.Size = New System.Drawing.Size(125, 20)
@@ -1209,7 +1209,7 @@ Partial Class frmAdministration
         'TextEdit15
         '
         Me.TextEdit15.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHEN", True))
-        Me.TextEdit15.Location = New System.Drawing.Point(141, 148)
+        Me.TextEdit15.Location = New System.Drawing.Point(141, 146)
         Me.TextEdit15.Name = "TextEdit15"
         Me.TextEdit15.Properties.ReadOnly = True
         Me.TextEdit15.Size = New System.Drawing.Size(170, 20)
@@ -1219,7 +1219,7 @@ Partial Class frmAdministration
         'TextEdit18
         '
         Me.TextEdit18.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHEN", True))
-        Me.TextEdit18.Location = New System.Drawing.Point(141, 188)
+        Me.TextEdit18.Location = New System.Drawing.Point(141, 186)
         Me.TextEdit18.Name = "TextEdit18"
         Me.TextEdit18.Properties.ReadOnly = True
         Me.TextEdit18.Size = New System.Drawing.Size(170, 20)
@@ -1229,7 +1229,7 @@ Partial Class frmAdministration
         'CHANGED_WHOTextBox2
         '
         Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHO", True))
-        Me.CHANGED_WHOTextBox2.Location = New System.Drawing.Point(12, 188)
+        Me.CHANGED_WHOTextBox2.Location = New System.Drawing.Point(12, 186)
         Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2"
         Me.CHANGED_WHOTextBox2.Properties.ReadOnly = True
         Me.CHANGED_WHOTextBox2.Size = New System.Drawing.Size(125, 20)
@@ -1240,7 +1240,7 @@ Partial Class frmAdministration
         '
         Me.txtDocSearchName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_TITLE", True))
         Me.txtDocSearchName.EditValue = ""
-        Me.txtDocSearchName.Location = New System.Drawing.Point(140, 60)
+        Me.txtDocSearchName.Location = New System.Drawing.Point(140, 58)
         Me.txtDocSearchName.Name = "txtDocSearchName"
         Me.txtDocSearchName.Size = New System.Drawing.Size(171, 20)
         Me.txtDocSearchName.StyleController = Me.LayoutControlDocs
@@ -1249,7 +1249,7 @@ Partial Class frmAdministration
         'LookUpEdit1
         '
         Me.LookUpEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CONN_ID", True))
-        Me.LookUpEdit1.Location = New System.Drawing.Point(140, 108)
+        Me.LookUpEdit1.Location = New System.Drawing.Point(140, 106)
         Me.LookUpEdit1.Name = "LookUpEdit1"
         Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
         Me.LookUpEdit1.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("BEZEICHNUNG", "Verbindung", 80, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near, DevExpress.Data.ColumnSortOrder.None, DevExpress.Utils.DefaultBoolean.[Default])})
@@ -1293,7 +1293,7 @@ Partial Class frmAdministration
         'txtDOC_GUID
         '
         Me.txtDOC_GUID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "GUID", True))
-        Me.txtDOC_GUID.Location = New System.Drawing.Point(140, 36)
+        Me.txtDOC_GUID.Location = New System.Drawing.Point(140, 34)
         Me.txtDOC_GUID.Name = "txtDOC_GUID"
         Me.txtDOC_GUID.Properties.ReadOnly = True
         Me.txtDOC_GUID.Size = New System.Drawing.Size(171, 20)
@@ -1303,7 +1303,7 @@ Partial Class frmAdministration
         'TextEdit19
         '
         Me.TextEdit19.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_INDEX", True))
-        Me.TextEdit19.Location = New System.Drawing.Point(140, 84)
+        Me.TextEdit19.Location = New System.Drawing.Point(140, 82)
         Me.TextEdit19.Name = "TextEdit19"
         Me.TextEdit19.Properties.AutoHeight = False
         Me.TextEdit19.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
@@ -1374,7 +1374,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem29.Control = Me.txtDocSearchName
         Me.LayoutControlItem29.CustomizationFormText = "Titel:"
-        Me.LayoutControlItem29.Location = New System.Drawing.Point(0, 48)
+        Me.LayoutControlItem29.Location = New System.Drawing.Point(0, 46)
         Me.LayoutControlItem29.Name = "LayoutControlItem29"
         Me.LayoutControlItem29.Size = New System.Drawing.Size(303, 24)
         Me.LayoutControlItem29.Text = "Titel:"
@@ -1384,7 +1384,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem30.Control = Me.TextEdit19
         Me.LayoutControlItem30.CustomizationFormText = "Position:"
-        Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 72)
+        Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 70)
         Me.LayoutControlItem30.Name = "LayoutControlItem30"
         Me.LayoutControlItem30.Size = New System.Drawing.Size(303, 24)
         Me.LayoutControlItem30.Text = "Position/Reihenfolge:"
@@ -1394,7 +1394,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem31.Control = Me.LookUpEdit1
         Me.LayoutControlItem31.CustomizationFormText = "Verbindung:"
-        Me.LayoutControlItem31.Location = New System.Drawing.Point(0, 96)
+        Me.LayoutControlItem31.Location = New System.Drawing.Point(0, 94)
         Me.LayoutControlItem31.Name = "LayoutControlItem31"
         Me.LayoutControlItem31.Size = New System.Drawing.Size(303, 24)
         Me.LayoutControlItem31.Text = "Datenbank-Verbindung:"
@@ -1404,7 +1404,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem25.Control = Me.TextEdit17
         Me.LayoutControlItem25.CustomizationFormText = "layoutControlItem1"
-        Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 120)
+        Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 118)
         Me.LayoutControlItem25.Name = "LayoutControlItem25"
         Me.LayoutControlItem25.Size = New System.Drawing.Size(129, 40)
         Me.LayoutControlItem25.Text = "Erstellt wer:"
@@ -1415,7 +1415,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem27.Control = Me.TextEdit18
         Me.LayoutControlItem27.CustomizationFormText = "layoutControlItem4"
-        Me.LayoutControlItem27.Location = New System.Drawing.Point(129, 160)
+        Me.LayoutControlItem27.Location = New System.Drawing.Point(129, 158)
         Me.LayoutControlItem27.Name = "LayoutControlItem27"
         Me.LayoutControlItem27.Size = New System.Drawing.Size(174, 40)
         Me.LayoutControlItem27.Text = "Geändert wann:"
@@ -1426,7 +1426,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem26.Control = Me.TextEdit15
         Me.LayoutControlItem26.CustomizationFormText = "layoutControlItem2"
-        Me.LayoutControlItem26.Location = New System.Drawing.Point(129, 120)
+        Me.LayoutControlItem26.Location = New System.Drawing.Point(129, 118)
         Me.LayoutControlItem26.Name = "LayoutControlItem26"
         Me.LayoutControlItem26.Size = New System.Drawing.Size(174, 40)
         Me.LayoutControlItem26.Text = "Erstellt wann:"
@@ -1436,9 +1436,9 @@ Partial Class frmAdministration
         'EmptySpaceItem2
         '
         Me.EmptySpaceItem2.AllowHotTrack = False
-        Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 200)
+        Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 198)
         Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
-        Me.EmptySpaceItem2.Size = New System.Drawing.Size(303, 320)
+        Me.EmptySpaceItem2.Size = New System.Drawing.Size(303, 322)
         Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0)
         '
         'LayoutControlItem33
@@ -1467,7 +1467,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem34.Control = Me.txtDOC_GUID
         Me.LayoutControlItem34.CustomizationFormText = "ID:"
-        Me.LayoutControlItem34.Location = New System.Drawing.Point(0, 24)
+        Me.LayoutControlItem34.Location = New System.Drawing.Point(0, 22)
         Me.LayoutControlItem34.Name = "LayoutControlItem34"
         Me.LayoutControlItem34.Size = New System.Drawing.Size(303, 24)
         Me.LayoutControlItem34.Text = "ID:"
@@ -1479,7 +1479,7 @@ Partial Class frmAdministration
         Me.LayoutControlItem24.CustomizationFormText = "LayoutControlItem10"
         Me.LayoutControlItem24.Location = New System.Drawing.Point(0, 0)
         Me.LayoutControlItem24.Name = "LayoutControlItem24"
-        Me.LayoutControlItem24.Size = New System.Drawing.Size(303, 24)
+        Me.LayoutControlItem24.Size = New System.Drawing.Size(303, 22)
         Me.LayoutControlItem24.Text = "LayoutControlItem10"
         Me.LayoutControlItem24.TextSize = New System.Drawing.Size(0, 0)
         Me.LayoutControlItem24.TextVisible = False
@@ -1488,7 +1488,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem28.Control = Me.CHANGED_WHOTextBox2
         Me.LayoutControlItem28.CustomizationFormText = "layoutControlItem3"
-        Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 160)
+        Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 158)
         Me.LayoutControlItem28.Name = "LayoutControlItem28"
         Me.LayoutControlItem28.Size = New System.Drawing.Size(129, 40)
         Me.LayoutControlItem28.Text = "Geändert wer:"
@@ -1603,7 +1603,7 @@ Partial Class frmAdministration
         'TextEdit12
         '
         Me.TextEdit12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHO", True))
-        Me.TextEdit12.Location = New System.Drawing.Point(12, 148)
+        Me.TextEdit12.Location = New System.Drawing.Point(12, 146)
         Me.TextEdit12.Name = "TextEdit12"
         Me.TextEdit12.Properties.ReadOnly = True
         Me.TextEdit12.Size = New System.Drawing.Size(125, 20)
@@ -1613,7 +1613,7 @@ Partial Class frmAdministration
         'TextEdit13
         '
         Me.TextEdit13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHEN", True))
-        Me.TextEdit13.Location = New System.Drawing.Point(141, 148)
+        Me.TextEdit13.Location = New System.Drawing.Point(141, 146)
         Me.TextEdit13.Name = "TextEdit13"
         Me.TextEdit13.Properties.ReadOnly = True
         Me.TextEdit13.Size = New System.Drawing.Size(172, 20)
@@ -1623,7 +1623,7 @@ Partial Class frmAdministration
         'CHANGED_WHOTextBox1
         '
         Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHO", True))
-        Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(12, 188)
+        Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(12, 186)
         Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1"
         Me.CHANGED_WHOTextBox1.Properties.ReadOnly = True
         Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(125, 20)
@@ -1633,7 +1633,7 @@ Partial Class frmAdministration
         'TextEdit11
         '
         Me.TextEdit11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHEN", True))
-        Me.TextEdit11.Location = New System.Drawing.Point(141, 188)
+        Me.TextEdit11.Location = New System.Drawing.Point(141, 186)
         Me.TextEdit11.Name = "TextEdit11"
         Me.TextEdit11.Properties.ReadOnly = True
         Me.TextEdit11.Size = New System.Drawing.Size(172, 20)
@@ -1647,7 +1647,7 @@ Partial Class frmAdministration
         Me.CheckEdit2.MenuManager = Me.RibbonControl2
         Me.CheckEdit2.Name = "CheckEdit2"
         Me.CheckEdit2.Properties.Caption = "Suche Aktiv"
-        Me.CheckEdit2.Size = New System.Drawing.Size(301, 20)
+        Me.CheckEdit2.Size = New System.Drawing.Size(301, 18)
         Me.CheckEdit2.StyleController = Me.LayoutControlData
         Me.CheckEdit2.TabIndex = 8
         '
@@ -1655,7 +1655,7 @@ Partial Class frmAdministration
         '
         Me.txtDataSearchName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_TITLE", True))
         Me.txtDataSearchName.EditValue = ""
-        Me.txtDataSearchName.Location = New System.Drawing.Point(140, 60)
+        Me.txtDataSearchName.Location = New System.Drawing.Point(140, 58)
         Me.txtDataSearchName.MenuManager = Me.RibbonControl2
         Me.txtDataSearchName.Name = "txtDataSearchName"
         Me.txtDataSearchName.Size = New System.Drawing.Size(173, 20)
@@ -1665,7 +1665,7 @@ Partial Class frmAdministration
         'ComboBoxEdit2
         '
         Me.ComboBoxEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CONN_ID", True))
-        Me.ComboBoxEdit2.Location = New System.Drawing.Point(140, 108)
+        Me.ComboBoxEdit2.Location = New System.Drawing.Point(140, 106)
         Me.ComboBoxEdit2.MenuManager = Me.RibbonControl2
         Me.ComboBoxEdit2.Name = "ComboBoxEdit2"
         Me.ComboBoxEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
@@ -1707,7 +1707,7 @@ Partial Class frmAdministration
         'txtDATAGUID
         '
         Me.txtDATAGUID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "GUID", True))
-        Me.txtDATAGUID.Location = New System.Drawing.Point(140, 36)
+        Me.txtDATAGUID.Location = New System.Drawing.Point(140, 34)
         Me.txtDATAGUID.MenuManager = Me.RibbonControl2
         Me.txtDATAGUID.Name = "txtDATAGUID"
         Me.txtDATAGUID.Properties.ReadOnly = True
@@ -1718,7 +1718,7 @@ Partial Class frmAdministration
         'TextEdit10
         '
         Me.TextEdit10.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_INDEX", True))
-        Me.TextEdit10.Location = New System.Drawing.Point(140, 84)
+        Me.TextEdit10.Location = New System.Drawing.Point(140, 82)
         Me.TextEdit10.MenuManager = Me.RibbonControl2
         Me.TextEdit10.Name = "TextEdit10"
         Me.TextEdit10.Properties.AutoHeight = False
@@ -1786,7 +1786,7 @@ Partial Class frmAdministration
         Me.LayoutControlItem10.Control = Me.CheckEdit2
         Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 0)
         Me.LayoutControlItem10.Name = "LayoutControlItem10"
-        Me.LayoutControlItem10.Size = New System.Drawing.Size(305, 24)
+        Me.LayoutControlItem10.Size = New System.Drawing.Size(305, 22)
         Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0)
         Me.LayoutControlItem10.TextVisible = False
         '
@@ -1794,7 +1794,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem14.Control = Me.TextEdit12
         Me.LayoutControlItem14.CustomizationFormText = "layoutControlItem1"
-        Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 120)
+        Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 118)
         Me.LayoutControlItem14.Name = "LayoutControlItem14"
         Me.LayoutControlItem14.Size = New System.Drawing.Size(129, 40)
         Me.LayoutControlItem14.Text = "Erstellt wer:"
@@ -1805,7 +1805,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem15.Control = Me.TextEdit13
         Me.LayoutControlItem15.CustomizationFormText = "layoutControlItem2"
-        Me.LayoutControlItem15.Location = New System.Drawing.Point(129, 120)
+        Me.LayoutControlItem15.Location = New System.Drawing.Point(129, 118)
         Me.LayoutControlItem15.Name = "LayoutControlItem15"
         Me.LayoutControlItem15.Size = New System.Drawing.Size(176, 40)
         Me.LayoutControlItem15.Text = "Erstellt wann:"
@@ -1816,7 +1816,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem17.Control = Me.TextEdit11
         Me.LayoutControlItem17.CustomizationFormText = "layoutControlItem4"
-        Me.LayoutControlItem17.Location = New System.Drawing.Point(129, 160)
+        Me.LayoutControlItem17.Location = New System.Drawing.Point(129, 158)
         Me.LayoutControlItem17.Name = "LayoutControlItem17"
         Me.LayoutControlItem17.Size = New System.Drawing.Size(176, 40)
         Me.LayoutControlItem17.Text = "Geändert wann:"
@@ -1827,7 +1827,7 @@ Partial Class frmAdministration
         '
         Me.LayoutControlItem16.Control = Me.CHANGED_WHOTextBox1
         Me.LayoutControlItem16.CustomizationFormText = "layoutControlItem3"
-        Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 160)
+        Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 158)
         Me.LayoutControlItem16.Name = "LayoutControlItem16"
         Me.LayoutControlItem16.Size = New System.Drawing.Size(129, 40)
         Me.LayoutControlItem16.Text = "Geändert wer:"
@@ -1837,7 +1837,7 @@ Partial Class frmAdministration
         'LayoutControlItem11
         '
         Me.LayoutControlItem11.Control = Me.txtDataSearchName
-        Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 48)
+        Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 46)
         Me.LayoutControlItem11.Name = "LayoutControlItem11"
         Me.LayoutControlItem11.Size = New System.Drawing.Size(305, 24)
         Me.LayoutControlItem11.Text = "Titel:"
@@ -1846,7 +1846,7 @@ Partial Class frmAdministration
         'LayoutControlItem12
         '
         Me.LayoutControlItem12.Control = Me.TextEdit10
-        Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 72)
+        Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 70)
         Me.LayoutControlItem12.Name = "LayoutControlItem12"
         Me.LayoutControlItem12.Size = New System.Drawing.Size(305, 24)
         Me.LayoutControlItem12.Text = "Position/Reihenfolge:"
@@ -1855,7 +1855,7 @@ Partial Class frmAdministration
         'LayoutControlItem13
         '
         Me.LayoutControlItem13.Control = Me.ComboBoxEdit2
-        Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 96)
+        Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 94)
         Me.LayoutControlItem13.Name = "LayoutControlItem13"
         Me.LayoutControlItem13.Size = New System.Drawing.Size(305, 24)
         Me.LayoutControlItem13.Text = "Datenbank-Verbindung:"
@@ -1884,15 +1884,15 @@ Partial Class frmAdministration
         'EmptySpaceItem1
         '
         Me.EmptySpaceItem1.AllowHotTrack = False
-        Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 200)
+        Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 198)
         Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
-        Me.EmptySpaceItem1.Size = New System.Drawing.Size(305, 320)
+        Me.EmptySpaceItem1.Size = New System.Drawing.Size(305, 322)
         Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
         '
         'LayoutControlItem23
         '
         Me.LayoutControlItem23.Control = Me.txtDATAGUID
-        Me.LayoutControlItem23.Location = New System.Drawing.Point(0, 24)
+        Me.LayoutControlItem23.Location = New System.Drawing.Point(0, 22)
         Me.LayoutControlItem23.Name = "LayoutControlItem23"
         Me.LayoutControlItem23.Size = New System.Drawing.Size(305, 24)
         Me.LayoutControlItem23.Text = "ID:"
@@ -2013,7 +2013,7 @@ Partial Class frmAdministration
         Me.TabPageGroupAssignment.ImageOptions.SvgImage = CType(resources.GetObject("TabPageGroupAssignment.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.TabPageGroupAssignment.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
         Me.TabPageGroupAssignment.Name = "TabPageGroupAssignment"
-        Me.TabPageGroupAssignment.Size = New System.Drawing.Size(1114, 540)
+        Me.TabPageGroupAssignment.Size = New System.Drawing.Size(1114, 542)
         Me.TabPageGroupAssignment.Text = "Gruppen-Zuordnung"
         '
         'SplitContainer2
@@ -2032,7 +2032,7 @@ Partial Class frmAdministration
         '
         Me.SplitContainer2.Panel2.Controls.Add(Me.GridControlGroupNotInProfile)
         Me.SplitContainer2.Panel2.Controls.Add(Me.Label10)
-        Me.SplitContainer2.Size = New System.Drawing.Size(1114, 540)
+        Me.SplitContainer2.Size = New System.Drawing.Size(1114, 542)
         Me.SplitContainer2.SplitterDistance = 260
         Me.SplitContainer2.TabIndex = 1
         '
@@ -2106,7 +2106,7 @@ Partial Class frmAdministration
         Me.GridControlGroupNotInProfile.Location = New System.Drawing.Point(0, 25)
         Me.GridControlGroupNotInProfile.MainView = Me.GridViewGroupNotInProfile
         Me.GridControlGroupNotInProfile.Name = "GridControlGroupNotInProfile"
-        Me.GridControlGroupNotInProfile.Size = New System.Drawing.Size(1114, 251)
+        Me.GridControlGroupNotInProfile.Size = New System.Drawing.Size(1114, 253)
         Me.GridControlGroupNotInProfile.TabIndex = 1
         Me.GridControlGroupNotInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewGroupNotInProfile})
         '
@@ -2373,13 +2373,13 @@ Partial Class frmAdministration
         'SplitContainerControl1
         '
         Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158)
+        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 157)
         Me.SplitContainerControl1.Name = "SplitContainerControl1"
         Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControlProfiles)
         Me.SplitContainerControl1.Panel1.Text = "Panel1"
         Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl3)
         Me.SplitContainerControl1.Panel2.Text = "Panel2"
-        Me.SplitContainerControl1.Size = New System.Drawing.Size(1365, 600)
+        Me.SplitContainerControl1.Size = New System.Drawing.Size(1365, 601)
         Me.SplitContainerControl1.SplitterPosition = 237
         Me.SplitContainerControl1.TabIndex = 27
         Me.SplitContainerControl1.Text = "SplitContainerControl1"

app/DD_Clipboard_Searcher/frmAdministration.resx

@@ -123,6 +123,9 @@
   <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>245, 17</value>
   </metadata>
+  <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>245, 17</value>
+  </metadata>
   <metadata name="TBWH_UserBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>122, 56</value>
   </metadata>
@@ -842,12 +845,25 @@
         LDE0LjMsMjZ6IiBjbGFzcz0iQmxhY2siIC8+DQo8L3N2Zz4L
 </value>
   </data>
-  <metadata name="VWCW_GROUP_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <data name="TabPageProfileAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>500, 95</value>
+    <value>
-  </metadata>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
-  <metadata name="TBWH_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-    <value>290, 95</value>
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/
-  </metadata>
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxz
+        dHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQo8L3N0eWxlPg0KICA8ZyBp
+        ZD0iTGF5ZXJfMSI+DQogICAgPHBhdGggZD0iTTIzLjcsMTQuNGMwLjUsMC4zLDAuNSwwLjgsMCwxLjFs
+        LTExLjgsNy4zdjIuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVsMTYuOC0xMC40YzAuNS0wLjMsMC41LTAu
+        OCwwLTEuMSAgIEwxMi44LDQuMWMtMC41LTAuMy0wLjktMC4xLTAuOSwwLjV2Mi42TDIzLjcsMTQuNHoi
+        IGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRoIGQ9Ik0xOS43LDE1LjVjMC41LTAuMywwLjUtMC44LDAt
+        MS4xTDIuOSw0LjFDMi40LDMuOCwyLDQsMiw0LjZ2MjAuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVMMTku
+        NywxNS41eiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCiAgPGcgaWQ9IkxheWVyXzIiIC8+DQo8L3N2
+        Zz4L
+</value>
+  </data>
   <data name="TabPageGroupAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
@@ -896,25 +912,12 @@
         MjAsMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
 </value>
   </data>
-  <data name="TabPageProfileAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <metadata name="VWCW_GROUP_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>
+    <value>500, 95</value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+  </metadata>
-        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+  <metadata name="TBWH_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/
+    <value>290, 95</value>
-        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+  </metadata>
-        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
-        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxz
-        dHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQo8L3N0eWxlPg0KICA8ZyBp
-        ZD0iTGF5ZXJfMSI+DQogICAgPHBhdGggZD0iTTIzLjcsMTQuNGMwLjUsMC4zLDAuNSwwLjgsMCwxLjFs
-        LTExLjgsNy4zdjIuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVsMTYuOC0xMC40YzAuNS0wLjMsMC41LTAu
-        OCwwLTEuMSAgIEwxMi44LDQuMWMtMC41LTAuMy0wLjktMC4xLTAuOSwwLjV2Mi42TDIzLjcsMTQuNHoi
-        IGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRoIGQ9Ik0xOS43LDE1LjVjMC41LTAuMywwLjUtMC44LDAt
-        MS4xTDIuOSw0LjFDMi40LDMuOCwyLDQsMiw0LjZ2MjAuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVMMTku
-        NywxNS41eiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCiAgPGcgaWQ9IkxheWVyXzIiIC8+DQo8L3N2
-        Zz4L
-</value>
-  </data>
   <metadata name="TBCW_PROF_DATA_SEARCHTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>862, 56</value>
   </metadata>

app/DD_Clipboard_Searcher/frmMain.Designer.vb

@@ -0,0 +1,350 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmMain
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+
+    '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.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.lblUser = New DevExpress.XtraBars.BarStaticItem()
+        Me.lblVersion = New DevExpress.XtraBars.BarStaticItem()
+        Me.lblApplicationServer = New DevExpress.XtraBars.BarStaticItem()
+        Me.bbtniKonfig = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtnitemAdmin = New DevExpress.XtraBars.BarButtonItem()
+        Me.lblRefresh = New DevExpress.XtraBars.BarStaticItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.labelStatus = New System.Windows.Forms.Label()
+        Me.labelRefresh = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.labelHotkey = New System.Windows.Forms.Label()
+        Me.NotifyIconMain = New System.Windows.Forms.NotifyIcon(Me.components)
+        Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.FunktionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BisherigenAblaufAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ClientBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.TimerClose = New System.Windows.Forms.Timer(Me.components)
+        Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
+        Me.ContextMenuStripForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.MinimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox2.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        Me.cmstrpNotifyIcon.SuspendLayout()
+        Me.ContextMenuStripForm.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.lblUser, Me.lblVersion, Me.lblApplicationServer, Me.bbtniKonfig, Me.bbtnitemAdmin, Me.lblRefresh})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 7
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.Size = New System.Drawing.Size(492, 157)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'lblUser
+        '
+        Me.lblUser.Caption = "BarStaticItem1"
+        Me.lblUser.Id = 1
+        Me.lblUser.ImageOptions.SvgImage = CType(resources.GetObject("lblUser.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.lblUser.Name = "lblUser"
+        Me.lblUser.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'lblVersion
+        '
+        Me.lblVersion.Caption = "BarStaticItem1"
+        Me.lblVersion.Id = 2
+        Me.lblVersion.Name = "lblVersion"
+        '
+        'lblApplicationServer
+        '
+        Me.lblApplicationServer.Caption = "Application Server active"
+        Me.lblApplicationServer.Id = 3
+        Me.lblApplicationServer.ImageOptions.SvgImage = CType(resources.GetObject("lblApplicationServer.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.lblApplicationServer.Name = "lblApplicationServer"
+        Me.lblApplicationServer.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'bbtniKonfig
+        '
+        Me.bbtniKonfig.Caption = "Grundeinstellungen"
+        Me.bbtniKonfig.Id = 4
+        Me.bbtniKonfig.ImageOptions.SvgImage = CType(resources.GetObject("bbtniKonfig.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtniKonfig.Name = "bbtniKonfig"
+        '
+        'bbtnitemAdmin
+        '
+        Me.bbtnitemAdmin.Caption = "Administration"
+        Me.bbtnitemAdmin.Id = 5
+        Me.bbtnitemAdmin.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitemAdmin.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitemAdmin.Name = "bbtnitemAdmin"
+        '
+        'lblRefresh
+        '
+        Me.lblRefresh.Caption = "BarStaticItem1"
+        Me.lblRefresh.Id = 6
+        Me.lblRefresh.Name = "lblRefresh"
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "Start"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtniKonfig)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitemAdmin)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "Einstellungen"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.lblUser)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.lblVersion)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.lblApplicationServer)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.lblRefresh)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 289)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(492, 22)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.labelStatus)
+        Me.GroupBox2.Controls.Add(Me.labelRefresh)
+        Me.GroupBox2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox2.Location = New System.Drawing.Point(209, 163)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(256, 119)
+        Me.GroupBox2.TabIndex = 16
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "Informationen"
+        '
+        'labelStatus
+        '
+        Me.labelStatus.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.labelStatus.Location = New System.Drawing.Point(8, 40)
+        Me.labelStatus.Name = "labelStatus"
+        Me.labelStatus.Size = New System.Drawing.Size(242, 67)
+        Me.labelStatus.TabIndex = 0
+        Me.labelStatus.Text = "Label3"
+        '
+        'labelRefresh
+        '
+        Me.labelRefresh.AutoSize = True
+        Me.labelRefresh.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.labelRefresh.Location = New System.Drawing.Point(8, 21)
+        Me.labelRefresh.Name = "labelRefresh"
+        Me.labelRefresh.Size = New System.Drawing.Size(132, 13)
+        Me.labelRefresh.TabIndex = 0
+        Me.labelRefresh.Text = "Aktualisierung erfolgreich."
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.Label2)
+        Me.GroupBox1.Controls.Add(Me.labelHotkey)
+        Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox1.Location = New System.Drawing.Point(12, 163)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(191, 59)
+        Me.GroupBox1.TabIndex = 15
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Aktuelle Tastenkombination:"
+        '
+        'Label2
+        '
+        Me.Label2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(3, 17)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(185, 13)
+        Me.Label2.TabIndex = 14
+        Me.Label2.Text = "Zwischenablage gefolgt von:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        '
+        'labelHotkey
+        '
+        Me.labelHotkey.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.labelHotkey.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.labelHotkey.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.labelHotkey.Location = New System.Drawing.Point(3, 29)
+        Me.labelHotkey.Name = "labelHotkey"
+        Me.labelHotkey.Size = New System.Drawing.Size(185, 27)
+        Me.labelHotkey.TabIndex = 13
+        Me.labelHotkey.Text = "{0}"
+        Me.labelHotkey.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'NotifyIconMain
+        '
+        Me.NotifyIconMain.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
+        Me.NotifyIconMain.BalloonTipText = "Text"
+        Me.NotifyIconMain.BalloonTipTitle = "Title"
+        Me.NotifyIconMain.ContextMenuStrip = Me.cmstrpNotifyIcon
+        Me.NotifyIconMain.Icon = CType(resources.GetObject("NotifyIconMain.Icon"), System.Drawing.Icon)
+        Me.NotifyIconMain.Text = "NotifyIcon1"
+        Me.NotifyIconMain.Visible = True
+        '
+        'cmstrpNotifyIcon
+        '
+        Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenToolStripMenuItem, Me.tsmiChangeState, Me.ClientÖffnenToolStripMenuItem, Me.ClientBeendenToolStripMenuItem})
+        Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon"
+        Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(220, 92)
+        '
+        'FunktionenToolStripMenuItem
+        '
+        Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BisherigenAblaufAnzeigenToolStripMenuItem})
+        Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
+        Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(219, 22)
+        Me.FunktionenToolStripMenuItem.Text = "Funktionen"
+        '
+        'BisherigenAblaufAnzeigenToolStripMenuItem
+        '
+        Me.BisherigenAblaufAnzeigenToolStripMenuItem.Name = "BisherigenAblaufAnzeigenToolStripMenuItem"
+        Me.BisherigenAblaufAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
+        Me.BisherigenAblaufAnzeigenToolStripMenuItem.Text = "Bisherigen Ablauf anzeigen"
+        '
+        'tsmiChangeState
+        '
+        Me.tsmiChangeState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.Symbols_Stop_16xLG
+        Me.tsmiChangeState.Name = "tsmiChangeState"
+        Me.tsmiChangeState.Size = New System.Drawing.Size(219, 22)
+        Me.tsmiChangeState.Text = "Clipboard Watcher stoppen"
+        '
+        'ClientÖffnenToolStripMenuItem
+        '
+        Me.ClientÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.door_open
+        Me.ClientÖffnenToolStripMenuItem.Name = "ClientÖffnenToolStripMenuItem"
+        Me.ClientÖffnenToolStripMenuItem.Size = New System.Drawing.Size(219, 22)
+        Me.ClientÖffnenToolStripMenuItem.Text = "Client öffnen"
+        '
+        'ClientBeendenToolStripMenuItem
+        '
+        Me.ClientBeendenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
+        Me.ClientBeendenToolStripMenuItem.Name = "ClientBeendenToolStripMenuItem"
+        Me.ClientBeendenToolStripMenuItem.Size = New System.Drawing.Size(219, 22)
+        Me.ClientBeendenToolStripMenuItem.Text = "Client beenden"
+        '
+        'TimerClose
+        '
+        Me.TimerClose.Interval = 10000
+        '
+        'TimerRefresh
+        '
+        Me.TimerRefresh.Interval = 120000
+        '
+        'ContextMenuStripForm
+        '
+        Me.ContextMenuStripForm.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MinimierenToolStripMenuItem})
+        Me.ContextMenuStripForm.Name = "ContextMenuStripForm"
+        Me.ContextMenuStripForm.Size = New System.Drawing.Size(136, 26)
+        '
+        'MinimierenToolStripMenuItem
+        '
+        Me.MinimierenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ReduceSize
+        Me.MinimierenToolStripMenuItem.Name = "MinimierenToolStripMenuItem"
+        Me.MinimierenToolStripMenuItem.Size = New System.Drawing.Size(135, 22)
+        Me.MinimierenToolStripMenuItem.Text = "Minimieren"
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "WorkItem_32xMD.png")
+        Me.ImageList1.Images.SetKeyName(1, "key_16xLG.png")
+        Me.ImageList1.Images.SetKeyName(2, "ResultstoFile_9946.png")
+        Me.ImageList1.Images.SetKeyName(3, "WindowsForm_817.ico")
+        Me.ImageList1.Images.SetKeyName(4, "process_16xMD.png")
+        '
+        'frmMain
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(492, 311)
+        Me.ContextMenuStrip = Me.ContextMenuStripForm
+        Me.Controls.Add(Me.GroupBox2)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
+        Me.IconOptions.Icon = CType(resources.GetObject("frmMain.IconOptions.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.Name = "frmMain"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
+        Me.Text = "Clipboard Watcher"
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox2.PerformLayout()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.cmstrpNotifyIcon.ResumeLayout(False)
+        Me.ContextMenuStripForm.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    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 RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents GroupBox2 As GroupBox
+    Friend WithEvents labelStatus As Label
+    Friend WithEvents labelRefresh As Label
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents labelHotkey As Label
+    Friend WithEvents lblUser As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents lblVersion As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents lblApplicationServer As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bbtniKonfig As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbtnitemAdmin As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents NotifyIconMain As NotifyIcon
+    Friend WithEvents cmstrpNotifyIcon As ContextMenuStrip
+    Friend WithEvents FunktionenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents tsmiChangeState As ToolStripMenuItem
+    Friend WithEvents ClientÖffnenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ClientBeendenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents BisherigenAblaufAnzeigenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents lblRefresh As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents TimerClose As Timer
+    Friend WithEvents TimerRefresh As Timer
+    Friend WithEvents ContextMenuStripForm As ContextMenuStrip
+    Friend WithEvents MinimierenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ImageList1 As ImageList
+End Class

app/DD_Clipboard_Searcher/frmMain.vb

@@ -0,0 +1,408 @@
+Imports System.Threading
+Imports System.IO
+Imports System.Globalization
+Imports DD_Clipboard_Watcher.ClassConstants
+Imports DD_Clipboard_Watcher.ClassWindowAPI
+Imports DigitalData.Modules.ZooFlow
+Imports DigitalData.GUIs.ClipboardWatcher
+Public Class frmMain
+    Private WithEvents Hotkey As New ClassHotkey(Me)
+    'Private WithEvents _Watcher As ClipboardWatcher = ClipboardWatcher.Singleton
+    Private WithEvents _Watcher2 As ClassClipboardWatcher = ClassClipboardWatcher.Singleton
+    Private _MatchForm As frmMatch = Nothing
+    Public Sub New()
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Dim splash As New frmSplash()
+        splash.ShowDialog()
+        If ERROR_INIT <> "INVALID USER" Then
+            Dim cultureInfo As New CultureInfo(USER_LANGUAGE)
+            Thread.CurrentThread.CurrentCulture = cultureInfo
+            Thread.CurrentThread.CurrentUICulture = cultureInfo
+            CultureInfo.DefaultThreadCurrentCulture = cultureInfo
+            CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
+        End If
+    End Sub
+
+    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
+        ClassWindowLocation.LoadFormLocationSize(Me)
+        If ERROR_INIT = "FAILED DBCONNECTION" Or ERROR_INIT = "DATABASE" Then
+            frmConfig_Basic.ShowDialog()
+        End If
+        lblUser.Caption = USER_USERNAME
+        If Database.DBInitialized = True Then
+            If ERROR_INIT <> "" Then
+                If ERROR_INIT = "NO CLIENT" Then
+                    MsgBox("You are not related to a client!" & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
+                Else
+                    MsgBox("Sorry Something went wrong in user configuration!" & vbNewLine & "Reason: " & ERROR_INIT & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
+                End If
+                Exit Sub
+            End If
+            NotifyIconMain.Visible = True
+            ClassInit.Refresh_Profile_Links()
+            ClassInit.Refresh_Connections()
+            Try
+                Hotkey.AddHotKey(Keys.T, ClassHotkey.ModfierKey.MOD_CONTROL, HOTKEY_TOGGLE_WATCHER)
+                Dim oKeyCode As Keys
+                Dim oConverter As New KeysConverter
+                Dim oObject As Object = oConverter.ConvertFromString(HotkeySearchKey.ToUpper)
+                oKeyCode = CType(oObject, Keys)
+
+                If HotkeyFunctionKey = HOTKEY_CTRL Then
+                    Hotkey.AddHotKey(oKeyCode, ClassHotkey.ModfierKey.MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER)
+                ElseIf HotkeyFunctionKey = HOTKEY_SHIFT Then
+                    Hotkey.AddHotKey(oKeyCode, ClassHotkey.ModfierKey.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER)
+                End If
+            Catch ex As Exception
+                Logger.Warn($"Unexpected Error in Hotkey inititialize: {ex.Message}")
+            End Try
+
+            Try
+                If APPSERVER_ACTIVE = True Then
+                    lblApplicationServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                Else
+                    lblApplicationServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                End If
+                If BASIC_CONF_VISIBLE = False Then
+                    bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                Else
+                    bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                End If
+                If USER_IS_ADMIN = True Then
+                    bbtnitemAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                Else
+                    bbtnitemAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                End If
+                If USER_IS_ADMIN = False And BASIC_CONF_VISIBLE Then
+                    RibbonPageGroup1.Visible = False
+                    RibbonControl1.Minimized = True
+                End If
+                lblVersion.Caption = String.Format(lblVersion.Caption, My.Application.Info.Version.ToString)
+                lblUser.Caption = String.Format(lblUser.Caption, USER_USERNAME)
+            Catch ex As Exception
+                Logger.Warn($"Unexpected Error in FormLoad2: {ex.Message}")
+            End Try
+
+
+        End If
+
+        RefreshUI()
+    End Sub
+
+    Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        Logger.Info(">> Logout time: " & Now.ToString, False)
+        If ERROR_INIT = "INVALID USER" Or ERROR_INIT = "NO CLIENT" Then
+            Exit Sub
+        End If
+        Try
+            Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Clipboard-Watcher')"
+            Database.ExecuteNonQuery(sql)
+            ClassWindowLocation.SaveFormLocationSize(Me, "")
+            My.Settings.Save()
+        Catch ex As Exception
+
+        End Try
+        Try
+            Hotkey.RemoveHotKey(HOTKEY_TOGGLE_WATCHER)
+            Hotkey.RemoveHotKey(HOTKEY_TRIGGER_WATCHER)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Logger.Warn("Hotkeys could not be removed")
+        End Try
+
+        'TempDateien löschen
+        For Each oFile In TEMP_FILES
+            Try
+                File.Delete(oFile)
+            Catch ex As Exception
+                Logger.Warn("Temp file {0} could not be deleted", oFile)
+                Logger.Error(ex)
+            End Try
+        Next
+    End Sub
+
+    Private Sub frmClipboardWatch_Disposed(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Disposed
+        _Watcher2.Dispose()
+    End Sub
+
+    Private Sub WatcherChanged_New(ByVal sender As Object, ByVal e As String) Handles _Watcher2.Changed
+        If MONITORING_ACTIVE = False Then
+            Logger.Info("Clipboard Watcher is inactive!")
+            'NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
+            Exit Sub
+        End If
+
+        If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then
+            Logger.Warn("DT_USER_PROFILES is empty!")
+            Exit Sub
+        End If
+
+        If DTPROFILE_REL_PROCESS Is Nothing OrElse DTPROFILE_REL_PROCESS.Rows.Count = 0 Then
+            Logger.Warn("DTPROFILE_REL_PROCESS is empty!")
+            Exit Sub
+        End If
+
+        If DTPROFILE_REL_WINDOW Is Nothing Then
+            Logger.Warn("DTPROFILE_REL_WINDOW is empty!")
+            Exit Sub
+        End If
+
+        If DTPROFILE_REL_CONTROL Is Nothing Then
+            Logger.Warn("DTPROFILE_REL_CONTROL is empty!")
+            Exit Sub
+        End If
+
+        Dim oWindowInfo = GetWindowInfo()
+        Dim ClipboardContents As String = Clipboard.GetText().Trim()
+        Dim oProfileFilter As ProfileFilter
+
+        Try
+            CurrMatchTreeView.Nodes.Clear()
+            CurrMatchTreeView.ImageList = ImageList1
+            CurrMatchTreeView.SelectedImageIndex = 0
+
+            oProfileFilter = New ProfileFilter(
+                LogConfig,
+                DT_USER_PROFILES,
+                DTPROFILE_REL_PROCESS,
+                DTPROFILE_REL_WINDOW,
+                DTPROFILE_REL_CONTROL,
+                CurrMatchTreeView
+            )
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
+            Exit Sub
+        End Try
+
+        Try
+            Dim oProfiles = oProfileFilter.Profiles.AsEnumerable()
+            Dim oEnvironment = GetEnvironment()
+
+            oProfiles = oProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents)
+            oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByClipboardRegex")
+
+            oProfiles = oProfileFilter.FilterProfilesByProcess(oProfiles, oWindowInfo.ProcessName)
+            oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByProcess")
+
+            oProfiles = oProfileFilter.FilterWindowsByWindowTitleRegex(oProfiles, oWindowInfo.WindowTitle)
+            oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterWindowsByWindowTitleRegex")
+
+            oProfiles = oProfileFilter.FilterProfilesByFocusedControl(oProfiles, ClipboardContents, Handle)
+            oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByFocusedControl")
+            CURRENT_MATCHING_PROFILES = oProfiles.ToList()
+
+            oProfiles = oProfileFilter.FilterProfilesBySearchResults(oProfiles, oEnvironment.Database, oEnvironment.User, ClipboardContents)
+            oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesBySearchResults")
+
+            oProfiles = oProfileFilter.ClearNotMatchedProfiles(oProfiles)
+            oProfiles = oProfileFilter.ClearDuplicateProfiles(oProfiles)
+            oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "CleanUp")
+
+            CURRENT_PROFILES_WITH_RESULTS = oProfiles.ToList()
+            CURRENT_CLIPBOARD_CONTENTS = ClipboardContents
+        Catch ex As Exception
+            MsgBox("Fehler beim Auswerten der Profile. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
+            Logger.Error(ex)
+        End Try
+    End Sub
+
+    Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles Hotkey.HotKeyPressed
+        If HotKeyID = HOTKEY_TRIGGER_WATCHER Then
+            If CURRENT_CLIPBOARD_CONTENTS IsNot Nothing Then
+                If MONITORING_ACTIVE = True Then
+                    If CURRENT_MATCHING_PROFILES.Count = 0 Then
+                        If NOMATCH_INFO = False Then
+                            NotifyIconMain.BalloonTipTitle = "Clipboard Watcher"
+                            NotifyIconMain.BalloonTipText = "Es wurden keine passenden Profile gefunden."
+                            NotifyIconMain.BalloonTipIcon = ToolTipIcon.Warning
+                            NotifyIconMain.ShowBalloonTip(2000)
+                        End If
+
+                    ElseIf CURRENT_PROFILES_WITH_RESULTS.Count = 0 Then
+                        If NOMATCH_INFO = False Then
+                            NotifyIconMain.BalloonTipTitle = "Clipboard Watcher"
+                            NotifyIconMain.BalloonTipText = "Es wurden weder Dokumente noch Daten gefunden!"
+                            NotifyIconMain.BalloonTipIcon = ToolTipIcon.Warning
+                            NotifyIconMain.ShowBalloonTip(2000)
+                        End If
+
+                    Else
+                        OpenMatchForm()
+                    End If
+                End If
+
+            End If
+        ElseIf HotKeyID = HOTKEY_TOGGLE_WATCHER Then
+            Change_Monitoring_State()
+        End If
+    End Sub
+    Sub OpenMatchForm()
+        Logger.Debug("...now CHECK_PROFILE_MATCH...")
+        Dim oProfiles = CURRENT_MATCHING_PROFILES
+        Dim oEnv = GetEnvironment()
+
+        Dim oParams = New ClipboardWatcherParams() With {
+            .ClipboardContents = CURRENT_CLIPBOARD_CONTENTS,
+            .MatchingProfiles = oProfiles,
+            .MatchTreeView = CurrMatchTreeView
+        }
+
+        Dim oForm As New frmMatch(LogConfig, oEnv, oParams)
+
+        _MatchForm = oForm
+        oForm.Show()
+    End Sub
+
+    Private Function GetEnvironment() As Environment
+        Dim oUser As New State.UserState() With {
+            .DateFormat = USER_DATE_FORMAT,
+            .Email = USER_EMAIL,
+            .GivenName = USER_PRENAME,
+            .Language = USER_LANGUAGE,
+            .MachineName = System.Environment.MachineName,
+            .ShortName = USER_SHORTNAME,
+            .Surname = USER_SURNAME,
+            .UserId = USER_ID,
+            .UserName = USER_USERNAME
+        }
+
+        Dim oSettings As New State.SettingsState() With {
+            .GdPictureKey = GDPICTURE_LICENSE
+        }
+
+        Dim oEnvironment As New Environment() With {
+            .Database = Database,
+            .Modules = Nothing,
+            .User = oUser,
+            .Settings = oSettings
+        }
+
+        Return oEnvironment
+    End Function
+
+    Sub Change_Monitoring_State()
+        If MONITORING_ACTIVE = True Then
+            NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde deaktiviert!", ToolTipIcon.Info)
+            MONITORING_ACTIVE = False
+        Else
+            MONITORING_ACTIVE = True
+            NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde wieder aktiviert!", ToolTipIcon.Info)
+        End If
+    End Sub
+    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        If ERROR_INIT <> "INVALID USER" And LICENSE_COUNT > 0 Then
+            If DT_USER_PROFILES.Rows.Count >= 1 Then
+                Hide()
+            End If
+        Else
+            If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then
+                MsgBox("As an admin You have access! Please inform Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "No valid License")
+            Else
+                If Not USER_IS_ADMIN Then
+                    MsgBox("Application will close now!", MsgBoxStyle.Critical, "No valid License")
+                    Close()
+                End If
+
+            End If
+        End If
+
+        TimerRefresh.Start()
+    End Sub
+
+    Private Sub NotifyIcon1_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIconMain.DoubleClick
+        OpenClose()
+    End Sub
+    Sub OpenClose()
+        If Visible = False Then
+            BringToFront()
+            Visible = True
+            TimerClose.Start()
+        Else
+            Hide()
+            NotifyIconMain.Visible = True
+        End If
+    End Sub
+
+    Private Sub TimerClose_Tick(sender As Object, e As EventArgs) Handles TimerClose.Tick
+        Hide()
+    End Sub
+
+    Private Sub frmMain_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged
+        If TimerClose.Enabled = True Then
+            TimerClose.Stop()
+        End If
+    End Sub
+
+    Private Sub MinimierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimierenToolStripMenuItem.Click
+        Hide()
+    End Sub
+
+    Private Sub ClientÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientÖffnenToolStripMenuItem.Click
+        OpenClose()
+    End Sub
+
+
+
+
+    Private Sub ClientBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientBeendenToolStripMenuItem.Click
+        Shut_Down()
+    End Sub
+    Sub Shut_Down()
+        If MsgBox("Wollen Sie das Programm beenden?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
+            Close()
+        End If
+    End Sub
+    Private Sub TimerRefresh_Tick(sender As Object, e As EventArgs) Handles TimerRefresh.Tick
+        RefreshUI()
+    End Sub
+
+    Private Sub RefreshUI()
+        Dim oResultText = ClassInit.Refresh_Profile_Links()
+        lblRefresh.Caption = ""
+        ClassInit.CheckModuleData()
+        labelStatus.Text = oResultText
+        labelRefresh.Text = $"Aktualisiert: {Now.ToShortTimeString}"
+        lblRefresh.Caption = $"Eingeloggte Benutzer: {USERCOUNT_LOGGED_IN}"
+        lblVersion.Caption = String.Format(lblVersion.Caption, My.Application.Info.Version.ToString)
+        lblUser.Caption = String.Format(lblUser.Caption, USER_USERNAME)
+        labelHotkey.Text = String.Format(labelHotkey.Text, $"{HotkeyFunctionKey.ToUpper}+{HotkeySearchKey.ToUpper}")
+    End Sub
+    Private Sub BisherigenAblaufAnzeigenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles BisherigenAblaufAnzeigenToolStripMenuItem.Click
+        If CurrMatchTreeView.Nodes.Count > 0 Then
+            Dim oForm As New frmTreeView(CurrMatchTreeView.Nodes)
+            oForm.Show()
+        End If
+    End Sub
+
+    Private Sub ClipboardWatcherStoppenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsmiChangeState.Click
+        If tsmiChangeState.Tag = "stop" Then
+            tsmiChangeState.Tag = "start"
+            tsmiChangeState.Image = My.Resources.control_start_blue
+            tsmiChangeState.Text = "Clipboard Watcher starten"
+            MONITORING_ACTIVE = False
+            NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde deaktiviert!", ToolTipIcon.Info)
+        Else
+            tsmiChangeState.Image = My.Resources.StatusAnnotations_Stop_16xLG
+            tsmiChangeState.Tag = "stop"
+            tsmiChangeState.Text = "Clipboard Watcher stoppen"
+            MONITORING_ACTIVE = True
+            NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde wieder aktiviert!", ToolTipIcon.Info)
+        End If
+    End Sub
+
+    Private Sub bbtnitemAdmin_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitemAdmin.ItemClick
+        TimerClose.Stop()
+        MONITORING_ACTIVE = False
+        frmAdministration.ShowDialog()
+        TimerClose.Start()
+        MONITORING_ACTIVE = True
+    End Sub
+
+    Private Sub bbtniKonfig_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniKonfig.ItemClick
+        frmConfig_Basic.ShowDialog()
+    End Sub
+End Class

app/DD_Clipboard_Searcher/frmStart.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmStart
-    Inherits DevExpress.XtraEditors.XtraForm
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>
@@ -28,11 +28,17 @@ Partial Class frmStart
         Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.AblaufAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.BisherigenAblaufAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ClientBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
+        Me.labelUser = New System.Windows.Forms.ToolStripStatusLabel()
         Me.labelVersion = New System.Windows.Forms.ToolStripStatusLabel()
         Me.lblrefresh = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.tslblAppServer = New System.Windows.Forms.ToolStripStatusLabel()
         Me.TimerClose = New System.Windows.Forms.Timer(Me.components)
         Me.ContextMenuStripForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.MinimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -42,19 +48,20 @@ Partial Class frmStart
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
         Me.labelStatus = New System.Windows.Forms.Label()
         Me.labelRefresh = New System.Windows.Forms.Label()
-        Me.MinimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.btnAdminConfig = New System.Windows.Forms.Button()
         Me.btnUserConfig = New System.Windows.Forms.Button()
-        Me.labelUser = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
-        Me.tslblAppServer = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.ClientBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.cmstrpNotifyIcon.SuspendLayout()
         Me.StatusStrip1.SuspendLayout()
         Me.ContextMenuStripForm.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'NotifyIconMain
@@ -86,16 +93,45 @@ Partial Class frmStart
         Me.BisherigenAblaufAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
         Me.BisherigenAblaufAnzeigenToolStripMenuItem.Text = "Bisherigen Ablauf anzeigen"
         '
+        'tsmiChangeState
+        '
+        Me.tsmiChangeState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG
+        Me.tsmiChangeState.Name = "tsmiChangeState"
+        Me.tsmiChangeState.Size = New System.Drawing.Size(219, 22)
+        Me.tsmiChangeState.Tag = "stop"
+        Me.tsmiChangeState.Text = "Clipboard Watcher stoppen"
+        '
+        'ClientÖffnenToolStripMenuItem
+        '
+        Me.ClientÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.door_open
+        Me.ClientÖffnenToolStripMenuItem.Name = "ClientÖffnenToolStripMenuItem"
+        Me.ClientÖffnenToolStripMenuItem.Size = New System.Drawing.Size(219, 22)
+        Me.ClientÖffnenToolStripMenuItem.Text = "Client öffnen"
+        '
+        'ClientBeendenToolStripMenuItem
+        '
+        Me.ClientBeendenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
+        Me.ClientBeendenToolStripMenuItem.Name = "ClientBeendenToolStripMenuItem"
+        Me.ClientBeendenToolStripMenuItem.Size = New System.Drawing.Size(219, 22)
+        Me.ClientBeendenToolStripMenuItem.Text = "Client beenden"
+        '
         'StatusStrip1
         '
         Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.labelUser, Me.labelVersion, Me.lblrefresh, Me.tslblAppServer})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 232)
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 248)
         Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(345, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(359, 22)
         Me.StatusStrip1.SizingGrip = False
         Me.StatusStrip1.TabIndex = 3
         Me.StatusStrip1.Text = "StatusStrip1"
         '
+        'labelUser
+        '
+        Me.labelUser.Image = CType(resources.GetObject("labelUser.Image"), System.Drawing.Image)
+        Me.labelUser.Name = "labelUser"
+        Me.labelUser.Size = New System.Drawing.Size(37, 17)
+        Me.labelUser.Text = "{0}"
+        '
         'labelVersion
         '
         Me.labelVersion.Name = "labelVersion"
@@ -108,6 +144,13 @@ Partial Class frmStart
         Me.lblrefresh.Size = New System.Drawing.Size(59, 17)
         Me.lblrefresh.Text = "lblRefresh"
         '
+        'tslblAppServer
+        '
+        Me.tslblAppServer.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.server_Local_16xLG
+        Me.tslblAppServer.Name = "tslblAppServer"
+        Me.tslblAppServer.Size = New System.Drawing.Size(111, 17)
+        Me.tslblAppServer.Text = "AppServer active"
+        '
         'TimerClose
         '
         Me.TimerClose.Interval = 10000
@@ -118,6 +161,13 @@ Partial Class frmStart
         Me.ContextMenuStripForm.Name = "ContextMenuStripForm"
         Me.ContextMenuStripForm.Size = New System.Drawing.Size(136, 26)
         '
+        'MinimierenToolStripMenuItem
+        '
+        Me.MinimierenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ReduceSize
+        Me.MinimierenToolStripMenuItem.Name = "MinimierenToolStripMenuItem"
+        Me.MinimierenToolStripMenuItem.Size = New System.Drawing.Size(135, 22)
+        Me.MinimierenToolStripMenuItem.Text = "Minimieren"
+        '
         'Label1
         '
         Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
@@ -125,7 +175,7 @@ Partial Class frmStart
         Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label1.Location = New System.Drawing.Point(12, 56)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(321, 26)
+        Me.Label1.Size = New System.Drawing.Size(335, 26)
         Me.Label1.TabIndex = 7
         Me.Label1.Text = "Deaktivieren des Watchers über Rechtsklick auf das Systray Icon oder die Tastatur" &
     "kombination Strg + T"
@@ -139,7 +189,7 @@ Partial Class frmStart
         Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.GroupBox1.Location = New System.Drawing.Point(15, 92)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(318, 59)
+        Me.GroupBox1.Size = New System.Drawing.Size(332, 59)
         Me.GroupBox1.TabIndex = 11
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Aktuelle Tastenkombination:"
@@ -150,7 +200,7 @@ Partial Class frmStart
         Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label2.Location = New System.Drawing.Point(3, 17)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(312, 13)
+        Me.Label2.Size = New System.Drawing.Size(326, 13)
         Me.Label2.TabIndex = 14
         Me.Label2.Text = "Zwischenablage gefolgt von:"
         Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
@@ -162,7 +212,7 @@ Partial Class frmStart
         Me.labelHotkey.ForeColor = System.Drawing.SystemColors.ControlDarkDark
         Me.labelHotkey.Location = New System.Drawing.Point(3, 29)
         Me.labelHotkey.Name = "labelHotkey"
-        Me.labelHotkey.Size = New System.Drawing.Size(312, 27)
+        Me.labelHotkey.Size = New System.Drawing.Size(326, 27)
         Me.labelHotkey.TabIndex = 13
         Me.labelHotkey.Text = "{0}"
         Me.labelHotkey.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -186,7 +236,7 @@ Partial Class frmStart
         Me.GroupBox2.Controls.Add(Me.labelStatus)
         Me.GroupBox2.Controls.Add(Me.labelRefresh)
         Me.GroupBox2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox2.Location = New System.Drawing.Point(15, 157)
+        Me.GroupBox2.Location = New System.Drawing.Point(21, 179)
         Me.GroupBox2.Name = "GroupBox2"
         Me.GroupBox2.Size = New System.Drawing.Size(318, 64)
         Me.GroupBox2.TabIndex = 14
@@ -212,13 +262,6 @@ Partial Class frmStart
         Me.labelRefresh.TabIndex = 0
         Me.labelRefresh.Text = "Aktualisierung erfolgreich."
         '
-        'MinimierenToolStripMenuItem
-        '
-        Me.MinimierenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ReduceSize
-        Me.MinimierenToolStripMenuItem.Name = "MinimierenToolStripMenuItem"
-        Me.MinimierenToolStripMenuItem.Size = New System.Drawing.Size(135, 22)
-        Me.MinimierenToolStripMenuItem.Text = "Minimieren"
-        '
         'btnAdminConfig
         '
         Me.btnAdminConfig.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.Editdatasetwithdesigner_8449
@@ -241,48 +284,51 @@ Partial Class frmStart
         Me.btnUserConfig.Text = "Grundeinstellungen"
         Me.btnUserConfig.UseVisualStyleBackColor = True
         '
-        'labelUser
+        'RibbonControl1
         '
-        Me.labelUser.Image = CType(resources.GetObject("labelUser.Image"), System.Drawing.Image)
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.labelUser.Name = "labelUser"
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
-        Me.labelUser.Size = New System.Drawing.Size(37, 17)
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.labelUser.Text = "{0}"
+        Me.RibbonControl1.MaxItemId = 1
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.Size = New System.Drawing.Size(359, 157)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
         '
-        'tslblAppServer
+        'RibbonPage1
         '
-        Me.tslblAppServer.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.server_Local_16xLG
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
-        Me.tslblAppServer.Name = "tslblAppServer"
+        Me.RibbonPage1.Name = "RibbonPage1"
-        Me.tslblAppServer.Size = New System.Drawing.Size(111, 17)
+        Me.RibbonPage1.Text = "RibbonPage1"
-        Me.tslblAppServer.Text = "AppServer active"
         '
-        'tsmiChangeState
+        'RibbonPageGroup1
         '
-        Me.tsmiChangeState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
-        Me.tsmiChangeState.Name = "tsmiChangeState"
+        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
-        Me.tsmiChangeState.Size = New System.Drawing.Size(219, 22)
-        Me.tsmiChangeState.Tag = "stop"
-        Me.tsmiChangeState.Text = "Clipboard Watcher stoppen"
         '
-        'ClientÖffnenToolStripMenuItem
+        'RibbonPageGroup2
         '
-        Me.ClientÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.door_open
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        Me.ClientÖffnenToolStripMenuItem.Name = "ClientÖffnenToolStripMenuItem"
+        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
-        Me.ClientÖffnenToolStripMenuItem.Size = New System.Drawing.Size(219, 22)
-        Me.ClientÖffnenToolStripMenuItem.Text = "Client öffnen"
         '
-        'ClientBeendenToolStripMenuItem
+        'RibbonStatusBar1
         '
-        Me.ClientBeendenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 270)
-        Me.ClientBeendenToolStripMenuItem.Name = "ClientBeendenToolStripMenuItem"
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
-        Me.ClientBeendenToolStripMenuItem.Size = New System.Drawing.Size(219, 22)
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.ClientBeendenToolStripMenuItem.Text = "Client beenden"
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(359, 22)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
         '
         'frmStart
         '
         Me.Appearance.Options.UseFont = True
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(345, 254)
+        Me.ClientSize = New System.Drawing.Size(359, 292)
         Me.ContextMenuStrip = Me.ContextMenuStripForm
         Me.Controls.Add(Me.GroupBox2)
         Me.Controls.Add(Me.btnAdminConfig)
@@ -290,14 +336,18 @@ Partial Class frmStart
         Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.StatusStrip1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
         Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.IconOptions.Icon = CType(resources.GetObject("frmStart.IconOptions.Icon"), System.Drawing.Icon)
         Me.KeyPreview = True
         Me.MaximizeBox = False
         Me.MaximumSize = New System.Drawing.Size(361, 293)
-        Me.MinimumSize = New System.Drawing.Size(347, 286)
+        Me.MinimumSize = New System.Drawing.Size(347, 262)
         Me.Name = "frmStart"
+        Me.Ribbon = Me.RibbonControl1
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.StatusBar = Me.RibbonStatusBar1
         Me.Text = "Clipboard Watcher"
         Me.cmstrpNotifyIcon.ResumeLayout(False)
         Me.StatusStrip1.ResumeLayout(False)
@@ -306,6 +356,7 @@ Partial Class frmStart
         Me.GroupBox1.ResumeLayout(False)
         Me.GroupBox2.ResumeLayout(False)
         Me.GroupBox2.PerformLayout()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -336,4 +387,10 @@ Partial Class frmStart
     Friend WithEvents labelRefresh As Label
     Friend WithEvents labelStatus As Label
     Friend WithEvents tslblAppServer As ToolStripStatusLabel
+    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
 End Class

app/DD_Clipboard_Searcher/frmStart.resx

@@ -4663,7 +4663,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU
-        CwAAAk1TRnQBSQFMAgEBBQEAAUgBAAFIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CwAAAk1TRnQBSQFMAgEBBQEAAWABAAFgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

app/DD_Clipboard_Searcher/modCurrent.vb

@@ -80,5 +80,7 @@ Module modCurrent
     Public CurrMatchTreeView As New TreeView
     Public _Client As Client
     Public APPSERVER_ACTIVE As Boolean = False
-
+    Public WORKING_MODE As String = ""
+    Public BASIC_CONF_VISIBLE As Boolean = True
+    Public NOMATCH_INFO As Boolean = False
 End Module