merge

app/DD_Clipboard_Searcher/App.config

@@ -11,6 +11,9 @@
       <setting name="UserConfig_Prefix" serializeAs="String">
         <value />
       </setting>
+      <setting name="UseAppConfigConString" serializeAs="String">
+        <value>False</value>
+      </setting>
     </DD_Clipboard_Watcher.My.MySettings>
     <DevExpress.LookAndFeel.Design.AppSettings>
       <setting name="DefaultAppSkin" serializeAs="String">

app/DD_Clipboard_Searcher/ClassConfig.vb

@@ -17,4 +17,8 @@ Public Class ClassConfig
     Public Property ResultDocWindowLocation As Point = New Size(0, 0)
     Public Property ResultDataWindowSize As Size = New Size(1024, 786)
     Public Property ResultDataWindowLocation As Point = New Size(0, 0)
+    <ConnectionStringAppServer>
+    Public Property ConnectionStringAppServer As String = ""
+    <AppServerConfig>
+    Public Property AppServerConfig As String = ""
 End Class

app/DD_Clipboard_Searcher/ClassInit.vb

@@ -3,6 +3,7 @@ Imports DD_LIB_Standards
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.EDMI.API
 
 Public Class ClassInit
     Public _lizenzManager As clsLicenseManager
@@ -11,6 +12,21 @@ Public Class ClassInit
     Public Sub InitLogger()
         LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, Application.CompanyName, Application.ProductName)
         Logger = LogConfig.GetLogger()
+        Try
+            Dim directory As New IO.DirectoryInfo(LogConfig.LogDirectory)
+
+            For Each file As IO.FileInfo In directory.GetFiles
+                If (Now - file.CreationTime).Days > 29 Then
+                    file.Delete()
+                Else
+                    Exit For
+                End If
+
+
+            Next
+        Catch ex As Exception
+
+        End Try
     End Sub
     Public Function InitDatabase()
         Dim dbResult As Boolean
@@ -55,7 +71,15 @@ Public Class ClassInit
     End Function
 
     Public Function InitBasics()
-        ConfigManager = New ConfigManager(Of ClassConfig)(LogConfig, Application.UserAppDataPath, Application.CommonAppDataPath)
+        Dim UserAppDataPath = Application.UserAppDataPath
+        Dim CommonAppDataPath = Application.CommonAppDataPath
+        Dim StartupPath = Application.StartupPath
+        If My.Settings.UseAppConfigConString = True Then
+            ' UserAppDataPath = StartupPath
+            CommonAppDataPath = StartupPath
+        End If
+
+        ConfigManager = New ConfigManager(Of ClassConfig)(LogConfig, UserAppDataPath, CommonAppDataPath, StartupPath)
 
         With ConfigManager.Config
             MyConnectionString = DecryptConnectionString(.ConnectionString)
@@ -65,6 +89,32 @@ Public Class ClassInit
 
             LogConfig.Debug = Not .LogErrorsOnly
         End With
+        If ConfigManager.Config.ConnectionStringAppServer <> String.Empty Then
+            Logger.Debug("ConnectionStringAppServer will be used")
+            CONNECTION_STRING_APP_SERVER = DecryptConnectionString(ConfigManager.Config.ConnectionStringAppServer)
+        End If
+
+        If ConfigManager.Config.AppServerConfig <> String.Empty Then
+            Try
+                Dim oSplit() = ConfigManager.Config.AppServerConfig.ToString.Split(";")
+                Dim oAppServer = oSplit(0)
+                Dim oAppServerPort = 9000
+                If oSplit.Length = 2 Then
+                    oAppServerPort = oSplit(1)
+                End If
+                _Client = New Client(LogConfig, oAppServer, oAppServerPort)
+                If Not IsNothing(_Client) Then
+                    If _Client.Connect() Then
+                        APPSERVER_ACTIVE = True
+                    End If
+                End If
+
+
+
+            Catch ex As Exception
+                Logger.Warn($"Could not initialize the AppServer: {ex.Message}")
+            End Try
+        End If
 
         Return True
     End Function
