AppStd/ClipboardWatcher
AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

merge

Browse Source
This commit is contained in:
Jonathan Jenne 2020-12-17 11:25:41 +01:00
commit 058fad6060
14 changed files with 196 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD_Clipboard_Searcher/App.config
View File

@ -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">

4
app/DD_Clipboard_Searcher/ClassConfig.vb
View File

@ -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

58
app/DD_Clipboard_Searcher/ClassInit.vb
View File

@ -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

4
app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj
View File

@ -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" />

12
app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb generated
View File

@ -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>

31
app/DD_Clipboard_Searcher/My Project/Resources.resx
View File

@ -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">
<value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="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 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="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">
<value>..\Resources\OpenFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="tiff" 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>
</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">
<value>..\Resources\PrepareProcess.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="server_Local_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\server_Local_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

9
app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb generated
View File

@ -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

3
app/DD_Clipboard_Searcher/My Project/Settings.settings
View File

@ -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>

BIN
app/DD_Clipboard_Searcher/Resources/server_Local_16xLG.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 169 B

147
app/DD_Clipboard_Searcher/frmStart.Designer.vb generated
View File

@ -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

4
app/DD_Clipboard_Searcher/frmStart.resx
View File

@ -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

6
app/DD_Clipboard_Searcher/frmStart.vb
View File

@ -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()

6
app/DD_Clipboard_Searcher/modCurrent.vb
View File

@ -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

12
app/DD_Clipboard_Watcher.sln
View File

@ -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