@@ -113,8 +163,10 @@ Public Class ClassInit
 
                 USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
                 USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
-
+                ADDITIONAL_TITLE = DT_CHECKUSER_MODULE.Rows(0).Item("ADDITIONAL_TITLE")
-
+                If ADDITIONAL_TITLE = String.Empty Then
+                    ADDITIONAL_TITLE = My.Application.Info.ProductName
+                End If
                 USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
                 USERCOUNT_LOGGED_IN += 1
                 Return True

app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj

@@ -96,6 +96,9 @@
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
     </Reference>
+    <Reference Include="DigitalData.Modules.EDMI.API">
+      <HintPath>..\..\..\DDMonorepo\Modules.EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Filesystem">
       <HintPath>..\..\..\DDMonorepo\Modules.Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
     </Reference>
@@ -378,6 +381,7 @@
   <ItemGroup>
     <Content Include="DD_Icons_ICO_CBWATCHER_48px.ico" />
     <Content Include="KeyOutput_8167.ico" />
+    <None Include="Resources\server_Local_16xLG.png" />
     <None Include="Resources\PrepareProcess.png" />
     <None Include="Resources\base_cog_32.png" />
     <None Include="Resources\Editdatasetwithdesigner_8449.png" />

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

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -420,6 +420,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property server_Local_16xLG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("server_Local_16xLG", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

app/DD_Clipboard_Searcher/My Project/Resources.resx

@@ -136,6 +136,9 @@
   <data name="ReduceSize" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="StatusAnnotations_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="user_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\user_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -148,9 +151,6 @@
   <data name="GoToDefinition_5575" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="sql" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\sql.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -160,6 +160,9 @@
   <data name="ID_SITE_PUBLISH_ALL" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ID_SITE_PUBLISH_ALL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="PrepareProcess" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\PrepareProcess.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -172,9 +175,6 @@
   <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="control_start_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -199,11 +199,11 @@
   <data name="rar" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\rar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="tiff" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="StatusAnnotations_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="sql" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\sql.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Symbols_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Symbols_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -211,6 +211,9 @@
   <data name="PreviewTab" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\PreviewTab.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="OpenFile" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\OpenFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="mp4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\mp4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -223,8 +226,8 @@
   <data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="OpenFile" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="tiff" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\OpenFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="StatusAnnotations_Information_16xMD_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\StatusAnnotations_Information_16xMD_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -256,7 +259,7 @@
   <data name="ID_FILE_PAGE_SETUP" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="PrepareProcess" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="server_Local_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\PrepareProcess.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\server_Local_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

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

@@ -73,6 +73,15 @@ Namespace My
                 Return CType(Me("UserConfig_Prefix"),String)
             End Get
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public ReadOnly Property UseAppConfigConString() As Boolean
+            Get
+                Return CType(Me("UseAppConfigConString"),Boolean)
+            End Get
+        End Property
     End Class
 End Namespace
 

app/DD_Clipboard_Searcher/My Project/Settings.settings

@@ -13,5 +13,8 @@
     <Setting Name="UserConfig_Prefix" Type="System.String" Scope="Application">
       <Value Profile="(Default)" />
     </Setting>
+    <Setting Name="UseAppConfigConString" Type="System.Boolean" Scope="Application">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

app/DD_Clipboard_Searcher/frmStart.Designer.vb

@@ -28,27 +28,28 @@ 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.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()
         Me.labelHotkey = New System.Windows.Forms.Label()
-        Me.btnUserConfig = New System.Windows.Forms.Button()
-        Me.btnAdminConfig = New System.Windows.Forms.Button()
         Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
         Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
         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.tslblAppServer = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ClientBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.cmstrpNotifyIcon.SuspendLayout()
         Me.StatusStrip1.SuspendLayout()
         Me.ContextMenuStripForm.SuspendLayout()
@@ -70,7 +71,7 @@ Partial Class frmStart
         '
         Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AblaufAnzeigenToolStripMenuItem, Me.tsmiChangeState, Me.ClientÖffnenToolStripMenuItem, Me.ClientBeendenToolStripMenuItem})
         Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon"
-        Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(220, 114)
+        Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(220, 92)
         '
         'AblaufAnzeigenToolStripMenuItem
         '
@@ -85,31 +86,9 @@ 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.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.Name = "StatusStrip1"
         Me.StatusStrip1.Size = New System.Drawing.Size(345, 22)
@@ -117,13 +96,6 @@ Partial Class frmStart
         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"
@@ -146,13 +118,6 @@ 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) _
@@ -202,28 +167,6 @@ Partial Class frmStart
         Me.labelHotkey.Text = "{0}"
         Me.labelHotkey.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
         '
-        'btnUserConfig
-        '
-        Me.btnUserConfig.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.user_16xLG
-        Me.btnUserConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnUserConfig.Location = New System.Drawing.Point(15, 12)
-        Me.btnUserConfig.Name = "btnUserConfig"
-        Me.btnUserConfig.Size = New System.Drawing.Size(151, 32)
-        Me.btnUserConfig.TabIndex = 13
-        Me.btnUserConfig.Text = "Grundeinstellungen"
-        Me.btnUserConfig.UseVisualStyleBackColor = True
-        '
-        'btnAdminConfig
-        '
-        Me.btnAdminConfig.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.Editdatasetwithdesigner_8449
-        Me.btnAdminConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnAdminConfig.Location = New System.Drawing.Point(182, 12)
-        Me.btnAdminConfig.Name = "btnAdminConfig"
-        Me.btnAdminConfig.Size = New System.Drawing.Size(151, 32)
-        Me.btnAdminConfig.TabIndex = 13
-        Me.btnAdminConfig.Text = "Administration"
-        Me.btnAdminConfig.UseVisualStyleBackColor = True
-        '
         'ImageList1
         '
         Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
@@ -269,6 +212,71 @@ 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
+        Me.btnAdminConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnAdminConfig.Location = New System.Drawing.Point(182, 12)
+        Me.btnAdminConfig.Name = "btnAdminConfig"
+        Me.btnAdminConfig.Size = New System.Drawing.Size(151, 32)
+        Me.btnAdminConfig.TabIndex = 13
+        Me.btnAdminConfig.Text = "Administration"
+        Me.btnAdminConfig.UseVisualStyleBackColor = True
+        '
+        'btnUserConfig
+        '
+        Me.btnUserConfig.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.user_16xLG
+        Me.btnUserConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnUserConfig.Location = New System.Drawing.Point(15, 12)
+        Me.btnUserConfig.Name = "btnUserConfig"
+        Me.btnUserConfig.Size = New System.Drawing.Size(151, 32)
+        Me.btnUserConfig.TabIndex = 13
+        Me.btnUserConfig.Text = "Grundeinstellungen"
+        Me.btnUserConfig.UseVisualStyleBackColor = True
+        '
+        '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}"
+        '
+        '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"
+        '
+        '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"
+        '
         'frmStart
         '
         Me.Appearance.Options.UseFont = True
@@ -283,11 +291,11 @@ Partial Class frmStart
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        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(361, 293)
+        Me.MinimumSize = New System.Drawing.Size(347, 286)
         Me.Name = "frmStart"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "Clipboard Watcher"
@@ -327,4 +335,5 @@ Partial Class frmStart
     Friend WithEvents GroupBox2 As GroupBox
     Friend WithEvents labelRefresh As Label
     Friend WithEvents labelStatus As Label
+    Friend WithEvents tslblAppServer As ToolStripStatusLabel
 End Class

app/DD_Clipboard_Searcher/frmStart.resx

@@ -4663,7 +4663,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU
-        CwAAAk1TRnQBSQFMAgEBBQEAATgBAAE4AQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CwAAAk1TRnQBSQFMAgEBBQEAAUgBAAFIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -4717,7 +4717,7 @@
   <metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>817, 17</value>
   </metadata>
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="frmStart.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAAAAAAAEAIAAoIAQAFgAAACgAAAAAAQAAAAIAAAEAIAAAAAAAACAEABMLAAATCwAAAAAAAAAA
         AAAxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEk

app/DD_Clipboard_Searcher/frmStart.vb

@@ -57,7 +57,11 @@ Public Class frmStart
             ElseIf HotkeyFunctionKey = HOTKEY_SHIFT Then
                 Hotkey.AddHotKey(oKeyCode, ClassHotkey.ModfierKey.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER)
             End If
-
+            If APPSERVER_ACTIVE = True Then
+                tslblAppServer.Visible = True
+            Else
+                tslblAppServer.Visible = False
+            End If
         End If
 
         RefreshUI()

app/DD_Clipboard_Searcher/modCurrent.vb

@@ -2,6 +2,7 @@
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.ZooFlow.Params
+Imports DigitalData.Modules.EDMI.API
 
 Module modCurrent
     Public LogConfig As LogConfig
@@ -13,6 +14,7 @@ Module modCurrent
     Public ConfigManager As ConfigManager(Of ClassConfig)
 
     Public MyConnectionString As String = ""
+    Public CONNECTION_STRING_APP_SERVER As String = ""
     Public HotkeyFunctionKey As String = ClassConstants.HOTKEY_CTRL
     Public HotkeySearchKey As String = "d"
     Public LogErrorsOnly As Boolean = True
@@ -31,7 +33,7 @@ Module modCurrent
     Public USER_DATE_FORMAT As String
     Public USER_EXISTS = False
     Public USER_IN_MODULE = False
-
+    Public ADDITIONAL_TITLE As String = "CW"
     Public USERCOUNT_LOGGED_IN As Integer
 
     Public LICENSE_COUNT As Integer
@@ -76,5 +78,7 @@ Module modCurrent
     Public CurrSearchOpen As Boolean = False
 
     Public CurrMatchTreeView As New TreeView
+    Public _Client As Client
+    Public APPSERVER_ACTIVE As Boolean = False
 
 End Module

app/DD_Clipboard_Watcher.sln

@@ -5,8 +5,6 @@ VisualStudioVersion = 16.0.29728.190
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD_Clipboard_Watcher", "DD_Clipboard_Searcher\DD_Clipboard_Watcher.vbproj", "{09BC9934-1A38-4752-8873-639B42779CDB}"
 EndProject
-Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWix", "SetupWix\SetupWix.wixproj", "{15FC07B7-9FF7-4F14-9BAB-05674E20D839}"
-EndProject
 Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupVS19", "SetupVS19\SetupVS19.wixproj", "{9A7C1386-F66E-49DD-994C-F5935A0D196F}"
 EndProject
 Global
@@ -29,16 +27,6 @@ Global
 		{09BC9934-1A38-4752-8873-639B42779CDB}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{09BC9934-1A38-4752-8873-639B42779CDB}.Release|Mixed Platforms.Build.0 = Release|Any CPU
 		{09BC9934-1A38-4752-8873-639B42779CDB}.Release|x86.ActiveCfg = Release|Any CPU
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|Any CPU.ActiveCfg = Debug|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|Mixed Platforms.Build.0 = Debug|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|x86.ActiveCfg = Debug|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|x86.Build.0 = Debug|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|Any CPU.ActiveCfg = Release|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|Mixed Platforms.ActiveCfg = Release|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|Mixed Platforms.Build.0 = Release|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|x86.ActiveCfg = Release|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|x86.Build.0 = Release|x86
 		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Debug|Any CPU.ActiveCfg = Debug|x86
 		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
 		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Debug|Mixed Platforms.Build.0 = Debug|x86