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

Compare commits

base: AppStd:489711fa9167014f17783f403371915208a1aab4
Branches Tags
AppStd:master
...
compare: AppStd:master
Branches Tags
AppStd:master

25 Commits
489711fa91 ... master

Author SHA1 Message Date
Developer01
1990fec285 Installer: Neue DLLs & Komponenten für .NET/3rd-Party 
Assembly-Version auf 2.7.8.1 erhöht. In Product.wxs wurden die Komponenten ThirdPartyLibs (u.a. Newtonsoft.Json, System.Text.Json, Oracle.ManagedDataAccess, FirebirdSql.Data.FirebirdClient, Microsoft.Identity.Client) und NetExtensionFacades (.NET Standard/Core Facade-Assemblies) ergänzt und im Haupt-Feature referenziert. Außerdem fehlende managed und native GdPicture.NET.14 DLLs hinzugefügt.
 2026-05-07 15:20:24 +02:00
Developer01
57745cc2aa Nicht benötigte Imports & protobuf-net entfernt, Bugfix 
In mehreren Dateien wurden überflüssige Imports (u.a. DD_LIB_Standards, DigitalData.Modules.Language.Utils) entfernt. In frmAdministration.vb wurde ein Fehler beim Aufruf von FreeUserProfile behoben (Klammern ergänzt). Die Datei protobuf-net.dll wurde aus Product.wxs entfernt.
 2026-05-06 11:46:31 +02:00
Developer01
b77c68f106 MergeCommit 2026-05-04 17:33:55 +02:00
Developer01
e6fcd5a3f9 MS NoLock und Referenzen nach TEst bei SWE 2026-05-04 17:32:24 +02:00
Developer01
bc75ea0d55 Referenzen glattgezogen und MSI Paket neu konfiguriert 2026-05-04 14:35:33 +02:00
OlgunR
29a9977b5b Assembly und Splashscreen aktualisiert 2025-10-07 12:49:31 +02:00
OlgunR
5bcae3416f Support-Link wird aus der Datenbank geholt - frmConfig_Basic 2025-10-07 09:05:20 +02:00
Developer01
45159b9ffc 2.7.4.0 2025-05-21 14:33:57 +02:00
Developer01
7d58223e3a Grundeinstellungen nicht abhängig von Anzahl definierter Sprachen 2025-05-21 14:29:32 +02:00
Developer01
6945585ca3 MS Anpassungen Views und Spalten 2025-02-20 08:26:52 +01:00
Developer01
81b0e44d45 MS 2.4.7.0 Anpassung Resultprüfung mit Modules Clipboardwatcher, Namen easyFLOW 2025-01-28 15:26:09 +01:00
Developer01
f33c903fa9 Ms 2025-01-24 13:14:21 +01:00
Developer01
98016b82a4 MS Style und Ribbon AllowMinimize = false 2025-01-24 12:56:59 +01:00
Developer01
550a9cd3ea MS Renaming 2024-09-05 17:09:00 +02:00
SchreiberM
ca01ff32ac MS Setup und fndd_login_user 2024-06-14 13:46:40 +02:00
SchreiberM
18e6f44a9e MS v2.7.3.0 Renaming easyFLOW, SplashScreen 2024-06-14 13:05:14 +02:00
Jonathan Jenne
07e96f7c4d Version 2.7.2.4 2023-10-13 08:32:29 +02:00
Jonathan Jenne
8adceb2811 Use Base classes, deprecate language 2023-10-13 08:31:35 +02:00
Jonathan Jenne
9700b781d6 Version 2.7.2.3 2023-05-16 16:46:59 +02:00
Jonathan Jenne
a0e9a743b6 Version 2.7.2.2 2023-05-16 11:48:29 +02:00
Jonathan Jenne
87af163838 Next test 2023-05-16 11:48:19 +02:00
Jonathan Jenne
5c44258125 Version 2.7.2.0 2023-05-15 16:34:15 +02:00
Jonathan Jenne
9a7ea86f2e Fix Cultures not applying, remove LIB_STANDARD dependency 2023-05-15 16:34:08 +02:00
SchreiberM
227f514afa MS Resx Main 2023-05-15 11:29:57 +02:00
SchreiberM
17a7e144fb MS iconset 2023-04-25 09:57:11 +02:00
66 changed files with 21585 additions and 15594 deletions
Expand all files Collapse all files

BIN
app/.vs/DD_Clipboard_Watcher/DesignTimeBuild/.dtbcache
View File

Binary file not shown.

65
app/DD_Clipboard_Searcher/App.config
View File

@@ -2,12 +2,12 @@
<configuration>
<configSections>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
<section name="DD_Clipboard_Watcher.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
<section name="easyFLOW.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
<section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection" requirePermission="false" />
</sectionGroup>
</configSections>
<applicationSettings>
<DD_Clipboard_Watcher.My.MySettings>
<easyFLOW.My.MySettings>
<setting name="UserConfig_Prefix" serializeAs="String">
<value />
</setting>
@@ -17,7 +17,10 @@
<setting name="GHOSTUSER" serializeAs="String">
<value />
</setting>
</DD_Clipboard_Watcher.My.MySettings>
<setting name="GDPICTURE_VERSION" serializeAs="String">
<value>11.2024</value>
</setting>
</easyFLOW.My.MySettings>
<DevExpress.LookAndFeel.Design.AppSettings>
<setting name="DefaultAppSkin" serializeAs="String">
<value>Skin/Office 2019 Colorful</value>
@@ -87,9 +90,7 @@
</DevExpress.LookAndFeel.Design.AppSettings>
</applicationSettings>
<connectionStrings>
<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" />
<add name="easyFLOW.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=172.24.12.44\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False" providerName="System.Data.SqlClient" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />
@@ -100,6 +101,58 @@
<assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GdPicture.NET.14" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-14.3.3.0" newVersion="14.3.3.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GdPicture.NET.14.Imaging" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-14.3.3.0" newVersion="14.3.3.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Oracle.ManagedDataAccess" publicKeyToken="89b483f429c47342" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.121.1.0" newVersion="4.121.1.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="protobuf-net" publicKeyToken="257b51d87d2e4d67" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-3.0.0.0" newVersion="3.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.2.0" newVersion="4.0.2.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-6.0.1.0" newVersion="6.0.1.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.4.0" newVersion="4.0.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Collections.Immutable" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-8.0.0.0" newVersion="8.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Numerics.Vectors" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.1.5.0" newVersion="4.1.5.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Security.Cryptography.Pkcs" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-8.0.0.1" newVersion="8.0.0.1" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.IO.Packaging" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-8.0.0.1" newVersion="8.0.0.1" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Text.Json" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-8.0.0.5" newVersion="8.0.0.5" />
</dependentAssembly>
</assemblyBinding>
</runtime>
</configuration>

2
app/DD_Clipboard_Searcher/ClassAutomation.vb
View File

@@ -33,7 +33,7 @@ Public Class ClassAutomation
FrameworkId = oElement.Current.FrameworkId
End If
Catch ex As Exception
Logger.Error(ex)
modCurrent._Logger.Error(ex)
End Try
End Sub
End Class

61
app/DD_Clipboard_Searcher/ClassDataASorDB.vb
View File

@@ -1,4 +1,5 @@
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DevExpress.Internal.WinApi.Windows.UI.Notifications
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DigitalData.Modules.Logging
Public Class ClassDataASorDB
@@ -22,7 +23,7 @@ Public Class ClassDataASorDB
Return GetDatatable(pSQL, "", "", "", "DB")
End Try
Else
oReturnDT = Database.GetDatatable(pSQL)
oReturnDT = MyDB_DDECM.GetDatatable(pSQL)
End If
Return oReturnDT
Catch ex As Exception
@@ -32,50 +33,51 @@ Public Class ClassDataASorDB
Public Function CheckModuleData()
Try
Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','CW',{1},'')", USER_USERNAME, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable
DT_CHECKUSER_MODULE = Database.GetDatatable(oSql)
Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_LOGIN_USER_MODULE As DataTable
DT_LOGIN_USER_MODULE = MyDB_DDECM.GetDatatable(oSql)
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
If DT_LOGIN_USER_MODULE.Rows.Count = 0 Then
modCurrent._Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
'ERROR_STATE = "NO USER"
MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
Return False
End If
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
Logger.Info(">> Login Username: " & USER_USERNAME, False)
Logger.Info(">> Login time: " & Now.ToString, False)
USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
USER_SURNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"))
USER_PRENAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME"))
USER_SHORTNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"))
USER_EMAIL = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"))
USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
If DT_LOGIN_USER_MODULE.Rows.Count = 1 Then
modCurrent._Logger.Info(">> Login Username: " & USER_USERNAME, False)
modCurrent._Logger.Info(">> Login time: " & Now.ToString, False)
USER_ID = DT_LOGIN_USER_MODULE.Rows(0).Item("USER_ID")
USER_SURNAME = IIf(IsDBNull(DT_LOGIN_USER_MODULE.Rows(0).Item("USER_SURNAME")), "", DT_LOGIN_USER_MODULE.Rows(0).Item("USER_SURNAME"))
USER_PRENAME = IIf(IsDBNull(DT_LOGIN_USER_MODULE.Rows(0).Item("USER_PRENAME")), "", DT_LOGIN_USER_MODULE.Rows(0).Item("USER_PRENAME"))
USER_SHORTNAME = IIf(IsDBNull(DT_LOGIN_USER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_LOGIN_USER_MODULE.Rows(0).Item("USER_SHORTNAME"))
USER_EMAIL = IIf(IsDBNull(DT_LOGIN_USER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_LOGIN_USER_MODULE.Rows(0).Item("USER_EMAIL"))
USER_LANGUAGE = DT_LOGIN_USER_MODULE.Rows(0).Item("USER_LANGUAGE")
USER_DATE_FORMAT = DT_LOGIN_USER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
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")
USER_IN_MODULE = DT_LOGIN_USER_MODULE.Rows(0).Item("MODULE_ACCESS")
USER_IS_ADMIN = DT_LOGIN_USER_MODULE.Rows(0).Item("IS_ADMIN")
ADDITIONAL_TITLE = DT_LOGIN_USER_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 = DT_LOGIN_USER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
USERCOUNT_LOGGED_IN += 1
Try
WORKING_MODE = DT_CHECKUSER_MODULE.Rows(0).Item("WORKING_MODE")
WORKING_MODE = DT_LOGIN_USER_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}")
modCurrent._Logger.Debug($"oWorkingMode Parameter: {oMode}")
If oMode = "NO_BASICCONF" Then
modCurrent._Logger.Info($"NO_BASICCONF will be set to false")
BASIC_CONF_VISIBLE = False
ElseIf oMode.StartsWith("NOMATCH_INFO") Then
Try
Dim oResult = oMode.Replace("NOMATCH_INFO=", "")
Logger.Info($"NOMATCH_INFO will be set to {oResult}")
modCurrent._Logger.Info($"NOMATCH_INFO will be set to {oResult}")
NOMATCH_INFO = CBool(oResult)
Catch ex As Exception
NOMATCH_INFO = False
@@ -83,6 +85,7 @@ Public Class ClassDataASorDB
ElseIf oMode.StartsWith("HotkeySearchKey") Then
Try
Dim oResult = oMode.Replace("HotkeySearchKey=", "")
modCurrent._Logger.Info($"HotkeySearchKey via function will be set to [{oResult}]")
HotkeySearchKey = oResult
HotkeySearchKey_via_Server = True
Catch ex As Exception
@@ -90,12 +93,12 @@ Public Class ClassDataASorDB
End Try
Else
Logger.Info($"Wrong oMode: {oMode}")
modCurrent._Logger.Info($"Wrong oMode [{oMode}]")
End If
Next
Return True
Else
Logger.Info(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
modCurrent._Logger.Info(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close()
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
@@ -103,14 +106,14 @@ Public Class ClassDataASorDB
Return False
End If
Catch ex As Exception
Logger.Error(ex)
modCurrent._Logger.Error(ex)
Return False
End Try
End Function
Public Sub Refresh_Connections()
Try
Dim oSql = String.Format("SELECT * FROM TBDD_CONNECTION")
Dim oSql = String.Format("SELECT * FROM TBDD_CONNECTION WITH (NOLOCK)")
Dim oDatatable As New MyDataset.TBDD_CONNECTIONDataTable()
Dim oResult As DataTable
oResult = GetDatatable(oSql, "TBDD_CONNECTION", "", "", "")
@@ -128,7 +131,7 @@ Public Class ClassDataASorDB
DT_CONNECTIONS = oDatatable
Catch ex As Exception
Logger.Error(ex)
modCurrent._Logger.Error(ex)
MsgBox("Unexpected Error in Refresh_Connections: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub

4
app/DD_Clipboard_Searcher/ClassDragDrop.vb
View File

@@ -66,13 +66,13 @@ Public Class ClassDragDrop
DevExpress.Utils.DXMouseEventArgs.GetMouseArgs(e).Handled = True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
End Try
End If
End If
End If
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Error in view_MouseMove: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub

3
app/DD_Clipboard_Searcher/ClassHotkey.vb
View File

@@ -1,5 +1,4 @@
Imports DD_LIB_Standards
Imports System.Text
Imports System.Text
Public Class ClassHotkey
Implements IMessageFilter

389
app/DD_Clipboard_Searcher/ClassInit.vb
View File

@@ -1,17 +1,18 @@
Imports System.ComponentModel
Imports DD_LIB_Standards
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language.Utils
Imports System.Globalization
Imports System.Threading
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports System.Globalization
Imports System.Threading
Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DigitalData.Modules.License
Imports DigitalData.Modules.Logging
Imports NLog
Public Class ClassInit
Public _lizenzManager As clsLicenseManager
Public _lizenzManager As LicenseManagerLegacy
Public _database As MSSQLServer
Private _DataASorDB As ClassDataASorDB
@@ -20,32 +21,17 @@ Public Class ClassInit
End Class
Public Sub InitLogger()
LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, Application.CompanyName, Application.ProductName)
Logger = LogConfig.GetLogger()
_DataASorDB = New ClassDataASorDB(LogConfig)
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
_LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, Application.CompanyName, Application.ProductName)
_Logger = _LogConfig.GetLogger()
_DataASorDB = New ClassDataASorDB(_LogConfig)
End Sub
Public Function InitDatabase()
clsDatabase.GUI = True
'clsDatabase.GUI = True
Dim Database_ECM As MSSQLServer = Nothing
Dim Database_IDB As MSSQLServer = Nothing
If MyConnectionString <> String.Empty Then
Database_ECM = New MSSQLServer(LogConfig, MyConnectionString)
Database_ECM = New MSSQLServer(_LogConfig, MyConnectionString)
Else
MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information)
ERROR_INIT = "NO DB-CONNECTION"
@@ -53,7 +39,7 @@ Public Class ClassInit
InitBasics()
End If
If Database_ECM.DBInitialized = True Then
DatabaseFallback = New DatabaseWithFallback(LogConfig, _Client, Database_ECM, Database_IDB)
DatabaseFallback = New DatabaseWithFallback(_LogConfig, _Client, Database_ECM, Database_IDB)
Return True
Else
ERROR_INIT = "FAILED DBCONNECTION"
@@ -71,22 +57,22 @@ Public Class ClassInit
End If
Try
Database = New MSSQLServer(LogConfig, MyConnectionString)
If Database.DBInitialized = True Then
MyDB_DDECM = New MSSQLServer(_LogConfig, MyConnectionString)
If MyDB_DDECM.DBInitialized = True Then
Return True
Else
Return False
End If
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
Public Function InitAppDatabase() As Boolean
Try
DatabaseAppServ = New MSSQLServer(LogConfig, MyConStringAppserv)
DatabaseAppServ = New MSSQLServer(_LogConfig, MyConStringAppserv)
If DatabaseAppServ.DBInitialized = True Then
Return True
Else
@@ -94,7 +80,7 @@ Public Class ClassInit
End If
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -110,12 +96,12 @@ Public Class ClassInit
If oConfigPrefix.Length > 0 Then
oUserAppDataPath = IO.Path.Combine(Application.UserAppDataPath, oConfigPrefix)
Dim oConfigUtils As New ConfigUtils(LogConfig)
Dim oConfigUtils As New ConfigUtils(_LogConfig)
If oConfigUtils.TestMigrationNeeded(oUserAppDataPath) Then
LogConfig.Debug = True
_LogConfig.Debug = True
oConfigUtils.MigrateConfig(oLegacyAppDataPath, oUserAppDataPath)
LogConfig.Debug = False
_LogConfig.Debug = False
End If
End If
@@ -125,21 +111,21 @@ Public Class ClassInit
oCommonAppDataPath = oStartupPath
End If
CONFIG = New ConfigManager(Of ClassConfig)(LogConfig, oUserAppDataPath, oCommonAppDataPath, oStartupPath)
CONFIG = New ConfigManager(Of ClassConfig)(_LogConfig, oUserAppDataPath, oCommonAppDataPath, oStartupPath)
With CONFIG.Config
MyConnectionString = DecryptConnectionString(.ConnectionString)
MyConnectionString = MSSQLServer.DecryptConnectionString(.ConnectionString)
LogErrorsOnly = .LogErrorsOnly
HotkeySearchKey = .HotkeySearchKey
LogConfig.Debug = Not .LogErrorsOnly
_LogConfig.Debug = Not .LogErrorsOnly
End With
If HotkeySearchKey_via_Server = False Then
HotkeyFunctionKey = CONFIG.Config.HotkeyFunctionKey
End If
If CONFIG.Config.ConnectionStringAppServer <> String.Empty Then
MyConStringAppserv = DecryptConnectionString(CONFIG.Config.ConnectionStringAppServer)
MyConStringAppserv = MSSQLServer.DecryptConnectionString(CONFIG.Config.ConnectionStringAppServer)
If InitAppDatabase() Then
Logger.Debug("ConnectionStringAppServer will be used")
_Logger.Debug("ConnectionStringAppServer will be used")
End If
End If
@@ -157,78 +143,56 @@ Public Class ClassInit
If oSplit.Length = 2 Then
oAppServerPort = oSplit(1)
End If
_Client = New Client(LogConfig, oAppServerAddress, oAppServerPort)
_Client = New Client(_LogConfig, oAppServerAddress, oAppServerPort)
If Not IsNothing(_Client) Then
If _Client.Connect() Then
APPSERVER_ACTIVE = True
Else
Logger.Warn($"###!!!APPServer [{CONFIG.Config.AppServerConfig.ToString}] could not be initialized ")
_Logger.Warn($"###!!!APPServer [{CONFIG.Config.AppServerConfig.ToString}] could not be initialized ")
End If
End If
Catch ex As Exception
Logger.Warn($"Could not initialize the AppServer: {ex.Message}")
_Logger.Warn($"Could not initialize the AppServer: {ex.Message}")
End Try
End If
Return True
End Function
Private Function DecryptConnectionString(EncryptedConnectionString As String) As String
Dim oBuilder As New SqlClient.SqlConnectionStringBuilder With {
.ConnectionString = EncryptedConnectionString
}
If oBuilder.ConnectionString.Contains("Password=") Then
Dim oPlaintextPassword As String
Dim oDecryptor As New clsEncryption("!35452didalog=")
Try
oPlaintextPassword = oDecryptor.DecryptData(oBuilder.Password)
Catch ex As Exception
Logger.Error(ex)
Logger.Debug("Password {0} could not be decrypted. Assuming plaintext password.")
oPlaintextPassword = oBuilder.Password
End Try
Return EncryptedConnectionString.Replace(oBuilder.Password, oPlaintextPassword)
Else
Return EncryptedConnectionString
End If
End Function
Public Function CheckModuleData()
Try
Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable
DT_CHECKUSER_MODULE = Database.GetDatatable(oSql)
DT_CHECKUSER_MODULE = MyDB_DDECM.GetDatatable(oSql)
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
_Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
'ERROR_STATE = "NO USER"
MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
Return False
End If
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
Logger.Info("Login Username: " & USER_ID, False)
Logger.Info("Login time: " & Now.ToShortDateString, False)
_Logger.Info("Login Username: " & USER_ID)
_Logger.Info("Login time: " & Now.ToShortDateString, False)
USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
USER_SURNAME = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"), "")
USER_PRENAME = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME"), "")
USER_SHORTNAME = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"), "")
USER_EMAIL = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"), "")
USER_SURNAME = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"), "")
USER_PRENAME = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME"), "")
USER_SHORTNAME = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"), "")
USER_EMAIL = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"), "")
USER_LANGUAGE = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE"), "de-DE")
USER_LANGUAGE = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE"), "de-DE")
USER_DATE_FORMAT = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT"), "dd.MM.yyyy")
USER_IN_MODULE = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS"), False)
USER_IS_ADMIN = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN"), False)
ADDITIONAL_TITLE = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("ADDITIONAL_TITLE"), "")
USER_DATE_FORMAT = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT"), "dd.MM.yyyy")
USER_IN_MODULE = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS"), False)
USER_IS_ADMIN = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN"), False)
ADDITIONAL_TITLE = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("ADDITIONAL_TITLE"), "")
Logger.Debug("User Id: [{0}]", USER_ID)
Logger.Debug("User Email: [{0}]", USER_EMAIL)
Logger.Debug("User Language: [{0}]", USER_LANGUAGE)
Logger.Debug("User Dateformat: [{0}]", USER_DATE_FORMAT)
_Logger.Debug("User Id: [{0}]", USER_ID)
_Logger.Debug("User Email: [{0}]", USER_EMAIL)
_Logger.Debug("User Language: [{0}]", USER_LANGUAGE)
_Logger.Debug("User Dateformat: [{0}]", USER_DATE_FORMAT)
If ADDITIONAL_TITLE = String.Empty Then
ADDITIONAL_TITLE = My.Application.Info.ProductName
@@ -243,54 +207,152 @@ Public Class ClassInit
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=", "")
Logger.Info($"NOMATCH_INFO: {oResult}")
NOMATCH_INFO = CBool(oResult)
Catch ex As Exception
NOMATCH_INFO = False
End Try
ElseIf oMode.StartsWith("HotkeySearchKey") Then
Try
Dim oResult = oMode.Replace("HotkeySearchKey=", "")
Logger.Info($"HotkeySearchKey: {oResult}")
HotkeySearchKey = oResult
HotkeySearchKey_via_Server = True
Catch ex As Exception
HotkeySearchKey = "d"
End Try
ElseIf oMode.StartsWith("NotifyMode") Then
Try
Dim oResult = oMode.Replace("NotifyMode=", "")
Logger.Info($"NotifyMode: {oResult}")
NOTIFY_MODE = oResult
Catch ex As Exception
End Try
Else
Logger.Info($"Wrong oMode: {oMode}")
End If
ProcessWorkingModeParameter(oMode)
Next
Return True
Else
Logger.Info(" - UserId '" & USER_ID & "' not listed in Useradministration!", False)
_Logger.Info(" - UserId '" & USER_ID & "' not listed in Useradministration!")
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close()
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
MsgBox(msg, MsgBoxStyle.Exclamation)
Return False
End If
oSql = "select CAT_TITLE,CAT_STRING from TBDD_CATALOG WITH (NOLOCK)"
Dim DT_CATALOG As DataTable
DT_CATALOG = MyDB_DDECM.GetDatatable(oSql)
For Each oROW As DataRow In DT_CATALOG.Rows
If oROW.Item("CAT_TITLE") = "WM_PRAEFIX" Then
WMSUFFIX = oROW.Item("CAT_STRING")
_Logger.Info($"WMSUFFIX from Catalog: {WMSUFFIX}")
End If
Next
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
Private Shared Sub ProcessWorkingModeParameter(oMode As String)
_Logger.Debug($"Processing Working Mode Parameter: {oMode}")
Select Case True
Case oMode = "DEBUG_LOG"
_LogConfig.Debug = True
_Logger.Info("DEBUG_LOG = True")
Case oMode = "IDBWITHWMFS"
SetBooleanParameter(IDB_USES_WMFILESTORE, True, "IDB_USES_WMFILESTORE", LogLevel.Info)
Case oMode = "NO_BASICCONF"
SetBooleanParameter(BASIC_CONF_VISIBLE, False, "BASIC_CONF_VISIBLE", LogLevel.Info)
Case oMode = "SYS_LOCKED_MAINTENANCE"
SetBooleanParameter(SYS_LOCKED_MAINTENANCE, True, "SYS_LOCKED_MAINTENANCE")
Case oMode.StartsWith("IDB_CONID!")
ProcessIDBConnection(oMode)
Case oMode.StartsWith("COPYWM2TEMP")
ProcessBooleanParameter(oMode, "COPYWM2TEMP", COPY_WMFILE_2TEMP, "COPY_WMFILE_2TEMP")
Case oMode.StartsWith("MAP_SHARE_DRIVE")
MAP_SHARE_DRIVE = ExtractParameterValue(oMode, "MAP_SHARE_DRIVE")
_Logger.Info($"MAP_SHARE_DRIVE = {MAP_SHARE_DRIVE}")
Case oMode.StartsWith("MAP_BLACKLIST")
MAP_BLACKLIST = ExtractParameterValue(oMode, "MAP_BLACKLIST")
_Logger.Info($"MAP_BLACKLIST = {MAP_BLACKLIST}")
' Fehlende Alt-Fälle ergänzt:
Case oMode.StartsWith("NOMATCH_INFO")
Try
Dim oResult = oMode.Replace("NOMATCH_INFO=", "")
_Logger.Info($"NOMATCH_INFO: {oResult}")
NOMATCH_INFO = CBool(oResult)
Catch ex As Exception
NOMATCH_INFO = False
End Try
Case oMode.StartsWith("HotkeySearchKey")
Try
Dim oResult = oMode.Replace("HotkeySearchKey=", "")
_Logger.Info($"HotkeySearchKey: {oResult}")
HotkeySearchKey = oResult
HotkeySearchKey_via_Server = True
Catch ex As Exception
HotkeySearchKey = "d"
End Try
Case oMode.StartsWith("NotifyMode")
Try
Dim oResult = oMode.Replace("NotifyMode=", "")
_Logger.Info($"NotifyMode: {oResult}")
NOTIFY_MODE = oResult
Catch ex As Exception
End Try
Case Else
_Logger.Info($"Unknown Working Mode Parameter: {oMode}")
End Select
End Sub
Private Shared Function ExtractParameterValue(parameterString As String, prefix As String) As String
Return parameterString.Replace($"{prefix}=", "")
End Function
Private Shared Sub SetBooleanParameter(ByRef target As Boolean, value As Boolean, paramName As String, Optional logLevel As LogLevel = LogLevel.Debug)
target = value
LogParameterValue(paramName, value.ToString(), logLevel)
End Sub
Private Shared Sub ProcessBooleanParameter(oMode As String, prefix As String, ByRef target As Boolean, paramName As String)
Dim value = ExtractParameterValue(oMode, prefix)
Try
target = CBool(value)
_Logger.Debug($"{paramName} = {target}")
Catch ex As Exception
target = False
_Logger.Warn($"Failed to parse {paramName}: {ex.Message}")
End Try
End Sub
Private Shared Sub ProcessIntegerParameter(oMode As String, prefix As String, ByRef target As Integer, paramName As String)
Dim value = ExtractParameterValue(oMode, prefix)
Try
target = CInt(value)
_Logger.Debug($"{paramName} = {target}")
Catch ex As Exception
_Logger.Warn($"Failed to parse {paramName}: {ex.Message}. Setting to 0")
target = 0
End Try
End Sub
Private Shared Sub ProcessIDBConnection(oMode As String)
Dim Database_IDB As MSSQLServer = Nothing
Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "")
Dim oConString = DatabaseFallback.GetConnectionString(CON_ID)
CONNECTION_STRING_IDB = oConString
Database_IDB = New MSSQLServer(_LogConfig, CONNECTION_STRING_IDB)
If Database_IDB.DBInitialized = True Then
IDB_ACTIVE = True
_Logger.Info($"IDB is active - IDB-Connection [{CON_ID}]")
DatabaseFallback.InitializeIDB(Database_IDB)
Else
IDB_ACTIVE = False
_Logger.Warn($"Failed to initialize IDB with Connection [{CON_ID}]")
End If
If CONNECTION_STRING_IDB <> "" AndAlso Database_IDB.DBInitialized = True Then
IDB_ACTIVE = True
_Logger.Debug("IDB already initialized and active")
Return
End If
End Sub
Private Shared Sub LogParameterValue(paramName As String, value As String, logLevel As LogLevel)
Select Case logLevel
Case LogLevel.Info
_Logger.Info($"{paramName} = {value}")
Case Else
_Logger.Debug($"{paramName} = {value}")
End Select
End Sub
Private Enum LogLevel
Debug
Info
End Enum
Public Function InitUserLogin(Optional _User As String = "") As Boolean
Try
If _User = "" Then
@@ -319,20 +381,20 @@ Public Class ClassInit
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
CLIENT_SELECTED = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
Else
Logger.Info("User '" & USER_ID & "' not related to a client", True)
_Logger.Info("User '" & USER_ID & "' not related to a client")
ERROR_INIT = "NO CLIENT"
'ERROR_STATE = "NO CLIENT"
Return False
End If
Else
Logger.Info("User '" & USER_ID & "' not related to a client", True)
_Logger.Info("User '" & USER_ID & "' not related to a client")
ERROR_INIT = "NO CLIENT"
'ERROR_STATE = "NO CLIENT"
Return False
End If
Catch ex As Exception
Logger.Info("Unexpected error in checking CLIENT: " & ex.Message)
_Logger.Info("Unexpected error in checking CLIENT: " & ex.Message)
CLIENT_SELECTED = 1
End Try
@@ -341,7 +403,7 @@ Public Class ClassInit
If USER_IN_MODULE = False Then
If USER_IS_ADMIN = False Then
Logger.Info("User: " & USER_ID & " not related to module!", False)
_Logger.Info("User: " & USER_ID & " not related to module!")
Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systemadministrator in Verbindung!")
If USER_LANGUAGE <> LANGUAGE_GERMAN Then
@@ -358,17 +420,19 @@ Public Class ClassInit
'Database.GetDatatable(sql)
Dim oSQL As String
oSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Clipboard-Watcher'"
Database.ExecuteNonQuery(oSQL)
MyDB_DDECM.ExecuteNonQuery(oSQL)
oSQL = $"INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES
({USER_ID},1,'Clipboard-Watcher','{My.Application.Info.Version.ToString}','Environment.MachineName')"
Database.ExecuteNonQuery(oSQL)
MyDB_DDECM.ExecuteNonQuery(oSQL)
If USER_IS_ADMIN = True Then
If ESC_Hidden = True Then
frmGhostUser.ShowDialog()
'frmLoginUserSelect.ShowDialog()
ESC_Hidden = False
If USER_USERNAME <> "" Then
If USER_USERNAME <> "" And GHOST_USERID <> 0 Then
_Logger.Info("GHOST USER ACTIVE")
InitUserLogin(USER_USERNAME)
End If
@@ -377,13 +441,18 @@ Public Class ClassInit
' pageAdmin.Visible = True
End If
WD_UNICODE = Database.GetScalarValue("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1")
GDPICTURE_LICENSE = Database.GetScalarValue("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'")
oSQL = "SELECT LANG_CODE FROM TBDD_GUI_LANGUAGE WHERE ACTIVE = 1 ORDER BY LANG_CODE"
WD_UNICODE = MyDB_DDECM.GetScalarValue("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WITH (NOLOCK) WHERE GUID = 1")
oSQL = $"SELECT COALESCE(MAX(LICENSE),'') FROM TBDD_3RD_PARTY_MODULES WITH (NOLOCK) WHERE NAME = 'GDPICTURE'
and VERSION = '{My.Settings.GDPICTURE_VERSION}' AND ACTIVE = 1"
GDPICTURE_LICENSE = MyDB_DDECM.GetScalarValue(oSQL)
If GDPICTURE_LICENSE = String.Empty Then
_Logger.Info($"ATTENTION: GDPICTURE VERSION is nothing. [{oSQL}]")
End If
oSQL = "SELECT LANG_CODE FROM TBDD_GUI_LANGUAGE WITH (NOLOCK) WHERE ACTIVE = 1 ORDER BY LANG_CODE"
BASEDATA_DT_LANGUAGE = Database.GetDatatable(oSQL)
BASEDATA_DT_LANGUAGE = MyDB_DDECM.GetDatatable(oSQL)
Logger.Debug(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
_Logger.Debug(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
Dim msg = String.Format("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
@@ -392,12 +461,12 @@ Public Class ClassInit
"Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!")
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
Logger.Info(" >> The number of logged Users (" & USERCOUNT_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False)
_Logger.Info(" >> The number of logged Users (" & USERCOUNT_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False)
If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen
oSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Clipboard-Watcher'"
Database.ExecuteNonQuery(oSQL)
Logger.Info(" - logged out the user", False)
MyDB_DDECM.ExecuteNonQuery(oSQL)
_Logger.Info(" - logged out the user", False)
Return False
End If
End If
@@ -405,7 +474,7 @@ Public Class ClassInit
Catch ex As Exception
Logger.Info("Unexpected Error in InitUserLogin: " & ex.Message, True)
_Logger.Info("Unexpected Error in InitUserLogin: " & ex.Message, True)
MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@@ -414,7 +483,7 @@ Public Class ClassInit
Public Sub Refresh_Connections()
Try
Dim oSql = String.Format("SELECT * FROM TBDD_CONNECTION")
Dim oSql = String.Format("SELECT * FROM TBDD_CONNECTION WITH (NOLOCK) ")
Dim oDatatable As New MyDataset.TBDD_CONNECTIONDataTable()
Dim oResult As DataTable
oDatatable = _DataASorDB.GetDatatable(oSql, "TBDD_CONNECTION", "", "", "")
@@ -432,34 +501,58 @@ Public Class ClassInit
DT_CONNECTIONS = oDatatable
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Unexpected Error in Refresh_Connections: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Shared Function Refresh_Profile_Links() As String
Dim oWhereClause = $"T1.USER_ID = {USER_ID} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {USER_ID}))"
Dim ProfileSQL As String = $"SELECT DISTINCT GUID, NAME,REGEX_EXPRESSION,COMMENT,PROC_NAME,PROFILE_TYPE FROM VWCW_USER_PROFILE T1 WHERE {oWhereClause}"
Dim oProcessSQL As String = $"SELECT DISTINCT T.GUID, T.PROFILE_ID,T.PROC_NAME FROM TBCW_PROFILE_PROCESS T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})"
Dim oWindowSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_WINDOW T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})"
Dim oControlSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_CONTROL T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})"
Dim ProfileSQL As String = $"SELECT DISTINCT PROFIL_ID [GUID], PROFIL_ID, PROFIL_NAME,REGEX_EXPRESSION,COMMENT,PROFILE_TYPE FROM VWCW_USER_PROFILE WITH (NOLOCK) WHERE USER_ID = {USER_ID}"
Dim oProcessSQL As String = $"SELECT DISTINCT T.GUID, T1.PROFIL_ID, T.PROC_NAME FROM TBCW_PROFILE_PROCESS T WITH (NOLOCK), VWCW_USER_PROFILE T1 WITH (NOLOCK) WHERE T.PROFILE_ID = T1.PROFIL_ID AND USER_ID = {USER_ID}"
Dim oWindowSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_WINDOW T WITH (NOLOCK) INNER JOIN VWCW_USER_PROFILE T1 WITH (NOLOCK) ON T.PROFILE_ID = T1.PROFIL_ID AND T1.USER_ID = T.USER_ID
WHERE T.USER_ID = {USER_ID}"
Dim oControlSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_CONTROL T WITH (NOLOCK) INNER JOIN VWCW_USER_PROFILE T1 WITH (NOLOCK)
ON T.PROFILE_ID = T1.PROFIL_ID AND T.USER_ID = T1.USER_ID WHERE T1.USER_ID = {USER_ID} "
Try
DT_USER_PROFILES = Database.GetDatatable(ProfileSQL)
DT_USER_PROFILES = MyDB_DDECM.GetDatatable(ProfileSQL)
If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then
If DT_USER_PROFILES Is Nothing Or DT_USER_PROFILES.Rows.Count = 0 Then
_Logger.Warn("Keine Profile für den User auswertbar. Konfiuration oder SQL prüfen: " + ProfileSQL)
Return S.Es_wurden_noch_keine_Profile_für_den_aktuellen_Benutzer_konfiguriert_
End If
DTPROFILE_REL_PROCESS = Database.GetDatatable(oProcessSQL)
DTPROFILE_REL_WINDOW = Database.GetDatatable(oWindowSQL)
DTPROFILE_REL_CONTROL = Database.GetDatatable(oControlSQL)
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Unexpected Error in Refresh_Profile_Links: " & ex.Message, MsgBoxStyle.Critical)
_Logger.Warn("SQL so far: " + ProfileSQL)
Return S.Fehler_bei_der_Aktualisierung_
End Try
Try
DTPROFILE_REL_PROCESS = MyDB_DDECM.GetDatatable(oProcessSQL)
Catch ex As Exception
_Logger.Error(ex)
MsgBox("Unexpected Error in Refresh_ProcessLinks: " & ex.Message, MsgBoxStyle.Critical)
_Logger.Warn("SQL so far: " + oProcessSQL)
Return S.Fehler_bei_der_Aktualisierung_
End Try
Try
DTPROFILE_REL_WINDOW = MyDB_DDECM.GetDatatable(oWindowSQL)
Catch ex As Exception
_Logger.Error(ex)
MsgBox("Unexpected Error in Refresh_windowLinks: " & ex.Message, MsgBoxStyle.Critical)
_Logger.Warn("SQL so far: " + oWindowSQL)
Return S.Fehler_bei_der_Aktualisierung_
End Try
Try
DTPROFILE_REL_CONTROL = MyDB_DDECM.GetDatatable(oControlSQL)
Catch ex As Exception
_Logger.Error(ex)
MsgBox("Unexpected Error in Refresh_ControlLinks: " & ex.Message, MsgBoxStyle.Critical)
_Logger.Warn("SQL so far: " + oControlSQL)
Return S.Fehler_bei_der_Aktualisierung_
End Try
Return S.Aktualisierung_erfolgreich_
End Function

5
app/DD_Clipboard_Searcher/ClassLayout.vb
View File

@@ -1,6 +1,5 @@
Imports System.Xml
Imports System.IO
Imports DD_LIB_Standards
Public Class ClassWindowLocation
@@ -47,7 +46,7 @@ Public Class ClassWindowLocation
Next
Catch notFoundEx As System.IO.FileNotFoundException
Logger.Info("Window Position & Size added for Form " & form.Name)
_Logger.Info("Window Position & Size added for Form " & form.Name)
Catch ex As Exception
MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -82,7 +81,7 @@ Public Class ClassWindowLocation
layout.Save(settings)
Catch notFoundEx As System.IO.FileNotFoundException
Logger.Info("Window Position & Size added for Form " & form.Name)
_Logger.Info("Window Position & Size added for Form " & form.Name)
Catch ex As Exception
MsgBox("Error while saving Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try

19
app/DD_Clipboard_Searcher/ClassLicense.vb
View File

@@ -1,14 +1,15 @@
Imports DD_LIB_Standards
Imports DigitalData.Modules.License
Public Class ClassLicense
Private Shared lic_string As String
Private Shared Sub Get_License(CLIENT_ID As Integer)
Try
Dim sql As String = String.Format("SELECT LICENSE FROM TBDD_MODULES WHERE SHORT_NAME = 'CW'")
lic_string = Database.GetScalarValue(sql)
Dim sql As String = String.Format("SELECT LICENSE FROM TBDD_MODULES WITH (NOLOCK) WHERE SHORT_NAME = 'CW'")
lic_string = MyDB_DDECM.GetScalarValue(sql)
Catch ex As Exception
Try
Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
lic_string = Database.GetScalarValue(sql)
Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WITH (NOLOCK) WHERE GUID = {0}", CLIENT_ID)
lic_string = MyDB_DDECM.GetScalarValue(sql)
Catch ex1 As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Get_License:")
End Try
@@ -17,7 +18,7 @@ Public Class ClassLicense
End Sub
Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
Try
Dim _lizenzManager = New clsLicenseManager("#DigitalData35452!#", "")
Dim _lizenzManager = New LicenseManagerLegacy(_LogConfig, "#DigitalData35452!#", "")
Get_License(CLIENT_ID)
If lic_string = "" Then
@@ -40,12 +41,12 @@ Public Class ClassLicense
Dim oLicDate As Date = Convert.ToDateTime(split(1), cultureInfo)
LICENSE_DATE = oLicDate
Catch ex As Exception
Logger.Warn($"Error in Convert Licdate1 [{split(1)}] {ex.Message}")
_Logger.Warn($"Error in Convert Licdate1 [{split(1)}] {ex.Message}")
End Try
Catch ex As Exception
LICENSE_DATE = split(1)
Logger.Warn($"Error in Convert Licdate1 [{split(1)}] {ex.Message}")
_Logger.Warn($"Error in Convert Licdate1 [{split(1)}] {ex.Message}")
End Try
End If
@@ -62,7 +63,7 @@ Public Class ClassLicense
Catch ex As Exception
Logger.Warn($"Error in Convert Licdate2 [{split(1)}] {ex.Message}")
_Logger.Warn($"Error in Convert Licdate2 [{split(1)}] {ex.Message}")
End Try
Catch ex As Exception

2
app/DD_Clipboard_Searcher/ClassWindow.vb
View File

@@ -29,7 +29,7 @@ Public Class ClipboardWatcher : Inherits NativeWindow : Implements IDisposable
Exit Sub
End If
If oWindow.ProcessName.StartsWith("DD_Clipboard_Watcher") Then
If oWindow.ProcessName.StartsWith("easyFLOW") Then
Exit Sub
End If

4
app/DD_Clipboard_Searcher/ClassWindowAPI.vb
View File

@@ -218,7 +218,7 @@ Public Class ClassWindowAPI
Return oControl
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Finally
AttachThreadInput(oThreadId, oMyThreadId, False)
End Try
@@ -226,7 +226,7 @@ Public Class ClassWindowAPI
Return Nothing
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return Nothing
End Try

2
app/DD_Clipboard_Searcher/ClassWindowAPIUtils.vb
View File

@@ -1,7 +1,7 @@
Imports System
Imports System.Text
Imports System.ComponentModel
Imports DD_Clipboard_Watcher.ClassWindowsAPINativeMethods
Imports easyFLOW.ClassWindowsAPINativeMethods
Public Class ClassWindowAPIUtils
Private Shared GetControlNameMessage As Integer = 0

6
app/DD_Clipboard_Searcher/ClassWindowsAPI.vb
View File

@@ -39,7 +39,7 @@ Public Class ClassWindowsAPI
Public Sub ShowFileProperties(FilePath As String)
If FilePath = String.Empty OrElse Not IO.File.Exists(FilePath) Then
Logger.Warn("Could not show file properties. FilePath '{0}' is invalid or does not exist.", FilePath)
modCurrent._Logger.Warn("Could not show file properties. FilePath '{0}' is invalid or does not exist.", FilePath)
Exit Sub
End If
@@ -53,8 +53,8 @@ Public Class ClassWindowsAPI
If Not ShellExecuteEx(oInfo) Then
Dim ex As New ComponentModel.Win32Exception(Marshal.GetLastWin32Error())
Logger.Warn("Could not show file properties. Reason: {0}", ex.Message)
Logger.Error(ex)
modCurrent._Logger.Warn("Could not show file properties. Reason: {0}", ex.Message)
modCurrent._Logger.Error(ex)
End If
End Sub

6
app/DD_Clipboard_Searcher/ClassClipboardWatcher.vb → app/DD_Clipboard_Searcher/ClasseasyFLOW.vb
View File

@@ -1,7 +1,7 @@
Imports System.ComponentModel
Imports System.Runtime.InteropServices
Public Class ClassClipboardWatcher : Inherits NativeWindow : Implements IDisposable
Public Class ClasseasyFLOW : Inherits NativeWindow : Implements IDisposable
<DllImport("user32", EntryPoint:="AddClipboardFormatListener")>
Private Shared Function AddClipboardFormatListener(ByVal hWnd As IntPtr) As Boolean
End Function
@@ -16,7 +16,7 @@ Public Class ClassClipboardWatcher : Inherits NativeWindow : Implements IDisposa
Private _IsDisposed As Boolean = False
'nur eine globale Instanz zulassen
Public Shared Singleton As New ClassClipboardWatcher
Public Shared Singleton As New ClasseasyFLOW
Const WM_CLIPBOARDUPDATE As Integer = &H31D
@@ -34,7 +34,7 @@ Public Class ClassClipboardWatcher : Inherits NativeWindow : Implements IDisposa
Exit Sub
End If
If oWindow.ProcessName.StartsWith("DD_Clipboard_Watcher") Then
If oWindow.ProcessName.StartsWith("easyFLOW") Then
Exit Sub
End If

BIN
app/DD_Clipboard_Searcher/DD_easyFLOW_ICON.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.4 KiB

8
app/DD_Clipboard_Searcher/My Project/Application.Designer.vb generated
View File

@@ -32,7 +32,13 @@ Namespace My
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.DD_Clipboard_Watcher.frmMain
Me.MainForm = Global.easyFLOW.frmMain
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
Me.MinimumSplashScreenDisplayTime = 0
Return MyBase.OnInitialize(commandLineArgs)
End Function
End Class
End Namespace

8
app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb
View File

@@ -8,11 +8,11 @@ Imports System.Runtime.InteropServices
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Search Flow")>
<Assembly: AssemblyTitle("easyFLOW")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Easy Flow")>
<Assembly: AssemblyCopyright("Copyright © 2022")>
<Assembly: AssemblyProduct("easyFLOW")>
<Assembly: AssemblyCopyright("easyFLOW 2026")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.7.0.0")>
<Assembly: AssemblyVersion("2.7.8.1")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

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

@@ -39,7 +39,7 @@ Namespace My.Resources
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Clipboard_Watcher.Resources", GetType(Resources).Assembly)
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("easyFLOW.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
@@ -150,6 +150,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property DD_easyFLOW_BOOT() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("DD_easyFLOW_BOOT", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

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

@@ -121,6 +121,9 @@
<data name="door_open" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\door_open.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>
<data name="doc" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -136,6 +139,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 +154,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>
@@ -181,6 +184,9 @@
<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>
<data name="search1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\txt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -205,8 +211,8 @@
<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>
@@ -217,9 +223,6 @@
<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>
@@ -232,8 +235,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="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="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="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>
@@ -268,7 +271,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="search1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="DD_easyFLOW_BOOT" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DD_easyFLOW_BOOT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

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

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.9.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -84,13 +84,22 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info="& _
"True;User ID=sa;Password=dd")> _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.44\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Inf"& _
"o=True;User ID=sa;Password=dd;Encrypt=False")> _
Public ReadOnly Property DD_ECMConnectionString() As String
Get
Return CType(Me("DD_ECMConnectionString"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("11.2024")> _
Public ReadOnly Property GDPICTURE_VERSION() As String
Get
Return CType(Me("GDPICTURE_VERSION"),String)
End Get
End Property
End Class
End Namespace
@@ -102,9 +111,9 @@ Namespace My
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.DD_Clipboard_Watcher.My.MySettings
Friend ReadOnly Property Settings() As Global.easyFLOW.My.MySettings
Get
Return Global.DD_Clipboard_Watcher.My.MySettings.Default
Return Global.easyFLOW.My.MySettings.Default
End Get
End Property
End Module

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

@@ -14,10 +14,13 @@
<Setting Name="DD_ECMConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
&lt;ConnectionString&gt;Data Source=172.24.12.44\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False&lt;/ConnectionString&gt;
&lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
<Value Profile="(Default)">Data Source=172.24.12.44\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False</Value>
</Setting>
<Setting Name="GDPICTURE_VERSION" Type="System.String" Scope="Application">
<Value Profile="(Default)">11.2024</Value>
</Setting>
</Settings>
</SettingsFile>

6
app/DD_Clipboard_Searcher/My Project/licenses.licx
View File

@@ -1 +1,7 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

16129
app/DD_Clipboard_Searcher/MyDataset.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

10
app/DD_Clipboard_Searcher/MyDataset.vb
View File

@@ -1,9 +1,13 @@
Partial Class MyDataset
Partial Public Class TBWH_PROFILE_TYPEDataTable
Private Sub TBWH_PROFILE_TYPEDataTable_TBWH_PROFILE_TYPERowChanging(sender As Object, e As TBWH_PROFILE_TYPERowChangeEvent) Handles Me.TBWH_PROFILE_TYPERowChanging
Partial Public Class MyDataset
End Sub
End Class
End Class
Namespace MyDatasetTableAdapters
Partial Public Class TBCW_PROF_DOC_SEARCHTableAdapter
Partial Public Class VWCW_GROUP_PROFILETableAdapter
End Class
End Namespace

36
app/DD_Clipboard_Searcher/MyDataset.xsc
View File

@@ -5,39 +5,5 @@
the code is regenerated.
</autogenerated>-->
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TableUISettings>
<TableUISetting Name="TBCW_PROFILES">
<ColumnUISettings>
<ColumnUISetting Name="ADDED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="PROFILE_TYPE">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
<TableUISetting Name="TBDD_CONNECTION">
<ColumnUISettings>
<ColumnUISetting Name="SQL_PROVIDER">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="DATENBANK">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
</TableUISettings>
<TableUISettings />
</DataSetUISetting>

1960
app/DD_Clipboard_Searcher/MyDataset.xsd
View File

File diff suppressed because it is too large Load Diff

98
app/DD_Clipboard_Searcher/MyDataset.xss
View File

@@ -4,70 +4,70 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-54" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBCW_PROFILES" ZOrder="19" X="14" Y="-44" Height="286" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="8" X="680" Y="299" Height="172" Width="271" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWUSER_PROFILE" ZOrder="18" X="1049" Y="11" Height="250" Width="191" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="142" />
<Shape ID="DesignTable:TBCW_PROFILE_PROCESS" ZOrder="16" X="20" Y="585" Height="172" Width="294" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="15" X="630" Y="-32" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_DOC_SEARCH" ZOrder="13" X="321" Y="20" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="6" X="336" Y="635" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWCW_GROUP_PROFILE" ZOrder="10" X="1252" Y="5" Height="248" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBCW_PROF_REL_WINDOW" ZOrder="5" X="10" Y="259" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="197" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="7" X="675" Y="483" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="2" X="330" Y="327" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_User" ZOrder="17" X="1221" Y="436" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="120" />
<Shape ID="DesignTable:TBWH_GROUP" ZOrder="11" X="1240" Y="329" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBWH_PROFILE_TYPE" ZOrder="9" X="1204" Y="609" Height="67" Width="190" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBWH_SEARCH_POSITION" ZOrder="1" X="990" Y="605" Height="67" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="19" X="144" Y="105" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="18" X="457" Y="111" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_DOC_SEARCH" ZOrder="15" X="780" Y="112" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="17" X="1114" Y="121" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_REL_WINDOW" ZOrder="7" X="1115" Y="473" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBCW_PROFILE_PROCESS" ZOrder="1" X="400" Y="507" Height="191" Width="291" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBCW_PROFILES" ZOrder="14" X="638" Y="719" Height="267" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="11" X="1113" Y="778" Height="172" Width="269" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="10" X="1424" Y="152" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWCW_USER_PROFILE" ZOrder="2" X="55" Y="290" Height="286" Width="274" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:VWCW_GROUP_PROFILE" ZOrder="3" X="77" Y="757" Height="229" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBWH_SEARCH_POSITION" ZOrder="9" X="1476" Y="683" Height="106" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
<Shape ID="DesignTable:TBWH_PROFILE_TYPE" ZOrder="6" X="1479" Y="798" Height="182" Width="190" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBWH_User" ZOrder="5" X="1430" Y="466" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="120" />
<Shape ID="DesignTable:TBWH_GROUP" ZOrder="4" X="1501" Y="596" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBCW_PROF_DATA_SEARCH_PROF_IF" ZOrder="14" LineWidth="11">
<Connector ID="DesignRelation:FK_TBCW_PROF_REL_CONTROL_WINDOW_ID" ZOrder="16" LineWidth="11">
<RoutePoints>
<Point>
<X>254</X>
<Y>-23</Y>
<X>1268</X>
<Y>473</Y>
</Point>
<Point>
<X>630</X>
<Y>-23</Y>
<X>1268</X>
<Y>426</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBCW_PROF_REL_WINDOW_PROCESS_ID" ZOrder="8" LineWidth="11">
<RoutePoints>
<Point>
<X>691</X>
<Y>553</Y>
</Point>
<Point>
<X>1115</X>
<Y>553</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBCW_PROF_DATA_SEARCH_PROF_IF" ZOrder="13" LineWidth="11">
<RoutePoints>
<Point>
<X>700</X>
<Y>719</Y>
</Point>
<Point>
<X>700</X>
<Y>416</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBCW_PROF_DOC_SEARCH_PROF_IF" ZOrder="12" LineWidth="11">
<RoutePoints>
<Point>
<X>254</X>
<Y>61</Y>
<X>789</X>
<Y>719</Y>
</Point>
<Point>
<X>321</X>
<Y>61</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_WINDOW_ID" ZOrder="4" LineWidth="11">
<RoutePoints>
<Point>
<X>310</X>
<Y>453</Y>
</Point>
<Point>
<X>330</X>
<Y>453</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_PROCESS_ID" ZOrder="3" LineWidth="11">
<RoutePoints>
<Point>
<X>165</X>
<Y>585</Y>
</Point>
<Point>
<X>165</X>
<Y>507</Y>
<X>789</X>
<Y>417</Y>
</Point>
</RoutePoints>
</Connector>

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 20 KiB

12
app/DD_Clipboard_Searcher/Strings/frmMain_Strings.Designer.vb generated
View File

@@ -43,7 +43,7 @@ Namespace My.Resources
Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Clipboard_Watcher.frmMain_Strings", GetType(frmMain_Strings).Assembly)
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("easyFLOW.frmMain_Strings", GetType(frmMain_Strings).Assembly)
resourceMan = temp
End If
Return resourceMan
@@ -83,7 +83,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Clipboard-Watcher starten ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die easyFLOW starten ähnelt.
'''</summary>
Friend Shared ReadOnly Property Clipboard_Watcher_starten() As String
Get
@@ -92,7 +92,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Clipboard-Watcher stoppen ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die easyFLOW stoppen ähnelt.
'''</summary>
Friend Shared ReadOnly Property Clipboard_Watcher_stoppen() As String
Get
@@ -101,7 +101,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Clipboard-Watcher wurde deaktiviert! ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die easyFLOW wurde deaktiviert! ähnelt.
'''</summary>
Friend Shared ReadOnly Property Clipboard_Watcher_wurde_deaktiviert_() As String
Get
@@ -110,7 +110,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Clipboard-Watcher wurde wieder aktiviert! ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die easyFLOW wurde wieder aktiviert! ähnelt.
'''</summary>
Friend Shared ReadOnly Property Clipboard_Watcher_wurde_wieder_aktiviert_() As String
Get
@@ -202,7 +202,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Wollen Sie Clipboard-Watcher wirklich beenden? ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die Wollen Sie easyFLOW wirklich beenden? ähnelt.
'''</summary>
Friend Shared ReadOnly Property Wollen_Sie_Clipboard_Watcher_wirklich_beenden_() As String
Get

10
app/DD_Clipboard_Searcher/Strings/frmMain_Strings.en.resx
View File

@@ -124,16 +124,16 @@
<value>Refresh successful.</value>
</data>
<data name="Clipboard-Watcher starten" xml:space="preserve">
<value>Start Clipboard-Watcher</value>
<value>Start easyFLOW</value>
</data>
<data name="Clipboard-Watcher stoppen" xml:space="preserve">
<value>Stop Clipboard-Watcher</value>
<value>Stop easyFLOW</value>
</data>
<data name="Clipboard-Watcher wurde deaktiviert!" xml:space="preserve">
<value>Clipboard-Watcher was deactivated!</value>
<value>easyFLOW was deactivated!</value>
</data>
<data name="Clipboard-Watcher wurde wieder aktiviert!" xml:space="preserve">
<value>Clipboard-Watcher was activated again!</value>
<value>easyFLOW was activated again!</value>
</data>
<data name="Die Benutzerkonfiguration konnte nicht erfolgreich durchgeführt werden!{0}Grund: {1}{2}Bitte kontaktieren sie Ihren Administrator!" xml:space="preserve">
<value>User Configuration could not be performed successfully!</value>
@@ -163,6 +163,6 @@
<value>You are not related to a mandator{0}Please contact your administrator.</value>
</data>
<data name="Wollen Sie Clipboard-Watcher wirklich beenden?" xml:space="preserve">
<value>Do you really want to quit Clipboard-Watcher?</value>
<value>Do you really want to quit easyFLOW?</value>
</data>
</root>

10
app/DD_Clipboard_Searcher/Strings/frmMain_Strings.fr.resx
View File

@@ -124,16 +124,16 @@
<value>Mise à jour réussie.</value>
</data>
<data name="Clipboard-Watcher starten" xml:space="preserve">
<value>Démarrer Clipboard-Watcher</value>
<value>Démarrer easyFLOW</value>
</data>
<data name="Clipboard-Watcher stoppen" xml:space="preserve">
<value>Arrêt Clipboard-Watcher</value>
<value>Arrêt easyFLOW</value>
</data>
<data name="Clipboard-Watcher wurde deaktiviert!" xml:space="preserve">
<value>Clipboard-Watcher a été désactivé !</value>
<value>easyFLOW a été désactivé !</value>
</data>
<data name="Clipboard-Watcher wurde wieder aktiviert!" xml:space="preserve">
<value>Clipboard-Watcher a été réactivé !</value>
<value>easyFLOW a été réactivé !</value>
</data>
<data name="Die Benutzerkonfiguration konnte nicht erfolgreich durchgeführt werden!{0}Grund: {1}{2}Bitte kontaktieren sie Ihren Administrator!" xml:space="preserve">
<value>La configuration de l'utilisateur n'a pas pu être effectuée avec succès !</value>
@@ -163,6 +163,6 @@
<value>Vous n'êtes pas lié à un mandataire{0}Veuillez contacter votre administrateur.</value>
</data>
<data name="Wollen Sie Clipboard-Watcher wirklich beenden?" xml:space="preserve">
<value>Voulez-vous vraiment quitter Clipboard-Watcher ?</value>
<value>Voulez-vous vraiment quitter easyFLOW ?</value>
</data>
</root>

10
app/DD_Clipboard_Searcher/Strings/frmMain_Strings.resx
View File

@@ -124,16 +124,16 @@
<value>Aktualisierung erfolgreich.</value>
</data>
<data name="Clipboard-Watcher starten" xml:space="preserve">
<value>Clipboard-Watcher starten</value>
<value>easyFLOW starten</value>
</data>
<data name="Clipboard-Watcher stoppen" xml:space="preserve">
<value>Clipboard-Watcher stoppen</value>
<value>easyFLOW stoppen</value>
</data>
<data name="Clipboard-Watcher wurde deaktiviert!" xml:space="preserve">
<value>Clipboard-Watcher wurde deaktiviert!</value>
<value>easyFLOW wurde deaktiviert!</value>
</data>
<data name="Clipboard-Watcher wurde wieder aktiviert!" xml:space="preserve">
<value>Clipboard-Watcher wurde wieder aktiviert!</value>
<value>easyFLOW wurde wieder aktiviert!</value>
</data>
<data name="Die Benutzerkonfiguration konnte nicht erfolgreich durchgeführt werden!{0}Grund: {1}{2}Bitte kontaktieren sie Ihren Administrator!" xml:space="preserve">
<value>Die Benutzerkonfiguration konnte nicht erfolgreich durchgeführt werden!{0}Grund: {1}{2}Bitte kontaktieren sie Ihren Administrator!</value>
@@ -163,6 +163,6 @@
<value>Sie sind keinem Mandanten zugewiesen.{0}Bitte wenden Sie sich an Ihren Administrator!</value>
</data>
<data name="Wollen Sie Clipboard-Watcher wirklich beenden?" xml:space="preserve">
<value>Wollen Sie Clipboard-Watcher wirklich beenden?</value>
<value>Wollen Sie easyFLOW wirklich beenden?</value>
</data>
</root>

16
app/DD_Clipboard_Searcher/clsPatterns.vb
View File

@@ -60,8 +60,8 @@ Public Class clsPatterns
Return result
Catch ex As Exception
Logger.Error(ex)
Logger.Info("Error in ReplaceAllValues:" & ex.Message)
_Logger.Error(ex)
_Logger.Info("Error in ReplaceAllValues:" & ex.Message)
End Try
End Function
@@ -96,8 +96,8 @@ Public Class clsPatterns
Return result
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in ReplaceInternalValues:" & ex.Message)
_Logger.Error(ex)
_Logger.Info("Error in ReplaceInternalValues:" & ex.Message)
End Try
End Function
@@ -131,8 +131,8 @@ Public Class clsPatterns
Return result
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in ReplaceUserValues:" & ex.Message)
_Logger.Error(ex)
_Logger.Info("Error in ReplaceUserValues:" & ex.Message)
End Try
End Function
@@ -159,8 +159,8 @@ Public Class clsPatterns
Return result
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in ReplaceControlValues:" & ex.Message)
_Logger.Error(ex)
_Logger.Info("Error in ReplaceControlValues:" & ex.Message)
End Try
End Function

4
app/DD_Clipboard_Searcher/clsWMDocGrid.vb
View File

@@ -42,7 +42,7 @@ Public Class clsWMDocGrid
DTDocuments = oNewDataTable
Return True
Catch ex As Exception
LOGGER.Error(ex)
_Logger.Error(ex)
DTDocuments = Nothing
Return False
End Try
@@ -53,7 +53,7 @@ Public Class clsWMDocGrid
'_Helper = New ClassHelper
SELECTED_DOC_ID = 0
If Init_Table() = True Then
LOGGER.Debug("gridView.SelectedRowsCount: " & ActiveDocGrid.SelectedRowsCount.ToString)
_Logger.Debug("gridView.SelectedRowsCount: " & ActiveDocGrid.SelectedRowsCount.ToString)
If ActiveDocGrid.SelectedRowsCount >= 1 Then
DTDocuments.Clear()
For Each row In ActiveDocGrid.GetSelectedRows

14
app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb generated
View File

@@ -26,7 +26,7 @@ Partial Class ctrlApplicationAssignment
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
Me.GridControl_Window = New DevExpress.XtraGrid.GridControl()
Me.TBCW_PROF_REL_WINDOWBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset = New DD_Clipboard_Watcher.MyDataset()
Me.MyDataset = New easyFLOW.MyDataset()
Me.GridView_Window = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colDESCRIPTION = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -47,11 +47,11 @@ Partial Class ctrlApplicationAssignment
Me.GridViewProcessProfile = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colPROC_NAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.TBCW_PROFILE_PROCESSTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILE_PROCESSTableAdapter()
Me.TBCW_PROF_REL_WINDOWTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter()
Me.TBCW_PROF_DOC_SEARCHTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter()
Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager()
Me.TBCW_PROF_REL_CONTROLTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter()
Me.TBCW_PROFILE_PROCESSTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROFILE_PROCESSTableAdapter()
Me.TBCW_PROF_REL_WINDOWTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter()
Me.TBCW_PROF_DOC_SEARCHTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter()
Me.TableAdapterManager = New easyFLOW.MyDatasetTableAdapters.TableAdapterManager()
Me.TBCW_PROF_REL_CONTROLTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter()
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer3.Panel1.SuspendLayout()
Me.SplitContainer3.Panel2.SuspendLayout()
@@ -313,7 +313,7 @@ Partial Class ctrlApplicationAssignment
Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Nothing
Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
Me.TableAdapterManager.UpdateOrder = easyFLOW.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'TBCW_PROF_REL_CONTROLTableAdapter
'

53
app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb
View File

@@ -1,5 +1,4 @@
Imports DD_LIB_Standards
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
@@ -40,7 +39,7 @@ Public Class ctrlApplicationAssignment
SelectedProfileId = ProfileId
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -49,7 +48,7 @@ Public Class ctrlApplicationAssignment
TBCW_PROFILE_PROCESSTableAdapter.Fill(MyDataset.TBCW_PROFILE_PROCESS, ProfileId)
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -70,13 +69,13 @@ Public Class ctrlApplicationAssignment
If oProcessName <> "" Then
Dim oSQL = String.Format("INSERT INTO TBCW_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", ProfileId, oProcessName, Environment.UserName)
If Database.ExecuteNonQuery(oSQL) = False Then
If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
Return False
Else
Dim oNewProcessId = Database.GetScalarValue("SELECT MAX(GUID) FROM TBCW_PROFILE_PROCESS")
Dim oNewProcessId = MyDB_DDECM.GetScalarValue("SELECT MAX(GUID) FROM TBCW_PROFILE_PROCESS WITH (NOLOCK)")
oSQL = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (DESCRIPTION, REGEX, ADDED_WHO, PROCESS_ID) VALUES ('{0}', '^{1}$', '{2}' ,{3})", oWindowTitle, oWindowTitle, Environment.UserName, oNewProcessId)
If Database.ExecuteNonQuery(oSQL) = False Then
If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
Return False
End If
End If
@@ -85,7 +84,7 @@ Public Class ctrlApplicationAssignment
Process_Load(SelectedProfileId)
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
Else
@@ -97,14 +96,14 @@ Public Class ctrlApplicationAssignment
Try
Dim oProcessId = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID"))
Dim oSQL = String.Format("EXEC PRCW_DELETE_PROCESS {0}", oProcessId)
If Database.ExecuteNonQuery(oSQL) Then
If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
Process_Load(SelectedProfileId)
Return True
End If
Return False
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -115,7 +114,7 @@ Public Class ctrlApplicationAssignment
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -147,7 +146,7 @@ Public Class ctrlApplicationAssignment
If oWindowTitle <> "" Then
Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (DESCRIPTION, REGEX, ADDED_WHO,PROCESS_ID) VALUES ('{0}', '^{1}$','{2}',{3})", oWindowTitle, oWindowTitle, Environment.UserName, CURRENT_PROCESSID)
If Database.ExecuteNonQuery(insert) = False Then
If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
Return False
End If
End If
@@ -155,7 +154,7 @@ Public Class ctrlApplicationAssignment
Window_Load()
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
Else
@@ -167,14 +166,14 @@ Public Class ctrlApplicationAssignment
Try
Dim oGuid = GridView_Window.GetFocusedRowCellValue(GridView_Window.Columns("GUID"))
Dim oSQL = String.Format("EXEC PRCW_DELETE_WINDOW {0}", oGuid)
If Database.ExecuteNonQuery(oSQL) Then
If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
Process_Load(SelectedProfileId)
Return True
End If
Return False
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -191,7 +190,7 @@ Public Class ctrlApplicationAssignment
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -203,13 +202,13 @@ Public Class ctrlApplicationAssignment
If oRow IsNot Nothing Then
Dim oRegex = oRow.Item("REGEX")
Dim oForm As New frmRegexEditor(oRegex)
Dim oForm As New DigitalData.Controls.RegexEditor.frmRegexEditor(oRegex)
If oForm.ShowDialog() = DialogResult.OK Then
oRow.Item("REGEX") = oForm.RegexString
End If
End If
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -220,7 +219,7 @@ Public Class ctrlApplicationAssignment
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -246,7 +245,7 @@ Public Class ctrlApplicationAssignment
{oForm.TopLeft.Top}, {oForm.TopLeft.Left}, {oForm.TopLeft.Right}, {oForm.TopLeft.Bottom}
)"
If Database.ExecuteNonQuery(oSql) = False Then
If MyDB_DDECM.ExecuteNonQuery(oSql) = False Then
Return False
End If
@@ -254,7 +253,7 @@ Public Class ctrlApplicationAssignment
Control_Load()
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
Else
@@ -336,7 +335,7 @@ Public Class ctrlApplicationAssignment
WHERE GUID = {SelectedControlId}
"
If Database.ExecuteNonQuery(oSql) = False Then
If MyDB_DDECM.ExecuteNonQuery(oSql) = False Then
Return False
End If
@@ -344,7 +343,7 @@ Public Class ctrlApplicationAssignment
Control_Load()
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
Else
@@ -363,7 +362,7 @@ Public Class ctrlApplicationAssignment
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -371,15 +370,15 @@ Public Class ctrlApplicationAssignment
Public Function Control_DeleteAssignment() As Boolean
Try
Dim oGuid = GridView_Control.GetFocusedRowCellValue(GridView_Control.Columns("GUID"))
Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_CONTROL WHERE GUID = {0}", oGuid)
If Database.ExecuteNonQuery(oSQL) Then
Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_CONTROL WITH (NOLOCK) WHERE GUID = {0}", oGuid)
If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
Window_Load()
Return True
End If
Return False
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function

225
app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj → app/DD_Clipboard_Searcher/easyFLOW.vbproj
View File

@@ -6,14 +6,15 @@
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{09BC9934-1A38-4752-8873-639B42779CDB}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>DD_Clipboard_Watcher.My.MyApplication</StartupObject>
<RootNamespace>DD_Clipboard_Watcher</RootNamespace>
<AssemblyName>DD_Clipboard_Watcher</AssemblyName>
<StartupObject>easyFLOW.My.MyApplication</StartupObject>
<RootNamespace>easyFLOW</RootNamespace>
<AssemblyName>easyFLOW</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>false</AutoGenerateBindingRedirects>
<TargetFrameworkProfile />
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
@@ -26,9 +27,10 @@
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
@@ -37,7 +39,7 @@
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>DD_Clipboard_Watcher.xml</DocumentationFile>
<DocumentationFile>easyFLOW.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
@@ -47,7 +49,7 @@
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>DD_Clipboard_Watcher.xml</DocumentationFile>
<DocumentationFile>easyFLOW.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
@@ -63,15 +65,15 @@
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>search.ico</ApplicationIcon>
<ApplicationIcon>DD_easyFLOW_ICON.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="DD_LIB_Standards">
<HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath>
<Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
<HintPath>..\packages\BouncyCastle.Cryptography.2.5.0\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Images.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@@ -96,60 +98,154 @@
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DigitalData.Controls.DocumentViewer">
<HintPath>..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Controls.RegexEditor">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Digital Data\Controls\DigitalData.Controls.RegexEditor.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.RegexEditor\bin\Debug\DigitalData.Controls.RegexEditor.dll</HintPath>
</Reference>
<Reference Include="DigitalData.GUIs.ClipboardWatcher, Version=1.5.0.0, Culture=neutral, processorArchitecture=MSIL">
<Reference Include="DigitalData.GUIs.ClipboardWatcher, Version=1.6.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\GUIs.ClipboardWatcher\bin\Debug\DigitalData.GUIs.ClipboardWatcher.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\GUIs.ClipboardWatcher\bin\Debug\DigitalData.GUIs.ClipboardWatcher.dll</HintPath>
</Reference>
<Reference Include="DigitalData.GUIs.Common">
<HintPath>..\..\..\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Base">
<HintPath>..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.EDMI.API">
<HintPath>..\..\..\DDModules\EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Encryption">
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Encryption\bin\Debug\DigitalData.Modules.Encryption.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Filesystem">
<HintPath>..\..\..\DDModules\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Language">
<HintPath>..\..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
<Reference Include="DigitalData.Modules.License">
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\License\bin\Debug\DigitalData.Modules.License.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Patterns">
<HintPath>..\..\..\DDModules\Patterns\bin\Debug\DigitalData.Modules.Patterns.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Patterns\bin\Debug\DigitalData.Modules.Patterns.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Windows">
<HintPath>..\..\..\DDModules\Windows\bin\Debug\DigitalData.Modules.Windows.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Windows\bin\Debug\DigitalData.Modules.Windows.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.ZooFlow">
<HintPath>..\..\..\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14">
<HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll</HintPath>
<Reference Include="DocumentFormat.OpenXml, Version=3.2.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
<HintPath>..\packages\DocumentFormat.OpenXml.3.2.0\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
</Reference>
<Reference Include="DocumentFormat.OpenXml.Framework, Version=3.2.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
<HintPath>..\packages\DocumentFormat.OpenXml.Framework.3.2.0\lib\net46\DocumentFormat.OpenXml.Framework.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.barcode.1d.writer, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.barcode.2d.writer, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.2d.writer.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.CAD, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.CAD.DWG, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.DWG.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Common, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Common.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Document, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Document.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Email, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Email.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.HTML, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.HTML.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Imaging, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Imaging.Formats, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Imaging.Formats.Conversion, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.Conversion.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Imaging.Rendering, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Rendering.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.MSOfficeBinary, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.MSOfficeBinary.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.OpenDocument, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenDocument.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.OpenXML, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.OpenXML.Templating, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.Templating.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.PDF, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.PDF.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.RTF, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.RTF.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.SVG, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.SVG.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.wia.gateway, Version=1.0.0.0, Culture=neutral, PublicKeyToken=6973b5c22dcf45f7, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.wia.gateway.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=8.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.8.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json.Bson, Version=1.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.Bson.1.0.2\lib\net45\Newtonsoft.Json.Bson.dll</HintPath>
</Reference>
<Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.5.0.2\lib\net46\NLog.dll</HintPath>
</Reference>
<Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
<Reference Include="OpenMcdf, Version=2.4.1.0, Culture=neutral, PublicKeyToken=fdbb1629d7c00800, processorArchitecture=MSIL">
<HintPath>..\packages\OpenMcdf.2.4.1\lib\net40\OpenMcdf.dll</HintPath>
</Reference>
<Reference Include="protobuf-net, Version=3.0.0.0, Culture=neutral, PublicKeyToken=257b51d87d2e4d67, processorArchitecture=MSIL">
<HintPath>..\packages\protobuf-net.3.2.46\lib\net462\protobuf-net.dll</HintPath>
</Reference>
<Reference Include="protobuf-net.Core, Version=3.0.0.0, Culture=neutral, PublicKeyToken=257b51d87d2e4d67, processorArchitecture=MSIL">
<HintPath>..\packages\protobuf-net.Core.3.2.46\lib\net462\protobuf-net.Core.dll</HintPath>
</Reference>
<Reference Include="RtfPipe, Version=2.0.7677.4303, Culture=neutral, PublicKeyToken=5f6ab4ce530296d2, processorArchitecture=MSIL">
<HintPath>..\packages\RtfPipe.2.0.7677.4303\lib\net45\RtfPipe.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Buffers, Version=4.0.4.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Buffers.4.6.0\lib\net462\System.Buffers.dll</HintPath>
</Reference>
<Reference Include="System.CodeDom, Version=8.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.CodeDom.8.0.0\lib\net462\System.CodeDom.dll</HintPath>
</Reference>
<Reference Include="System.Collections.Immutable, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Collections.Immutable.8.0.0\lib\net462\System.Collections.Immutable.dll</HintPath>
</Reference>
<Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
@@ -157,11 +253,44 @@
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.IO.Compression" />
<Reference Include="System.IO.Packaging, Version=8.0.0.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.IO.Packaging.8.0.1\lib\net462\System.IO.Packaging.dll</HintPath>
</Reference>
<Reference Include="System.Management" />
<Reference Include="System.Memory, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Memory.4.6.0\lib\net462\System.Memory.dll</HintPath>
</Reference>
<Reference Include="System.Net.Http" />
<Reference Include="System.Net.Http.Formatting, Version=6.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNet.WebApi.Client.6.0.0\lib\net45\System.Net.Http.Formatting.dll</HintPath>
</Reference>
<Reference Include="System.Numerics" />
<Reference Include="System.Numerics.Vectors, Version=4.1.5.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Numerics.Vectors.4.6.0\lib\net462\System.Numerics.Vectors.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.1.0\lib\net462\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.Runtime.Serialization.Formatters.Soap" />
<Reference Include="System.Security" />
<Reference Include="System.Security.Cryptography.Pkcs, Version=8.0.0.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Security.Cryptography.Pkcs.8.0.1\lib\net462\System.Security.Cryptography.Pkcs.dll</HintPath>
</Reference>
<Reference Include="System.ServiceModel" />
<Reference Include="System.Text.Encodings.Web, Version=8.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Text.Encodings.Web.8.0.0\lib\net462\System.Text.Encodings.Web.dll</HintPath>
</Reference>
<Reference Include="System.Text.Json, Version=8.0.0.5, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Text.Json.8.0.5\lib\net462\System.Text.Json.dll</HintPath>
</Reference>
<Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll</HintPath>
</Reference>
<Reference Include="System.Transactions" />
<Reference Include="System.ValueTuple, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll</HintPath>
</Reference>
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
@@ -169,6 +298,7 @@
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="UIAutomationClient" />
<Reference Include="WindowsBase" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
@@ -186,7 +316,7 @@
<ItemGroup>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="ClassAutomation.vb" />
<Compile Include="ClassClipboardWatcher.vb" />
<Compile Include="ClasseasyFLOW.vb" />
<Compile Include="ClassDataASorDB.vb" />
<Compile Include="ClassDragDrop.vb" />
<Compile Include="ClassWindow.vb" />
@@ -230,6 +360,12 @@
<Compile Include="frmClientLogin.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmGhostUser.Designer.vb">
<DependentUpon>frmGhostUser.vb</DependentUpon>
</Compile>
<Compile Include="frmGhostUser.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmLicense.Designer.vb">
<DependentUpon>frmLicense.vb</DependentUpon>
</Compile>
@@ -295,6 +431,8 @@
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="ClassWindowsAPI.vb" />
<Compile Include="ClassWindowAPIUtils.vb" />
<Compile Include="MyDataset.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
@@ -303,8 +441,6 @@
<Compile Include="MyDataset.vb">
<DependentUpon>MyDataset.xsd</DependentUpon>
</Compile>
<Compile Include="ClassWindowsAPI.vb" />
<Compile Include="ClassWindowAPIUtils.vb" />
<Compile Include="Strings\frmMain_Strings.fr.Designer.vb">
<DependentUpon>frmMain_Strings.fr.resx</DependentUpon>
<AutoGen>True</AutoGen>
@@ -345,12 +481,18 @@
<EmbeddedResource Include="frmClientLogin.resx">
<DependentUpon>frmClientLogin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmGhostUser.resx">
<DependentUpon>frmGhostUser.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLicense.resx">
<DependentUpon>frmLicense.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLicenseInfo.resx">
<DependentUpon>frmLicenseInfo.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.en-US.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.en.resx">
<DependentUpon>frmMain.vb</DependentUpon>
<SubType>Designer</SubType>
@@ -361,6 +503,7 @@
</EmbeddedResource>
<EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmPrint.resx">
<DependentUpon>frmPrint.vb</DependentUpon>
@@ -394,16 +537,19 @@
<Generator>ResXFileCodeGenerator</Generator>
<LastGenOutput>frmMain_Strings.fr.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Strings\frmMain_Strings.en.resx">
<Generator>ResXFileCodeGenerator</Generator>
<LastGenOutput>frmMain_Strings.en.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Strings\frmMain_Strings.resx">
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>ResXFileCodeGenerator</Generator>
<LastGenOutput>frmMain_Strings.Designer.vb</LastGenOutput>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
@@ -426,7 +572,7 @@
<None Include="MyDataset.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>MyDataset.Designer.vb</LastGenOutput>
<LastGenOutput>MyDataset1.Designer.vb</LastGenOutput>
</None>
<None Include="MyDataset.xss">
<DependentUpon>MyDataset.xsd</DependentUpon>
@@ -450,11 +596,13 @@
<None Include="Resources\Annotation_New.png" />
</ItemGroup>
<ItemGroup>
<Content Include="DD_easyFLOW_ICON.ico" />
<Content Include="DD_Icons_ICO_CBWATCHER_48px.ico" />
<Content Include="KeyOutput_8167.ico" />
<Content Include="MailLicense.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<None Include="Resources\DD_easyFLOW_BOOT.png" />
<Content Include="search.ico" />
<None Include="Resources\search1.png" />
<None Include="Resources\searchFlow_icon.png" />
@@ -517,6 +665,13 @@
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<Import Project="..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets" Condition="Exists('..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets')" />
<Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
<PropertyGroup>
<ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
</PropertyGroup>
<Error Condition="!Exists('..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets'))" />
</Target>
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">

870
app/DD_Clipboard_Searcher/frmAdministration.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

215
app/DD_Clipboard_Searcher/frmAdministration.resx
View File

@@ -118,48 +118,45 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="TBCW_PROFILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>355, 17</value>
<value>127, 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>
<metadata name="VWUSER_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBWH_UserBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>121, 54</value>
</metadata>
<metadata name="TBCW_PROFILESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>575, 17</value>
<value>345, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>789, 17</value>
<value>555, 17</value>
</metadata>
<metadata name="OFDWindreamsuche.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>962, 17</value>
<value>725, 17</value>
</metadata>
<metadata name="VWUSER_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1125, 17</value>
<metadata name="VWCW_USER_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>888, 17</value>
</metadata>
<metadata name="TimerTest.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
<value>17, 54</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>316, 56</value>
<value>313, 54</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>479, 56</value>
<value>475, 54</value>
</metadata>
<metadata name="TBCW_PROF_DOC_SEARCHBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1140, 56</value>
<value>17, 91</value>
</metadata>
<metadata name="TBCW_PROF_DATA_SEARCHBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>578, 56</value>
<value>573, 54</value>
</metadata>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -177,7 +174,7 @@
</data>
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -196,7 +193,7 @@
</data>
<data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -212,7 +209,7 @@
</data>
<data name="BarButtonItem4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -233,7 +230,7 @@
</data>
<data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -252,7 +249,7 @@
</data>
<data name="BarButtonItem6.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -271,7 +268,7 @@
</data>
<data name="BarButtonItem7.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -290,7 +287,7 @@
</data>
<data name="BarButtonItem8.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -309,7 +306,7 @@
</data>
<data name="BarButtonItem9.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -325,7 +322,7 @@
</data>
<data name="BarButtonItem11.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -352,7 +349,7 @@
</data>
<data name="BarButtonItem12.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -371,7 +368,7 @@
</data>
<data name="BarButtonItem13.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -396,7 +393,7 @@
</data>
<data name="BarButtonItem14.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -474,7 +471,7 @@
</data>
<data name="BarButtonItem15.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -492,7 +489,7 @@
</data>
<data name="BarButtonItem18.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -511,7 +508,7 @@
</data>
<data name="BarButtonItem19.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -527,7 +524,7 @@
</data>
<data name="BarButtonItem20.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -545,7 +542,7 @@
</data>
<data name="BarButtonItem21.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -564,7 +561,7 @@
</data>
<data name="BarButtonItem22.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -594,7 +591,7 @@
</data>
<data name="BarButtonItem23.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -613,7 +610,7 @@
</data>
<data name="BarButtonItem24.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -632,7 +629,7 @@
</data>
<data name="BarButtonItem25.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -648,7 +645,7 @@
</data>
<data name="BarButtonItem26.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMcCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -667,7 +664,7 @@
</data>
<data name="BarButtonItem27.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACsDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -688,7 +685,7 @@
</data>
<data name="BarButtonItem28.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFgEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -714,7 +711,7 @@
</data>
<data name="BarButtonItem29.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEcDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -735,7 +732,7 @@
</data>
<data name="BarButtonItem30.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEoIAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -777,11 +774,11 @@
</value>
</data>
<metadata name="TBWH_PROFILE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1024, 95</value>
<value>270, 128</value>
</metadata>
<data name="TabPageGeneralSettings.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEACAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -797,14 +794,14 @@
</value>
</data>
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
<value>514, 128</value>
</metadata>
<metadata name="TBWHSEARCHPOSITIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>499, 134</value>
<value>165, 165</value>
</metadata>
<data name="SimpleLabelItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -825,7 +822,7 @@
</data>
<data name="TabPageDocuments.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAN4CAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -845,7 +842,7 @@
</data>
<data name="TabPageData.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAADIDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -866,7 +863,7 @@
</data>
<data name="TabPageProcessAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIkCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -884,7 +881,7 @@
</data>
<data name="TabPageProfileManagement.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOYDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -906,15 +903,18 @@
LDE0LjMsMjZ6IiBjbGFzcz0iQmxhY2siIC8+DQo8L3N2Zz4L
</value>
</data>
<metadata name="cmsGroupZODelete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>988, 128</value>
</metadata>
<metadata name="VWCW_GROUP_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>500, 95</value>
<value>769, 91</value>
</metadata>
<metadata name="TBWH_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>290, 95</value>
<value>561, 91</value>
</metadata>
<data name="TabPageGroupAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -936,9 +936,12 @@
MjAsMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<metadata name="cmsUserZODelete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 165</value>
</metadata>
<data name="TabPageUserAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOoDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -962,7 +965,7 @@
</data>
<data name="TabPageProfileAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -980,22 +983,22 @@
</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>
<value>852, 54</value>
</metadata>
<metadata name="TBCW_PROF_DOC_SEARCHTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
<value>293, 91</value>
</metadata>
<metadata name="VWCW_GROUP_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>765, 95</value>
<value>17, 128</value>
</metadata>
<metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>261, 134</value>
<value>755, 128</value>
</metadata>
<metadata name="BehaviorManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>762, 134</value>
<value>425, 165</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>159</value>
<value>163</value>
</metadata>
<data name="frmAdministration.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -5506,6 +5509,90 @@
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
</value>
</data>
<data name="frmAdministration.IconOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
DAAACwwBP0AiyAAAEkpJREFUeF7t3b+u5EgVx/F9hHkIHmDuvgDzADwA4QTkbE4yCfnkJJNstAEiQgRI
I0hIFo2EhETEBEQkbEJC0tTv3vas232623adss8pf4OPtFPbt2337fq5/vp+dTqdQvr2J0+vijfFu+JD
8bH4XJyAwPQd1XdV31l9d/UdfmV9xyMwC/egD6l4W+iDo6KjN/pO67ut73iYQDALt6IPovim+FRYHxrQ
K33ndw8Ds7C1ctFqFikNrQ8GOBrVhTdWXWnNLGylXKQSj+Y9YFPdeGvVnVbMQm+6qPPFWRcN4NJmQWAW
eikX8brQiKh1kQDuU915bdUtL2ZhrXLSGtx7f74IAHVUl5oMFpqFNcqJaoCP5j7gS3XKfaDQLFyrnKAW
PlgnD8DHO6vurWUWLlVOSk1++vrANlTXXLoEZuES5UQ00EeTH9iW6lz1AKFZOJdOoPjhfEIAtqW6VxUC
ZuEcOvD5BKwTA7CNqhAwCx/RAc8Htk4IwLZWh4BZeI8OdD6gdSIA9rEqBMzCW3SA84GsEwCwr8UhYBZa
yhtrqo/RfiA21dHZU4RmoaW8KfP8QA4frTpsMQunyhuywg/IZdaKQbNwrLyR1vZbBwAQ28O9A2bhoLwB
/X4gr4fjAWbhoPwwW3qB3N5bdXtgFkr5QU35WW8IIJebU4NmoZQfYtQf6MPNWQGzsPyAnuFnvRGAnMxn
DF4VSHkxA39AXz5bdf2qoLyQuz/Qp6tWwMU/pLyIuz/Qp6tWwMU/ygtY9AP07WJx0DQA+HNdQN8+jOv8
uPJr1Z/1AwD68mV14DgAGPwDjuHLYOA4APgT3cAxfLoIgFJA8x84luduwBAANP+R2u9+apfjpuduwBAA
jP4jle++fjr96RdPp3/+5un03z8/nU5/fymzXgvT82zAEAAs/kF4f/z50+kf759O//nDS4Wf+ssv7Z+D
6XlREP1/hPX7nz2d/vqrp9O/f2tX+Cm1Bqz3wU2vFACs/kMI6sfrLv6vb59O//veruT3qCtgvS9ueqMA
4IGf2MXQj1ezfujH12IwcJF3DABiU+rH/+3Xt/vxtdRlsI4L0wcFAE/+QTNDP17NeqvCetNxrPOA6aMC
gBkAuBn68ePpuS1p7MA6L5g+KwCs/wHMMu7Ht2rWL6VWh3WuuEYAYLGhHz93em5rOjfrvHGNAMBDatYP
/fg103NbUzBZ14FrBACuqFm/Zz/eg3VduEYA4Av1naP042tpXMK6RlwiAPCF7vxWZcpIg5LWNeISAYAL
vbQAdB3W9eESAYALunNaFSojlgU/RgDggqb4rMqUEduDHyMAcMWqTBmxPfgxAgBXtlq33xrbgx8jAHBF
i36sCpURy4LvIwBwRZXGqkwZsT34PgIApgxLfudge/B9BABMGkCzKlQ2bA++jwCASVNoVoXKSFOb1jWC
AMANWkRjVaYWtGpPC5CG9fveG5DYHnwbAeBgul22l5HnVjsB9b7qYqiVYf0xD+/uB8uCbyMAVni0XbaX
kWevZcEKRYWjPpc54dii+2EFDQiA2ZY89qqXB1Lomq3rm0OfgZrea/rfLbofbA+2EQA36E6lO9bax15Z
75nNku3B4368x912TtAuoXOzjnN0BMCZ7jpqeno99qqXO86tijjux7fYdefV/RjofK3jHN1hA0B3KVXS
W/34Wr3ccdSM1/Us7cfXqul+3NIiqLI7VACoPzq3H19Lx7DOIRtVmr3m0a3PtYZaK9ZxjqzrABj68bpz
WV+I1hh5ruP92HG19qzjHFlXATD04/WL9ujH1+KOU2fofnjRd8I6zpGlDoChH69mfYt+fC3uOHXUgrM+
1xpbjF9kki4A1B/VncG7edgCI8/1vFtyvSzS8hI+AMb9+AjN+qUYea7jPX6j97OOc1RhA6DV9NzWuOPU
0ednfa41rOMcVdgAyHi3t3DHqaMWlPW51mB78I/CBsBeU3feGHmu590SZFnwj8IGgKbQrF9eRtxx6qg7
aH2ua/WySMtD2ABo0fTbCw+kqNNiWTCLtF6EDQDpYRBQetkevBdVVutzrdHLZq1aoQPAu+m3J+v6MJ/3
/g0Wab0IHQAtmn5bUetFX7JW22WPhu3BbYQOgBZNv5Y0c6F5a5ab+tNAqvWZ1yCYgweAbLF1dy2d29rH
XmE563dQg81aCQLAe0dYDTUb1RRV14RR5O157P9QaOt3SGi/CB8ALZp+c2kRj5r19ONjWLMseBiLIbRt
4QNArF9sK7rL0I+Pac72YEJ7mRQB0HJZME3CXKw9IgptdRUJ7eVSBECLHWG6Q9AkzEfN+SG0WcxTL0UA
zGn6LcUdH0gSAOK9PZj1+UCiAPBeFsz6fCBRAKjPblXkGowB4OjSBECL7cEMIuHo0gSAeG8P1kiydRzg
KFIFgCqsVZHX0nSSdRzgKFIFQIvtwawWw5GlCoAW24PZEYYjSxUA4rEjbIwnw+DI0gWA9/bgozwZRl0d
rX7U53ePXkO36DjSBUCL7cE9biJRJVb3Rhup1qyiHHbVaR8GgdCvdAEg3suC9SW3jpORKr13N0n0noyX
9CdlAHhvD9b7WcfJRJXTe52ERcdQV8E6B+STMgC8twerRWEdJwNNjW5R8ad0TFZS5pcyANge/DIl2vJB
KXPpHNhTkVfKABDvu16mZq3CynscpIbOhafx5JQ2ALy3B2dZFqy+vnX+ETBImE/aAGhREaI3ZVs8Gs0b
IZBL2gBosSw48qCWuijWOUdECOSRNgBEzXbrC7hW1O3BkZv9txACOaQOAO/twRpYtI6zpxYrH7eSbWbl
iFIHQO/bg9XNiTTav5TOnSnC2FIHgFhfvBqRmq4R5vlr9bDKsmfpA6DX7cEtWjd7YcVgXOkDwHt0PMKy
YDWb91je20rEsRW8SB8ALZYF772qLdOU31xsIIopfQCI50CZ3mvvJmvmgb9bIrSscK2LAKgdLNM4gu5Q
EdazZ5zzn4u1AfF0EQBLl8hG/uuyLR7mEQWPYY+niwDQ3L31hRtoEEqj+7oDRX681aPr8KDWkj6HcWtH
/62yLaYdebxYLF0EgIxHzdXf1JdZLYMIzfq5Wm72UctiTuXTa1q2QnSN1nGxj24CQH14ybz8tNUdeM0I
vPcy64HCxToe9tFNAPSgxeh/zfSbftZ6z1rWsbAPAiCIFv1/j7tti+5Apm5Z7wiAIFrs+vMYcGsRTCwN
joMACMK7ua3xBOs4a3iPTdR0S+CLAAjCOwA8F93ovaxjrEUAxEEABOEdAJ79bO9ugGfrBHUIgCC8A8A6
Rg3rGGsxFRgHARAEAYA9EABB0AXAHgiAILwDwHMQ0PvpRLpW6zjYHgEQhHcAeN5lvf8KEwEQBwEQBAuB
sAcCIIgWFY2lwHiEAAgk2magVjsCrWNhHwRAIN5LbgdrQoDtwNfUTdNn2dMYBgEQCA8EiUVdFZ2vgnnc
OuvpMecEQCAtxgGmNKKvQbhxGOi/eSTYj5+DPqNHf5ch8nUsQQAE0/Luu7eIDwVVGKq7s/QvTffyaDMC
IBjvnXeReC5OWkvNevXha4O2l9WMBEBAj5qfGe39h0F0p/ecZdn7erwQAAH12ArYe+Rcd37rvGr0sJ6B
AAiqp1ZAlFFz73UWPUwHEgBBeW/A2VOUpb/eexoyr2kYEACBbTEt11qkwbIWXSvrOJkQAIF997V/s3VL
Onddg3Vte9DcvXWeNaK0btYiAIJrMXi1lYiDZN5jK1pDYB0nCwIggYyzAhHm/C3eexyy/8VjAiCJTCEQ
tfJLi8HVSN2cpQiARDKEQOTKL6qs1nnXiH7N9xAAyUQOgSwVYem6/0c0vWgdJwMCICHtS480O6BzybQq
Tgt4rOtYK8pCpzUIgKTUlI2wTkDnkK0P3OL5i1mXBRMAyWlQa49lwzpm5jlw7xZU1u3BBEAHdAdWs3aL
boGO0cMaeO/WU6QVj0sQAJ3RQJz3IJfoPTOPdk95P35NwWgdJzoCoFNa9qovec2DL/Szeo9eHn811mKF
pcYWrGNFRgAchL7w6rOr+S5qsqqCi/57KNdrsg5oLeU9dpKxa0QA4LDYHkwA4MBaLKrKNiVKAOCw2B5M
AODgvGdMsm0PJgBwaEffHkwA4NDUZLcqco1M06YEAA7t6NuDCQAcXs1iKUum7cEEAA5PC3isirxWpmXB
BAAO78jbgwmAShpEGv66bOYnwxyVxgBaLAjKsj2YAFhIya4mo9VvzLoj7Gh0xx9Ce/o79JJlezAB8ICm
dHSH0C90zn77o2ykyUS/k9qdkWtY5xINATChJqGa9WrOr9ktlqXp17Olod1Khu3BBEDh2STM0vTryRDa
+h3u8Xi0WzJsDz58ALQYALKOA18KbVWwlv34WhmWBR8+AFrsCMvQ9Mtm6MerhWV95lFF3x5MF6Dwbjaq
KWodB/MN/fi1YzFRRN8eTAAU3k+GydD0i876XDOKvjaEACha7AiL3vSLbuspu1bUerGuLwoCoFBltX55
NaI3/aLzXp+/p8jbgwmAM+/RZJYF19FAqvW5ZqSxDOsaIyAAzjRwZ/3y1ore9Mtgz0U8niKvDSEAzlrc
cSI3/TLINuV3S+Q9IgTAiPXLq8Gy4Dr6/KzPNRO1BCN3BwmAEe+RZ5YF12mxSKs13e31e1d4ZdgYRgCM
eN9xIjf9ssiwCEg3Ds1aZFwBSgCMKLGtX3ANtgfX8V6k5UGhpEFjTfVmX+9BAEx4jzxn2BEWWYvNWkvp
O6Eg0rn0NrBLAEx433HUPLSOg3laLNKaI1M/vgYBMNHL9mD1R3u5W22x5VfHyNqPr0EATLQYed5iWbC1
XbaX7of3Ii0Zpud66MfXIAAM3iPPLbYHK6gebZftpfvhsVlrmJ7rsR9fgwAweN9xPLYH6y6liqBzW9Ik
7uXuZl3bIwrAI/TjaxAABo87ztSau476o2rG1yxQ2qL7sYU5n4GCcZies94D1wgAQ4uRZzU9rWONjfvx
XtORLbofe7AWaQ39eH22R+7H1yAAbvAeedYXdXoMfWkf9eNr6X2nx81I4Tj04xUG9ON9EAA3qOltVai1
hoq4ph9fi8qCWwiAG1psD97LnO4HjokAuMN7WfBerO4HIATAHeNFNZkpyKzrAwiAO6yR56yYC4eFALhD
lcaqTBkpzKxrxLERAA+0mp7bmroz1vXh2AiABzSAZlWojKzrw7ERAA9oCs2qTBkdbasrHiMAHtAiGqsy
ZdTLsmD4IQBm2HLVXku6Duv6cFwEwAy6c1oVKiM2zWCMAJihxfbgPagFwHoAjBEAM7TYHrwFtsviEQJg
ppqHcmyF7bJYigCYyXt7sBcF0xGfZgsfBMBMUZYFqx8/PPaKZj1qKQA+Twth22N78LgfT7Mezj4rAD5O
CnHDVtuDh348I/Zo7KMC4MOkEDe02h6sZj39eOzggwLg3aQQN3gtC1aznn48AninAHgzKcQda7YHa+yA
fjwCeqMAeDUpxB1ztwfzV2mQwKuvTidmApa4tT14mJ6jH48kPqvuDwHAQOBMw7LgYXqOfjyS+jAOgLeT
/4k76MejA2/HAcA4AHAsr74EwDkEPk1eAKBPn4Z6Pw6AbyYvAtCn5+b/NADoBgDH8Nz8vwiAcwgwGwD0
7Xn0fzANAFYFAn17M67zFwEg5QUsCgL69Lz4Z+ziH1JexJoAoE9fBv8GF/8YlBfSCgD6cnX3l6sCKS+m
FQD05eruL1cFg/IDPCkI6MNHq46LWSjlh15P3gRATq+tOi5m4aD84PvJGwHI5b1Vtwdm4aD8sFYHMiAI
5KS6+2XVn8UsHCtvwOIgIKeLRT8Ws3CqvBEPDgVyeWfV5Smz0FLekFkBIIebo/5TZqGlvCnjAUB8D/v9
Y2bhLeWNNTX4w/lAAGJR3bw55WcxC+/RAc4Hsk4AwD4WV34xCx/Rgc4HtE4EwLZWVX4xC+fQAc8Htk4I
wDZWV34xC+fSgc8nYJ0YgLaqKr+YhUvoBApmB4Btqc5VVX4xC5cqJ6IpQtYJANtQXZs91XePWbhWOSlW
DAJtzVrhN5dZWKOcoPYO0CUAfKlOPVzbv5RZWKucqLoEbCUGfKguuTT5p8xCL+WkNUDI2ACwjupO9UDf
PWaht3IResYg3QJgHtUV8xl+3szCVnRR54uzLho4us0q/sAsbK1cpAYK+TNkwAvVBfcBvjnMwq2Ui9Zg
oVoF/GlyHI2+8/ruNxncm8ss3IM+iPMHojSkm4De6Dut7/bulX7MLIxAH1KhroIWF+mD04gowYDo9B3V
d1XfWX139R0OU+Evnb76PxfoPjBTaGKwAAAAAElFTkSuQmCC
</value>
</data>
</root>

323
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@@ -1,6 +1,8 @@
Imports System.Text.RegularExpressions
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Language
Public Class frmAdministration
Private _SelectedProcessName As String
Private _DragDrop As ClassDragDrop
@@ -54,7 +56,7 @@ Public Class frmAdministration
End Function
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
_DataASorDB = New ClassDataASorDB(modCurrent.LogConfig)
_DataASorDB = New ClassDataASorDB(modCurrent._LogConfig)
' Select first tab to prevent profile textbox from being empty
XtraTabControl3.SelectedTabPageIndex = 0
@@ -149,7 +151,7 @@ Public Class frmAdministration
Status_Changed("Keine Änderung")
End If
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
End Try
End Sub
@@ -186,8 +188,15 @@ Public Class frmAdministration
Sub Refresh_ProfileData()
Try
VWUSER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
VWUSER_PROFILETableAdapter.Fill(MyDataset.VWUSER_PROFILE, PROFILE_IDTextBox.Text)
Dim oSQL = $"SELECT GUID, USER_ID, USERNAME as Username, USER_SURNAME + ', ' + USER_PRENAME as Name FROM
VWCW_USER_PROFILE WHERE PROFIL_ID = {PROFILE_IDTextBox.Text}"
Dim oDT = MyDB_DDECM.GetDatatable(oSQL)
GridViewUserInProfile.Columns.Clear()
If Not IsNothing(oDT) Then
GridControlUserInProfile.DataSource = oDT
GridViewUserInProfile.Columns.Item("USER_ID").Visible = False
GridViewUserInProfile.Columns.Item("GUID").Visible = False
End If
VWCW_GROUP_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, PROFILE_IDTextBox.Text)
@@ -222,7 +231,7 @@ Public Class frmAdministration
For Each row As DataRow In MyDataset.TBWH_User.Rows
If row.Item(0) = CBool(True) Then
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, row.Item(5))
If Database.ExecuteNonQuery(insert) = False Then
If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If
End If
@@ -241,10 +250,10 @@ Public Class frmAdministration
End Sub
Sub Refresh_Free_Users(PROFILE_ID As Integer)
Dim Sql = String.Format("SELECT DISTINCT * FROM VWDD_USER_MODULE_CW WHERE GUID NOT IN (SELECT USER_ID FROM TBCW_USER_PROFILE WHERE PROFILE_ID = {0}) ORDER BY USERNAME", PROFILE_ID)
Dim Sql = String.Format("SELECT DISTINCT * FROM VWDD_USER_MODULE_CW WHERE GUID NOT IN (SELECT USER_ID FROM TBCW_USER_PROFILE WITH (NOLOCK) WHERE PROFILE_ID = {0}) ORDER BY USERNAME", PROFILE_ID)
Dim DT_USER = Database.GetDatatable(Sql)
Dim DT_USER = MyDB_DDECM.GetDatatable(Sql)
Try
MyDataset.TBWH_User.Clear()
@@ -271,8 +280,8 @@ Public Class frmAdministration
End Sub
Sub Refresh_Free_Groups(PROFILE_ID As Integer)
Dim Sql = String.Format("SELECT DISTINCT * FROM TBDD_GROUPS WHERE GUID NOT IN (SELECT GROUP_ID FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {0}) ORDER BY NAME", PROFILE_ID)
Dim oDataTable = Database.GetDatatable(Sql)
Dim Sql = String.Format("SELECT DISTINCT * FROM TBDD_GROUPS WITH (NOLOCK) WHERE GUID NOT IN (SELECT GROUP_ID FROM TBCW_GROUP_PROFILE WITH (NOLOCK) WHERE PROFILE_ID = {0}) ORDER BY NAME", PROFILE_ID)
Dim oDataTable = MyDB_DDECM.GetDatatable(Sql)
Try
MyDataset.TBWH_GROUP.Clear()
@@ -280,7 +289,7 @@ Public Class frmAdministration
For Each row As DataRow In oDataTable.Rows
Dim oNewRow As MyDataset.TBWH_GROUPRow
oNewRow = MyDataset.TBWH_GROUP.NewTBWH_GROUPRow
oNewRow.NAME = row.Item("NAME")
oNewRow.Name = IIf(IsDBNull(row.Item("NAME")), "Null", row.Item("NAME"))
oNewRow.GUID = row.Item("GUID")
MyDataset.TBWH_GROUP.Rows.Add(oNewRow)
Next
@@ -289,27 +298,6 @@ Public Class frmAdministration
End Try
End Sub
Private Sub btndeleteUserConstructorRel_Click(sender As Object, e As EventArgs)
Try
Dim ID = GridViewUserInProfile.GetFocusedRowCellValue(GridViewUserInProfile.Columns("GUID"))
Try
Dim I As Integer = CInt(ID)
Catch ex As Exception
Exit Sub
End Try
Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", ID)
If Database.ExecuteNonQuery(del) = True Then
Refresh_ProfileData()
If PROFILE_IDTextBox.Text <> "" Then
Refresh_Free_Users(PROFILE_IDTextBox.Text)
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Load_Profile_Process()
If IsNothing(PROFILE_IDTextBox.Text) Or PROFILE_IDTextBox.Text = "" Then
Exit Sub
@@ -377,7 +365,7 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
If Utils.NotNull(txtProfileName.EditValue, String.Empty) <> String.Empty Then
If ObjectEx.NotNull(txtProfileName.EditValue, String.Empty) <> String.Empty Then
Save_Profile()
Else
MsgBox("Profil kann nicht ohne Profil-Name gespeichert werden!", MsgBoxStyle.Exclamation, Text)
@@ -389,7 +377,7 @@ Public Class frmAdministration
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, Text)
' wenn Speichern ja
If result = MsgBoxResult.Yes Then
If Database.ExecuteNonQuery(swl) = True Then
If MyDB_DDECM.ExecuteNonQuery(swl) = True Then
Refresh_ProfileScreen()
End If
End If
@@ -422,7 +410,7 @@ Public Class frmAdministration
End If
If CtrlApplicationAssignment1.Process_DeleteAssignment() = False Then
MsgBox("Error while deleting assignment of process!", MsgBoxStyle.Critical, "Search Flow")
MsgBox("Error while deleting assignment of process!", MsgBoxStyle.Critical, AppTitle)
End If
Status_Changed("Prozesszuordnung gelöscht")
@@ -462,7 +450,7 @@ Public Class frmAdministration
End If
If CtrlApplicationAssignment1.Window_DeleteAssignment() = False Then
MsgBox("Error while deleting assignment of window!", MsgBoxStyle.Critical, "Search Flow")
MsgBox("Error while deleting assignment of window!", MsgBoxStyle.Critical, AppTitle)
End If
Status_Changed("Fensterzuordnung gelöscht")
@@ -470,7 +458,6 @@ Public Class frmAdministration
Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged, XtraTabControl2.SelectedPageChanged
Dim oTabName As String = e.Page.Name
Try
Select Case oTabName
Case TabPageProcessAssignment.Name
@@ -534,7 +521,7 @@ Public Class frmAdministration
RibbonGroup_DataSearch.Enabled = False
End Select
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
End Try
End Sub
@@ -579,7 +566,7 @@ Public Class frmAdministration
Status_Changed("Daten-Suche gespeichert")
End If
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
End Try
End Sub
@@ -626,7 +613,7 @@ Public Class frmAdministration
End If
Catch ex As Exception
MsgBox("Unexpected Error while saving Document Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Logger.Error(ex)
_Logger.Error(ex)
End Try
End Sub
@@ -686,7 +673,7 @@ Public Class frmAdministration
Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick
Dim oSQL As String = $"EXEC PRCW_COPY_PROFILE {PROFILE_IDTextBox.Text}, '{USER_USERNAME}'"
If Database.ExecuteNonQuery(oSQL) = False Then
If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
MsgBox("Profil konnte nicht kopiert werden! Mehr Informationen im Log.", MsgBoxStyle.Exclamation, Text)
Else
Refresh_ProfileScreen()
@@ -741,67 +728,6 @@ Public Class frmAdministration
End Sub
Private Sub GridControlUserNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserNotInProfile.DragDrop
Try
If PROFILE_IDTextBox.Text = String.Empty Then
Exit Sub
End If
Dim oSelectedRows = GridViewUserInProfile.GetSelectedRows()
For Each oRowHandle As Integer In oSelectedRows
Dim oRow As DataRow = GridViewUserInProfile.GetDataRow(oRowHandle)
Dim oGuid As Integer = oRow.Item("GUID")
Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", oGuid)
If Database.ExecuteNonQuery(del) = False Then
MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
End If
Next
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
GridViewUserInProfile.ClearSelection()
Status_Changed($"{oSelectedRows.Count} Benutzerzuordnungen gelöscht")
Catch ex As Exception
Logger.Error(ex)
MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub GridControlUserInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserInProfile.DragDrop
Try
If PROFILE_IDTextBox.Text = String.Empty Then
Exit Sub
End If
Dim oSelectedRows = GridViewUserNotInProfile.GetSelectedRows()
For Each oRowHandle As Integer In oSelectedRows
Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle)
Dim oGuid As Integer = oRow.Item("GUID")
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, oGuid)
If Database.ExecuteNonQuery(insert) = False Then
MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
End If
Next
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
GridViewUserNotInProfile.ClearSelection()
Status_Changed($"{oSelectedRows.Count} Benutzer zugeordnet")
Catch ex As Exception
Logger.Error(ex)
MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub XtraTabControl2_DragDrop(sender As Object, e As DragEventArgs) Handles XtraTabControl2.DragDrop
End Sub
Private Sub GridControlGroupNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlGroupNotInProfile.DragDrop
Try
@@ -809,10 +735,11 @@ Public Class frmAdministration
For Each oRowHandle In oSelectedGroups
Dim oRow As MyDataset.VWCW_GROUP_PROFILERow = DirectCast(GridViewGroupInProfile.GetRow(oRowHandle), DataRowView).Row
Dim oGroupId As Integer = oRow.GUID
Dim oSQL As String = $"DELETE FROM TBCW_GROUP_PROFILE WHERE GUID = ({oGroupId})"
Dim oProfileId As Integer = oRow.PROFIL_ID
Dim oGroupId As Integer = oRow.GROUP_ID
Dim oSQL As String = $"DELETE FROM TBCW_GROUP_PROFILE WITH (NOLOCK) WHERE PROFILE_ID = {oProfileId} AND GROUP_ID = {oGroupId}"
If Database.ExecuteNonQuery(oSQL) = False Then
If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
MsgBox("Could not delete the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If
Next
@@ -837,7 +764,7 @@ Public Class frmAdministration
Dim oGroupId As Integer = oRow.GUID
Dim oSQL As String = $"INSERT INTO TBCW_GROUP_PROFILE (PROFILE_ID,GROUP_ID) VALUES ({PROFILE_IDTextBox.Text},{oGroupId})"
If Database.ExecuteNonQuery(oSQL) = False Then
If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
MsgBox("Could not insert the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If
Next
@@ -890,4 +817,188 @@ Public Class frmAdministration
Private Sub BarButtonItem30_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem30.ItemClick
CtrlApplicationAssignment1.Window_EditRegex()
End Sub
Private Sub XtraTabControl3_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl3.SelectedPageChanged
Select Case XtraTabControl3.SelectedTabPageIndex
Case 1
RibbonGroup_Profile.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
Case 0
XtraTabControl1.SelectedTabPageIndex = 0
End Select
End Sub
Private Sub ZuordnungEntfernenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZuordnungEntfernenToolStripMenuItem.Click
Try
Dim oSelectedGroups = GridViewGroupInProfile.GetSelectedRows()
For Each oRowHandle In oSelectedGroups
Dim oRow As MyDataset.VWCW_GROUP_PROFILERow = DirectCast(GridViewGroupInProfile.GetRow(oRowHandle), DataRowView).Row
Dim oProfileId As Integer = oRow.PROFIL_ID
Dim oGroupId As Integer = oRow.GROUP_ID
Dim oSQL As String = $"DELETE FROM TBCW_GROUP_PROFILE WITH (NOLOCK) WHERE PROFILE_ID = {oProfileId} AND GROUP_ID = {oGroupId}"
If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
MsgBox("Could not delete the Group-Definition via contextmenu....Check the logfile!", MsgBoxStyle.Exclamation)
End If
Next
GridViewGroupInProfile.ClearSelection()
Refresh_Free_Groups(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
Status_Changed($"{oSelectedGroups.Count} Gruppenzuordnungen gelöscht")
Catch ex As Exception
MsgBox("Unexpected Error in deleting Group-Rights via cms: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub UserEntfernenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserEntfernenToolStripMenuItem.Click
FreeUserProfile()
End Sub
Sub FreeUserProfile()
Try
If PROFILE_IDTextBox.Text = String.Empty Then
Exit Sub
End If
Dim oSelectedRows = GridViewUserInProfile.GetSelectedRows()
For Each oRowHandle As Integer In oSelectedRows
Dim oRow As DataRow = GridViewUserInProfile.GetDataRow(oRowHandle)
Dim oGuid As Integer = oRow.Item("USER_ID")
Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WITH (NOLOCK) WHERE PROFILE_ID = {0} AND USER_ID = {1}", PROFILE_IDTextBox.Text, oGuid)
If MyDB_DDECM.ExecuteNonQuery(del) = False Then
MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
End If
Next
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
GridViewUserInProfile.ClearSelection()
Status_Changed($"{oSelectedRows.Count} Benutzerzuordnungen gelöscht")
Catch ex As Exception
_Logger.Error(ex)
MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub GridControlUserInProfile_MouseDown(sender As Object, e As MouseEventArgs) Handles GridControlUserInProfile.MouseDown
'Dim view As GridView = CType(sender, GridView)
'Dim hitInfo As GridHitInfo = view.CalcHitInfo(e.Location)
'If hitInfo.InRow Then
' Dim rowHandle As Integer = hitInfo.RowHandle
' Dim data As Object = view.GetRow(rowHandle)
' If data IsNot Nothing Then
' GridControl1.DoDragDrop(data, DragDropEffects.Move)
' End If
'End If
End Sub
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
End Sub
Private Sub GridControlUserNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserNotInProfile.DragDrop
FreeUserProfile()
End Sub
Private Sub GridControlUserInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserInProfile.DragDrop
Try
If PROFILE_IDTextBox.Text = String.Empty Then
Exit Sub
End If
Dim oSelectedRows = GridViewUserNotInProfile.GetSelectedRows()
For Each oRowHandle As Integer In oSelectedRows
Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle)
Dim oGuid As Integer = oRow.Item("GUID")
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, oGuid)
If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
End If
Next
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
GridViewUserNotInProfile.ClearSelection()
Status_Changed($"{oSelectedRows.Count} Benutzer zugeordnet")
Catch ex As Exception
_Logger.Error(ex)
MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
'Private Sub GridControlUserInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserInProfile.DragDrop
' Try
' If PROFILE_IDTextBox.Text = String.Empty Then
' Exit Sub
' End If
' Dim oSelectedRows = GridViewUserNotInProfile.GetSelectedRows()
' For Each oRowHandle As Integer In oSelectedRows
' Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle)
' Dim oGuid As Integer = oRow.Item("GUID")
' Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, oGuid)
' If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
' MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
' End If
' Next
' Refresh_Free_Users(PROFILE_IDTextBox.Text)
' Refresh_ProfileData()
' GridViewUserNotInProfile.ClearSelection()
' Status_Changed($"{oSelectedRows.Count} Benutzer zugeordnet")
' Catch ex As Exception
' Logger.Error(ex)
' MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' End Try
'End Sub
'Private Sub GridControlUserNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserNotInProfile.DragDrop
' Try
' If PROFILE_IDTextBox.Text = String.Empty Then
' Exit Sub
' End If
' Dim oSelectedRows = GridViewUserInProfile.GetSelectedRows()
' For Each oRowHandle As Integer In oSelectedRows
' Dim oRow As DataRow = GridViewUserInProfile.GetDataRow(oRowHandle)
' Dim oGuid As Integer = oRow.Item("GUID")
' Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", oGuid)
' If MyDB_DDECM.ExecuteNonQuery(del) = False Then
' MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
' End If
' Next
' Refresh_Free_Users(PROFILE_IDTextBox.Text)
' Refresh_ProfileData()
' GridViewUserInProfile.ClearSelection()
' Status_Changed($"{oSelectedRows.Count} Benutzerzuordnungen gelöscht")
' Catch ex As Exception
' Logger.Error(ex)
' MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' End Try
'End Sub
End Class

21
app/DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb generated
View File

@@ -49,8 +49,8 @@ Partial Class frmConfig_Basic
Me.Button1 = New System.Windows.Forms.Button()
Me.btnApplicationFolder = New System.Windows.Forms.Button()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
@@ -213,20 +213,20 @@ Partial Class frmConfig_Basic
'btnChangeHotkey
'
resources.ApplyResources(Me.btnChangeHotkey, "btnChangeHotkey")
Me.btnChangeHotkey.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.KeyDown_8461
Me.btnChangeHotkey.Image = Global.easyFLOW.My.Resources.Resources.KeyDown_8461
Me.btnChangeHotkey.Name = "btnChangeHotkey"
Me.btnChangeHotkey.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
Me.Button1.Image = Global.easyFLOW.My.Resources.Resources.folder_Open_16xLG
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'btnApplicationFolder
'
Me.btnApplicationFolder.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
Me.btnApplicationFolder.Image = Global.easyFLOW.My.Resources.Resources.folder_Open_16xLG
resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder")
Me.btnApplicationFolder.Name = "btnApplicationFolder"
Me.btnApplicationFolder.UseVisualStyleBackColor = True
@@ -239,18 +239,17 @@ Partial Class frmConfig_Basic
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.searchFlow_boot
resources.ApplyResources(Me.PictureBox1, "PictureBox1")
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.TabStop = False
'
'Label8
'
resources.ApplyResources(Me.Label8, "Label8")
Me.Label8.Name = "Label8"
'
'PictureBox1
'
resources.ApplyResources(Me.PictureBox1, "PictureBox1")
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.TabStop = False
'
'frmConfig_Basic
'
Me.Appearance.Options.UseFont = True

232
app/DD_Clipboard_Searcher/frmConfig_Basic.resx
View File

@@ -551,7 +551,7 @@
<value>102, 20</value>
</data>
<data name="Label7.Size" type="System.Drawing.Size, System.Drawing">
<value>78, 16</value>
<value>77, 16</value>
</data>
<data name="Label7.TabIndex" type="System.Int32, mscorlib">
<value>11</value>
@@ -581,7 +581,7 @@
<value>8, 20</value>
</data>
<data name="Label6.Size" type="System.Drawing.Size, System.Drawing">
<value>95, 16</value>
<value>94, 16</value>
</data>
<data name="Label6.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
@@ -847,6 +847,231 @@
<data name="&gt;&gt;Label8.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAyAAAADICAYAAAAQj4UaAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAACxEAAAsRAX9kX5EAADNSSURBVHhe7d1dyGXXedhxX1gVCrI79lSaTEZfVuQonjgd
jYqo0xurprjghhbKQFNKBaED7kWr1GBosS4aOhWCmlAji140Ma6gvrFKXbdFti7U1q4vQi0bE4ORoRAo
JoRQ6gsRTHzzVv/zetnrfc6zz9lnn/19/hc/ZmadffZZ7z77ldaz1/Os9Y4vPHbzTJIkTeeVJ2+enX3v
/M/sdXz6oQ+cPXPfA2dP3Xvp7B3veIcOxPW9duWuC20P3X1Peq2lr/z6zbM//Z/b7R+7dP+Fe2gM3LfZ
/Xv9nndt9W8pDEAkSZqBP/nSzbOv377Y9rlHb5w9/e7LZ+9558WBhw73zS8+fvbJ39wePL70yAcvXHOp
+PG3bp59+cMX2z5x9X1b99AY3nz1+tntW5e32pd6/xqASJI0A999/ubZH/7udrvBRz9efO6Bsy999tGt
9o9feXjrmkv4wRdunn37uYttDPjjPTSGl194eCO2ExDV/VsKAxBJkmbg9d+YT8rHGn3kQ+86+6OvbQ8e
mWGK11zC7//WeRAS20l9ivfR0G599NJmFiS289+H2L8lMACRJGkm5pTysUZvvXHj7IlfvudCGzNM9fWW
Cn4X+Z2M7bfee/XCPTQW6kDi/bvUOiYDEEmSZoKnrTx1rdumSvlYA4p2qfsg9YrZDwKQLI+eAv/6mksF
s5LMTtZtn7r22NY9NIbXP/9YWse0xPvXAESSpJkg3zxL+eApZxx0KEeAQa486So8Mab4/M6zVzcpWNnx
YHWxeM0lUJdFfVZsz+6joXEfr6WOyQBEkqSZmFvKxxIQWDAwI9Ag4CDwIADJZjqasLRxvOYSWJmOFepi
+xTLYa+pjskARJKkGSHlgz0I6rapUj7miBx40lBIRyGligEZT4Vpi/skHIIlj+trLqFpjx5mzbL7aGjc
83E2b4l1TAYgkiTNCCkfcelPBsf1gOOUEFQwm1HXcRB8MOsRC3KPQZBXX3Op+OFr23v0UHeR3UdD4/eA
ez+233nw8Qv9mzsDEEmSZoQi9CzlY4qlP6fCkqPs21HXcfBv2rPj+0CaW7zmEqgB+f5nttvH3KOnpBry
O0EAHl9fWh2TAYgkSTNSUj5i+1QpH2MogysGVrGO45i0qkMQ4MVrLoFVsJgFie3UXmT3Uh9KqmE981dS
DbOZv6XdvwYgkiTNTJbyQYpFHHQsVT24YmC1b3A1NJ5kL3VDN42DwDju0cPqU9n91FWXFdxqS6pjMgCR
JGlmSPeYOuWjT6WOox5clTqOtoOrvrGKEQNI9wBRG0Ps0cO9T2phXMGta6rhkuqYDEAkSZoZZj/GTvno
W6njqAdXQ9dx7EKKCnUeSyvW1TywMAQLRMT2Q/boYXavpBoy61dWcOsr1XBJdUwGIJIkzRCD9rj0Z98p
H30aenB1KAaGpFXxVNgldnUslsbO9ujhHsvuP4y1glvBPR/7N1cGIJIkzRArYcWUj6mW/swwuIpFsgyu
pqzjYIaIII3UmPq6SX0gANm3Rw8zfLGOg5m/sVINl3LvG4BIkjRDLP15bMpH344tku0bdRysDmYdh8aQ
7dHzn/7Gjc3vQKzj4Hclu2eH9omr77vQv7kyAJEkaYZ40squ6LF9V8rHkOYwuCp1HKZVaQpljx7+JBhh
RoTf0a++9P7JV3Aj8FjSzJ8BiCRJM8UAJy79yUAjG4gMjeBj7MCj1HEsbXCldeJ3kd9JVsRiJqSkYxEU
Z/fvUEqq4ZJn/gxAJEmaqTLQqduOXfqzK/LYmf3IXuvTGgZXOi1D79HDzB+phmtawc0ARJKkmSLVgyAk
tjMgyQYqQ6K4llmQ7LVjrHFwpdOT3dtdncIKbgYgkiTNVEn5iO1jp3wU1IEcm+fO4Mo6Dq0NCyJk93sb
ZQW3U0o1NACRJGnGKHLdt/TnWMoyu9lrTU5xcKXTc+gePae+E78BiCRJM8ZqOyzJW7cxc5ANaobGcqPs
+5G9Vjv1wZVOD/d69rtQ1Cu4Ze8/NQYgkiTN2Ndvny/9GduPSfnoiv0+2HQwtjPLweDKOg6dMn4Pyu9E
vYKbqYbbDEAkSZqxV568uam94M+6ncLtOggYCzueZxsP1n2TThGzfjDVcD8DEEmSZu6Hr53PhNRt+1I+
hkIKFqlYsd3ZD0ltGYBIkjRz3//Mudhep3yMhSJ0itFjOzMysX+SlDEAkSRp5l7/jfNZkNjO6lIxEBga
y/CSEhbbKbKN/ZOkjAGIJEkLwKCffUHqtkOX/uwLhehsTBjbLbaV1IYBiCRJC8BKWOyMXrdR7BqDgDG8
/MLDZy8+t10E7xKjktowAJEkaQG+/dz5niCxneU+YyAwtNu3Lp+9+er1rXaW4o39k6TIAESSpAVgN3R2
RY/t7DUQA4GhXbty1yYljD/rdoKh2D9JigxAJElaiB9/6zwQqdvY6KwOAsbCDAgzIbHdPRAk7WMAIknS
QpCCRSpW3UbhdwwCxkANCLUgsZ2AqO6fJEUGIJIkLQRF6D/4wnY7S+DGQGBorILFalixnZSw2D9JqhmA
SJK0ECzDSxpWbKf4OwYCY3jrjRubfUHqNjZHjP3TdEjZYx8ZdtL/7vPNeJ3jkJ1H6pMBiCRJC0Ihehwk
svxtHQSMhR3R2Rk9tn/6oQ9c6J+GR3DKDBk75rNkM4EqCwWwgSX/RhZ4FOUYjud9vJ9/cz7OG/egkY5h
ACJJ0oIwIGTAGNtjEDCGO89ePfvSZx/dameDxNg/9euVJ88DA+qCCEoJGEjP494gQD02YOD9ZdaEQITz
8zl8Hu18fvY+qQ0DEEmSFoTBH0+pY/tT927vTD60j3zoXZs0rNj+9Lsvb/VPxytBB4EGsxT8yaIEcWW0
ofA5fF6ZJeHz6U92rLSLAYgkSQvCIJTBX3wCzaxDDATGQCE6gUhsr/um4zDwZ+ahpEUx6J96BoIZkhKM
0C9m5kzTUlsGIJIkLQyDPmZC6jbqLmIQMAZSsEjFiu13Hnz8Qv90OFKpSvrTnAf4JUAiMOZPAxHtYwAi
SdLCkJfPgDS2swJVDASGRhE6xeixnZW5Yv/UTgk8qLmYw2xHW/STe5OAyUBEuxiASJK0MAxQGZzGdmov
YiAwNJbh5cl3bGdvktg/7caAnboKBvBxw8klKYEI9wWB8lICKI3HAESSpAVicBefMLMLeQwExvDmq9c3
GxPGdnZpr/unZmXAzp9DDdj5PkiNe+a+BzYzVCxcgDYzZ+VY3sf7Oc9Lj3ww/ZyiDqhiyqBOmwGIJEkL
lK1AxIAwGzwO7eUXHt6I7exPUvdP26ifoKaHlKu+V7PifmBxAmbGHrr74oaRfSF44fx8TtP+LwQfzNhx
zzobIhiASJK0QKTokGcf24caaO5y+9blzSxIbP/Ypfu3+qef4Ttk1qPPdCuCAGYpprgPwOfy+TEYIfAo
K3k5GyIDEEmSFoin5QzmYjuD/mxgOKRrV+7aDKT5s25nMBr7p/PBOLMBzHz0MevBTAdpUVMFHU3oD/2q
U7UIPrhvs0UUdDoMQCRJWijSWuIAlrSnbDA4tG9+8fHNTEhs31cncGpKyhWzAcemI1GHMUXA2QX9LEsz
l2tA2pkpWafJAESSpIViEBvTdyg0zgaAQ3vxuQc2e4LEdgrj6/6dsjJrdWzKFQP5KXa+7wP9pv/1LJBB
yOkxAJEkaaEoQmcQF9tZAjcb/A2JVbDYFT22U6Ac+3eK+K4IPuLCAYdgNmmpgUfEfcHPU+pC+khF03IY
gEiStFAsc0rtRWwn7z4b9A3trTdubPYFqdtYJSn279SU4IP9W7LX92FWi8Lu+rquBffqd55/wiDkxBiA
SJK0YKSwxIEtKS7ZYG9o7IjOzuixvWl51lNQgo+ug2u+y7kVl/eNn++//qNfMQg5IQYgkiQtGKsJZSsK
ZQO9od159uomCInt7BER+3cKCAy7DqrXPOvR5L/89uOb62VNyPoZgEiStGAsa8osSGwnxz4b5A2J9CvS
sGI7dQuxf2tH0MFgukvNBzNGU9TxzMFXX3r/2f997QmDkJUzAJEkacEYqFEHEgdszDpkA7yhUYj+kQ9t
D57rvq0d3wVLJHcJPlhGmbqZeP1OyX///PvPfvAfb6TXR+tgACJJ0sKxn0LcXZqn6NngbmgsxUsqVmwv
e0CcAr6PbJf6faYKGueGDS3ZWf8bv3M9vU5aPgMQSZIW7rvP5wPeKZ6kU4TOpoSxnXqG2L81oh4nS4nb
ZykbCo6FWTTS+f7t339/er20bAYgkiQtHPUGpPzE9ikGtTy9JiUstlPTEPu3NqXonOWRs9ebGHzk2Fmf
IOTvPPrz6XXTchmASJK0AtnAl13Is4Hd0EifYfAY21nZqe7fmpS6j5gKt4/Bx26k9LGyGtcpu35aJgMQ
SZJWgB3RY9EzO01ng7qhvfzCwxuxnYCo7t+akHqV7Uq/i8HHfsyosbABAS2bFmbXUctjACJJ0gp8+7l8
ADzFJnYMFpkFie1rfYpdUq8OWTp2qt3ql6ikYhGMrDmIPSUGIJIkrQDpVwyCY/tUm9lRB8KAsW4jGIr9
WwOKzgkAs9cyU6XGLRlpWGVW7ZRWVFsrAxBJklaCGoS46zb7SsTB3BhYCYsVsWI7aWF1/5aOtLdsAYAm
Uy2PvHRscklQy5+s7ra2++jUGIBIkrQSLMXLkrx1G4Xf2YBuaC8+98CmgDi2s9dF3b+lI/ggBSt7LeK7
mCIlbi24p5gJ4e+sqrbmRQ3WzgBEkqSV4Gk8m+DF9qfuvbQ1mBsa+zhQPBzbn3735a3+LVXT9W7Czx6v
h9ojpY9akLLT/qnsLbNGBiCSJK0ERdCkqcT2sQueSZMh/aqkzNSvkT4T+7dUh8x+uMt5P+LMmvUgy2QA
IknSilAQHfeiYJBWD+L6xpNpViqiSJjVrwg8SJW58+zVrUJ0UAdR92+JmP1ou+M59QpT7Eq/RtxPdWBL
SpupWMtjACJJ0oqwHwVie98DYNJgeBpNsTkDQgIPApBbH92f7rWG/RxIvYr7rjQx9apfzIDU+8yYirU8
BiCSJK0Isx/Zk/ljB8E8cWZGg5kN8vCp72AgyMxHNsuxCzUpsX9Lwkpj2ZLHmaFnn04RwS/3YN22hlm1
U2IAIknSyjAjETfFO7QGgaCCOg6CDIINBnwEH7TFuo4u6r4tTdMsU2Yuq14xaOe7Y9YqIojs4zsdEzNu
9TLPSw9qT40BiCRJK5OlB7XZf4L0qbqOg/QqBqhl1aE+sT9J3b8lyfZbyUy94SDfJwFkmbEigIzBB/ie
yzF8/0sIRsps3IU2C9IXwwBEkqSVYVdu9gSJ7fFpPIEFA7lYx8ET8fq4ISw1b5/Ao+3Gg1PNfvD9EUyA
AKNtQFEHLAzu5xyI0Dfu2Tr9j+udfQ+aHwMQSZJWpmmQfPvmL2zSVmIdB22H1nEci43kYv+WoG361RSz
H3yHBJN8r3V60qE4D4ELA3z+zI6Zg5iGBWdBlsEARJKkFaJImkCEonQGzAQkP/rWE5vgg1mPIdKq2qAY
nnqUpRYNU+DfZu+PsWc/SmE2AWVfwSTnZJCPsQPUNriP+XnrNmtBlsEARJKkFfrBF86L0akH+e7z54Nm
9qOoB2tjYKaDZXfX8GT6yx9ut/rV2CtfMQvAd33MrMcuDPKZVZkqaG1Sgq7Y7opY82cAIknSCjFYjith
gYAgDtj6xJN/6jsoMl/bBnEU9hPQZa/Vxtz3g7qNIYOPogQhc5sJIQCJgdHHLt2ffi+aDwMQSZJOCMFB
PVg7FhscMuCm5oEZluwz14JUNmaTstcKgq7sOg2BQmwG4EMHHwVBCOlY2WtTIaUw/vzck+6OPm8GIJIk
nRBmJurBWhfk2S+5jqMrZj/21X+MWXxOwXm9I3gXzFgxY8D3SepYRDuvl5oWApA5FabTl+wa8D1k34/m
wQBEkqQTEwdr+5C2xcwJA9LsfKeCVKcsra1GcJZdw77x1J+UqOy1NggqDg0g+f5ZSY3rMJd6EFLQCMRi
O7Ny2c+geTAAkSTpxOwbJJen4jxFNpXlXJsC9DHTrwg+GHxnr+3CwPzYVLlv/ssbZ3/wyjxSscp+INlr
3rvzZQAiSdKJYVWqeqBW6jhIt1l7HUdXpF7tK0AfK/2K2Y/sqf8ufMd97T7PLBDB2PN/+Rc3580+b0wE
IFlx/JJ32187AxBJkk4MqTfMghCIuGRpO6yAle0uX2PWKA6Ch0AdxiGF56TQ9R1Yci0oyuf+mToIIRjL
ZoOWutv+KTAAkSRJ2oPVr/atgDXG5oMl5ajtcrgEH0OkItW77U8dhDQFIPzssd+aBwMQSZKkPfYFIGNt
8nhI+hVBwZB1EGW3ff4+ZRDC8sBNK3NZBzJPBiCSJEl7sLP812/nr6GP5Y3bYKDddhncoVctoyaG1LTy
77GuQbTrmpz6ym1zZQAiSZK0x749QGJh/1CY/bh9a/9O62PUP2SzQmPuAl/sCkD4Xur+aR4MQCRJkvbY
F4CMNfBuqneoDZ16VWQBCJ87dirWrgCEhQHq/mkeDEAkSZL22BeAjLUBYZsAZKyn/t9+7jw1LbYz+5L1
ayi7AhC+l9g/Tc8ARJIkaY99AUg2+B1CmwBkrL1cshkQjFWQX+wKQJiNif3T9AxAJEmS9lhKAEIqWNa/
ITQFIGAJ3Kx/Q9gVgCDrn6ZlACJJkrQHAUjTKlhjPvF/+YWHdw622c0+6+MQ2IyQNKzstbGK8rEvAHEp
3vkxAJEkSdpj19N+lnrNBr5DuPPs1bPXP9+83O2Yy86yEWHTrNCY12RfAOJSvPNjACJJkrTHXAKQj3zo
XWdvvXEjfQ1Z/4bw5Q+fb0SYvQZmHbL+DWHf0sQGIPNjACJJkrQHqUakHGWvjRmA4I++9sHGAXfWvyEQ
jDVdjyLr3xD21cUYgMyPAYgkSdIepBpRB5K9NnYAQrpRUxpW1r8h7Eq/KrL+DYEZoSd++Z70NRiAzI8B
iCRJ0h5f+fXzQXf22tgByLUrd20G3aRjxdey/vWN2aCmYKwW+zYErsXZ93Z/lgHI/BiASJIktcBA95Un
t9vHDkDALAipR7E99q1v/PzUfuyb/UDs2xBIvXrz1evpa4UByPwYgEiSJLXww9fygfcUAQhP/qkFYVWs
un3oTQjZ+Tzb/Tz69EMfuNCvofDzf+mzj6avFQYg82MAIkmS1AJF19lKWGMNtiNSsJiVqVOxPnXtsa3+
9YXUK9LQslmg6BNX33ehr0Mh+IhBWMT3k/VR0zEAkSRJauH3f6v56X828B3DJ3/z/gv1IB+7dH/av2Px
s5N6RS1M9npEP2Jfh8AsUFYLU8v6p2kZgEiSJLWwa++LbOA7ljoIec8770r7d4xDgw/Qj6yvfWLlq117
ohRZ/3QR9zbfM7N8fNf8PTuuLwYgkiRJLZGClA3Er9+z+yn80AhCSMciHYn0p9i/Lki1KgPSQ4KPsdKv
+Jl37QoPvpesj6eO7/brt2+eff8z57VN3DvM7pFmR9u+PV6OZQAiSZLUUlMdyFP3Nm+ENxZmQEhJ+oNX
rm+eaMc+HoIn4ARbLLfbpuaj9tDdzXty9IngY1/9B99L1sdTxAIK3Lt8pwQcBB78Oy6ssGvJ6b4YgEiS
JLXEU2MGbrH9mfseSAfAY2N1LJbo/dG3ntgES22Wyy0INAg8+PkYgHZJw/n4lYfTfvWt7P+xawNC8L1k
/TwFBKHMaDCzwSwW3yn3BPfwvqDy0FmvQxmASJIkHYDBWZxhGCvtqK1funrP2Xeef2Iz6CwDTwajBCQR
T8EZpJan4l3z/1kCeIzaD5B+tW//D/SVjrYEJYDku+Y75z7le6Xt0Bmxko6VvdYHAxBJkqQDMMAjT75u
m2op3l1K+hFPshlM0m/SbyJ+li6D1NrnHr0xah0M6VcEIdlrtbUvwRvrOPg++a6Pnb3gfiAIyV7rgwGI
JEnSAZg14AlzbB/r6f8hhlqWNxpr2V2QdsVgmzSs7PViiBXBpkZgEes4CEAIRLLjuyIYZQYle60PBiCS
JEkHIgCJg76n3305HQhPbeggZMzgA9S47Nv9HHwfWX+XhECgzEbUdRy0Hbo4wKH4LILt8m9S7KjxYbar
Pq4LAxBJkqQDMQDkKXTdNlYBdhcMxvsYONbGTrsCsx71xou78H1k/Z4zggoC21jHQVrVMSlyXXzvXz9x
9j/+xa9sAsx6ZbM+dts3AJEkSToQA0UGh/EJcT0AnhsGkXcefPzCz9EVg9ApUs5YdvebX3w8fS3i+8j6
PmcEGtxX2fK4Y+D+uPXeq5vA8vaty+m15vXsvYcwAJEkSeqg5OLXbWPtgXEMitO7BiK8b8o9T9jn5NZH
93/+UjcgHGMPjhpF+swUZd9pWeo41tr0cW0NQCRJkjrIZkF4OlwP1uaMgSSDz30rRfE6+2lMHVxR+9F2
9mOJ6VcF99RQe3AwK8TSxKTktZnBYqljZkJi+7GzSwYgkiRJHcVZkLmnYe3CU/Da2PUdu5TajzazH1hi
+lVB/Udfe3BQp0O6HIFxlwCSoO/lF7Zrm47dX8UARJIkqSNmQeKKWHMauK8Fg2D2/sheiwie6u9oaY7d
g4M0OWas+rgPCfhIe4vtx66sZgAiSZJ0BIIPgpCyLOrcdkVfOla8YvaD/T+y16Ol735+6B4cpY5jqGWg
qQOJ1/7YPVYMQCRJko5EGlbZHZ20lzluSrhUb756fZMKlL0WkWYUv5slintw1EodR1wedyhNu84fs8u8
AYgkSdKRylPrMmgkBSYO2HQ4Ag8CkOy1DNc9fjdLRDBLfVFsnyK9j6WPs40fjyn0NwCRJEnqAYXDJRXL
WZDjldSrNpsOguvd92aLUyGt74evbbdT35L97EMq30NsP2aneQMQSZKknlA8XAqInQXpjlWvKH7m6Xv2
emYtsx8giKX2otQVFcw6ZD/70JoCwbpvhzAAkSRJ6klZFYvZEGdBumO/jyztp8maZj8KZkDq1dVA3UX2
8w+N7yILBrtuaGkAIkmS1CM2kaMehMGjsyCHY7BL3UfcgXuXpa98laEGpCxsUJsiqKUIPVsGueuskwGI
JElSzwg+yo7WU+8gviQMdA9ZchdL3/ejCQsaMJsW24dabncXvg9SwmI7RfGxf20YgEiSJA2ADeUIQn7v
r0+TNrM0JfhoW3ReHLMc7Nwx6GeFtbptqn1mmJXKdqLvkvpmACJJkjQQUmgIQv7Z0w9tDdz0M12DjzUV
nmdY0IBAtm5jH5DsWgyN3eiz/Vg+de2xC/1rwwBEkiRpQH/4u+dByN/+K+/dGrzpPPjgST9/Zq836Zr+
syQsZsD9E9unSOu7fetyuifLrfde3erfPgYgkiRJA2Mm5M/eDkIOfcK/dl1nPijEXnPqVVEWNIjt7IKe
XZchsSgAgWJcHKDL7vMGIJIkSSMgleZHbzyxeZJcD+BOFSk9XYIPrHHVqyYUohOI1G2kPWXXZWgsj5zd
v6SF1f3bxwBEkiRpJAQhf/p2EHLIBntrwxN0lnQlnadL8NEl5WfJSMEiFatuo/A7uzZDowYk25/l0IDQ
AKRnLJmG7DVJkiSeZv/x1351Mwg/ZK+LNSDgIPDo+rOTepRd0zUjaC2769eogcmu0ZBYBYsd6mM7SwPH
/u1iAHIk/iNCVMqNQV4csptEkiSp+PdP3Dj7xr97fDOYy5Y2XSNmfRgnZSsptcGAe227nbfBMrxct9jO
TFB2nYaW7dNCTU7s3y4GIAfiJiASZTqMnLwSdNSyYiFJkqQag+nf+ScPbAZ01EOsdTaEwSq1AwRbXYvw
TzX4KH742naGzZ0HH0+v1dCYvcpWLDtkUQADkAMx25EFHVEsFpIkSYoYtP3a9Xt/OkBfW4E6sx3HBlin
HnyAVdS++/x2e3a9hsZMFkFIbP/4lYe3+tfEAORABBZZwBFlN4kkSVLE4JpBdlmSlmBk6WlZ/CwEVPws
XWc9YPBx7uu3z2dBYju1F9l1GxLfJ/dpbH/q3ktb/WtiAPI20qpKHUf2ekSKVQk0SMMiHYvItA5A/uRL
+XslSZKiEoQwS1BmDVht6JjB+xRK4IEsTecQDK4NPs698uT5+JI/63ZmHbJrN7SmdLq6b7ucZADCl9dU
x0GEmb2nxuwGAQuBS2krN0atfo8kSdIuDLbLBnN1INK098Jc0Nc+Aw+c4mpX+/BwO45TSeHLrt/QCI6z
paSpS6n71+SkAhBmKZi+ioFCjWOy97bBjVGfq00wI0mSVHvmvp+tEsXgnoFeGdwTlMQViKbCE3AGoiVI
6iPwwCltMngIHoDz8Dy2swJVdh2HxHfNdx7b2+7RclIBSNOqVbUsv64tboz6XMcEM5Ik6XTxJDkOLJkF
YcDPGIO9NAhMxk7RojaFgnKCIQIP/t5XH0hBO2QlpVPDKliMZWN7mTUbE4Ex92Fs5zuM/cucVABC1FgH
CEWp4yAtq06rOhQ3Rn1OC9ElSVJXpGRlRcYl5anMPhAMlJSYvovXOR+zLqx6VD6LoKPvlDCenFvvsR91
yHGsyoxRdk2HRhCc3QdtvseTCkBIiaoDD2Y7+l4ul9oQl+CVJEl9+dS1x3am2TADUZZGJUBgjMPgkBQZ
ggcQsBBMNOH9HEdwwfvq8xDc8P4hUr8euvue1nUDOl8wiQfmddtLj2zvTD4G7hXE9jYpdCcVgFgoLkmS
loinynVtyD4EFTydLgEIwQmBRROCjHIs7x06tYuAip8n+1nVrGnVVgK57DoPifuLADW2t1lA4KQCEMQi
9LirZIaZE1K0KDIHtR3HpGpJkiR1wdPuKXL++0T/Tbfqhiwb0rBiOyls2bUeGmNpUgLrNoKh2L/o5AKQ
uF/HrkJxZkziylY1azzWJ/ueu/jj/9Du3PGYPn31b948+84/P+/Ln71x8XNp+96nb5594x/m743e+trF
92Pfe//fV7bf89/+Xn5sEfuJ//xX82Ml6ZQtMRChv/Q7+3nUHnXGMd2fNL3smg+N2bNs9bN93/PJBSB1
oTh2rXq1K/gomArL3qtlyr7jLqYMQAgMsoChCccSqGTnKv7Py9vv2/UegoZ4PAh6suPxyl/aPp6AJDtW
knSOgR6pTFMsxdoGT8PpnzMe/SErJ44/ub7Z9R8aKXuk78V2Nkis+xedXACCeoDTFIDEgvUmTIPFXSm1
XNl33MUUAQgDeD43+5w2mLFg1iQ7N8FGPD77GYv/9cnt48FnZMeD2ZF4PIFPdqwkaRtPwbNVs8ZGMMRs
B/3J+qnjUITOQ/LYzhK42fcxJGqFWLAgtnMfxv7VTjIA4YsjwNgVOMQlewlUqPvgfQQd9Wu0ZefQ8tTf
6zHGDkAIHA6Z9WjCjAPBQzx/Fhzsmp3IZkyKppSqLMjZNzMjScox+CcIGKs4mc+hDsGgY3iMR/l/ZGw/
ZJGCPrE8c1whjSA09q92kgFIGzH9qi46jxsOWguyHvX3WjAIPlQ2iM/OHY/pgpmPrHaixswDQVGRHVPL
ajWy45qCiV39ya4NsqBlX82IJGk/0rQIDBigPnXvpaODEt7PeTgf57WuY3w8GI8LKbGccfZ9DY0V1ljG
Obbv2lTSAKRBDEDqWY44O2IAsh7191pkx3Ux1LmbAgqCAIKhLEggaCEQaJo14b0cU78n+5ysED2bLan9
73+z/R5kfYl9kCT1hwEig1YQTDQhyOAYdymfDxZRyhZSikHAGChCJwiJ7dw7sX+FAUiDuFoWaVcEGjH4
QNNSvqxQQJEQwYxByjLE7xbZcV0Mce5dtRZN9Rw1BvhN6VIxUKCAPB5DgFMfA9ricbUsdYt+xON21YtI
knTKeDCe1TFPUQNE+hVpWLGdWbLYv8IApEHJr9uHpdCy98fVtrJioSF89pEPnv2D+x86+7V733N2+Z1/
bnMD8Cf/pv33Hv2L6fuacPw//vlHzv7We65cOCceufvnzv7an/8LB5/3Xz30gbO/e/na5nycg3P96s+9
66d9/Ke/8Ivp+8Bx5fML3pMdW/vtB35p6338LLHf9XdW1K8fY4hzZ7MG2ezFPk2zKPXsSRbs8L76PCBw
qI/J0rFicJTNmjTNlEiSpPP/V8Z6ZlafiuOdMVCInm1eWfetZgCyQ6z1iJgViesw1+LxQ66WxUCaICF+
8RGDbgKK7Bw1jiEgyM6RaXNe+tj2nAQmWWDBZ2THxuOi7Npk54/fGeIxXfV9btKfsnO23dujRsCSBQr1
srnZ0rpxNiObychmROLMSZtjJEnSz/BwOy6ERJpcHO+MoeykH9ubFiUwANmDFKq46hWyTWCiXXUkfWJG
IZsZ2IUBeXYuECjUMx2HaApCOOehfUQMEpr6xjWoj6sxKxSPB+3x2Pr7KuIxXfV9bmYI4vmOSVvKUqzi
+bIgpZ5tyWZJCFzirEg8b5YG1iaFTJKkU1VKA2L7WCuf1W7furzZlDC2szJa7B8MQFpg5oLggS8aTTUf
UZxB2bXrelddB/bYlbrEa9l79iE4yAb22fnoN6lYvEYqVwwseD2eB9lsxq6AKvvspuPr76sgPWifNilP
2bmz49rK0qaOmTVgwB/Ph/qYfStVxaCoBBpZcFNfsyyVrLwmSZK28SA8KwWYYof8a1fu2vy/mz/rdvYm
if2DAciAuDHqAVVTvcgxGLjXXzQYuFNHQXDCMaUuJJs5yIKFgtQmECRwvvpY/s5sR3ZOPqs+D0qtx65j
QK1GqTUp/Y+Y7ajPBY7PjkXWx6YZk/r7OkQ9CG+SvS87rq3sfG36scu+c+5LlYozJCWFi3PU7SjL8WZp
W1ltiSRJuogsnXqrCHzi6vu2xj1jePPV65uZkNieLdN88gFImd1oWs6si/qccWAVb5JjZIXVBCTZsWDQ
HQfju45vCgBqbfsQj9lVaI59nx0DGmTpX1nNCAFOPK6I31dbpxKAZIEEsyK8ls2g1PUoMTgpRebZOa3/
kCRpvx984bxcoG5jwB/HPmN4+YWHN2I7AVHdP5x8ABIHPtkxbRB0kHIV6z4idmHP3t9Floq0b+CepSO1
CTR2iefLBvgxYODfBAe7ajd2yX6OLPDJit53BT/Zd9bGqQQg2WwF6VO8ls2OlPchpm+VAvbsfV0K6SVJ
OjUEHwQhsZ3Upzj+Gdqtj17azILEdlLCYv9OPgBhDeV64NO1UJwApD5Pk6xYqKuutR8RsxjZ+cFgnUAn
DuT5N+1tZxiyYKlGQML7SPfinPuCIl7PzlOniWWpWnxOfZ4o+87amCIA6bsGJJuJQDwuFpSDwCS2l5mR
Igs0mDXJ6kqadliXJEk/Q2YNaVixneLvOAYaA/8PZ1+Quo2i+Ni/kw9A+iwUj8FMwY1Rpsj6TMGqv9xj
ZPUYDN67BjhZAELAcMj5SBVrqhMpsqCmfs++1zPZ95cd10Xf555iFSxkn5stCRyDoWwZX46JBehlRkWS
JO2XrczK8rdxDDQGVsJiZ/TYHnfRP/kAJG4YWO8qyWsEJLTF/LpMHcyU3c/brpjVRfxyu4qDcoKFrHC7
rSwAKefdNxMSMSOSnQtZ/UmZ4chmSPiZaI/nqdX3QpEd10Xf5x57H5Aim8nIZkWyWYwYbGTvizMnkhTV
tZZ9ZhZIS8TvAGPOuu1zj27vTD6GO89e3ewJEtvZILHu38kHIIj7fGR1HFl+XcTsBv9B5D+M2et9Y6Af
v2CCiUPFFCwG/fG8fBapURxb8N5sFa6mAKQgCOBcvJ9j982M7FupKx7P7A3nju27gpkifu/IjutiiHNn
y9cSSNRL3LbRZif0omm53lrTLEY2yxIdk0Ymab14oFfXWvJwsDz4G+v/u9KcMO7kATm/C/xexNefuvfS
1lhoaOyGzq7osf3pd1++0DcDkLcRXNQDoCbZe6eUBQoMvLNjDxEH9fsCivrYNsc3IXDIAppdP1MWaDDL
kgUmuwKZYsjvfYhzZxv/gZmFNhv5EahkNRgoq1RlsuNr2cwJmmZtascW0ktaB1JKSoEtDwpJM+FJb3zQ
x8Cra/2mtCTc9yxmxO8Bvw8lxZ+2LMX/mfu2dyYfw1tv3NgEInXbe95514W+GYC8jf/AZQOhKObXTY0B
df3lgjSjXStLMfuwLw0pnnNfUBOPbwpA6FebICCeb9fnZ6lWGYKS7P1R9r1nx3Ux1LmbZi+YCWE2IZvF
IPAgeMlmUMp7d82iNH1m0ZQGxjmz42vZ+ySt36GDq4JZENOwtFZ1OQD/jywp/m3GpHce3N6ZfAykYJGK
FdvpT+mbAcjb+BLjIAhlenfIOo5jNdVU0F4HIgz8GcgzM7AvSIn1H7ynKWjJ6jCyAIT3l1kJ+tYUiGSr
au3bM6TpGtRimlmT7D7IjusiOzcBwqHiDAGD+qx+o8aMCEFDkR1T2zcLQT+y9xVdg5es6F3SepU6jnpw
xUPBQx74cewQG/1KU+B+5negTjXkd6TrLB8zD9m4aEgUob/++e0ieGZkSr8MQH6C/3ihfMlLySdlYN9l
tSqCjKZBeTag53hSvghiwN+zNCdkAUiWWkW/+axyvuznoC2eK8qCoFqbcxT1YLjIjusiO3cXDP7juUm3
aprNOASBTNmhfJddqVQEGNl7il3BS1PqlqR1YHAV6ziOGVwVzJb0ucqkNBbuW2b5YqohbX2MRam9yMZG
Q2IZXtKwYjs1KaVfBiAr0DUIaZrZYHYizoIcIgYg+wKEJvtmampNwRCYVcnek4kDYmTHdZGdu4ssAAGz
Dm1mN5oQwLSpG0G2pG7R1L9iVxF7m+BH0nIMPbgqSqpW9po0J9z3ZeaP34eSanjozF9brD6VjY2GRiE6
GxPGdlbnol8GICvCTEL8opsw49CUVgUG/rsG9QXBRtaWnS+bBWnCOdrUixRNPzs/Q3Z8k2xQnB3XRXbu
LvYN8JmdOGQ2pNSKZOfapekz2gQxTSljbQMgSfNUBlexjoPB1ZAzFJyfz6nbGOi8dMD/R6ShlBXcYh3H
GCn+7L+RjY+G9vILD5+9+Nx2ETz7k9AvA5CVIahgMM4Avg4g+DsBAK/tCjxqHMfsQQwySupUSeGqX0MW
gBTlnLyf48pMC/3j3wRGbWc9apw39gP8vNnxTeKAGNlxXWTn7qJtsMBgnmOZFYkDftpId+qyZ0iRrZ5F
UJIdG2WbGdLH7FhJ83ZMkWxfCG4IdihyZQfo6/ecZwXUKR/SWEodB0ExvxNTpvgTgExRB3L71uWzN1+9
vtXO7yf9MgDRKjBbEm9ytA22JEmHY3BV13FMMbgixYRAg5SPuPQnsvdJfSqphvXMX0k1HHLmL8Os3yeu
vu/sY5funyTwKK5duWvz3wf+rNsfuvueTT8NQLQKWXoXsyzZsZKkfjDbMWbtRRlcUVgbB1cs/bkr5UPq
S13HUWb+hqzj2IVUQ+5xZhYY3Mf7f0rMgDATEtv5PTYA0eLUsxpNtSWkdh1SQyJJOhypVjzpzV7rwyGD
K5b+/OYXt/c9KCkf0jGaVnCbYqsGUg1Z0rakGs4VDwSoBYntPEQwANHitCm2P7T2Q5J0OAZlpJxkr3XV
dXBVUj5iO+fJPkfahdSpUsdRr+A2ZaphNvM3Z6yCRWpkbCc9zABEi7MvAGFGJHufJKl/DM6OyXOvB1fZ
f9MP0ZTyUZb+lJoQVMQ6DoKPqes45pZWdSj2A2FfkLptE0RlP7g0Z7sCEOs+JGlcJfc9ey0z5OCKdI+m
lI+sLxL37pQruBUl1XDuaVWHYkd00iO3XssugjRnMQCh3oNZj6ad3SVJwylpKtlrqOs4hh5ckfKRLf1J
sJP1TeL+JfDIXhsSM3+kGrKCW7xf1+TOs1c3C0RsvZZdFGkJDDgkaXqkp5CuEtup5ZhicMWT7JjyUZb+
lKIh6pgyu1ZwWzOWxiYNa+u17CJJkiS1xQAupq0w67E16BgBK2FlKR8MAOv+SQUBdN9pV2Xmbw11HMdK
9+jJLpokSVJbFO6SO1+3MQC7MOAYSVPKB4Xudf+kgvv3kDqmJnEnfp3j95Hfywvt2QWUJElqi6VJszz6
KVKweNKaLf1J6kvsnwRWutpVx9SkzxXc1izdoye7oJIkSW2xhCm1F3F/BIpsLww6RkLOeUz5IO++7ptU
UMfE/Zu9VqtXcDulOo5jUZO1tUdPdoElSZIOwVKmzITUbTwhvjDoGAlLf26lfLyNFJm6f1JBHVO2q3nb
nfi1G6vTsUrdT9vihZYkSTrU9z9zLrZP8aSYlA+CkNjOjEzsnwTu3VjHhHgPqZutPXrihZYkSToUT4+Z
BYntU+THk/KRLf1JTUrsnwRm77L7d+37dIzl9q3LF/foiRdakiSpC/K8yaev2yjSrQciY6EQ/ULKx0+w
OlfdPwlNdUxT3b9rc+3KXZvry5+btvoiS5IkdcVKWKwoVLdRuBsHI2Mg3ePF57aL4Mnpr/snFXOqY1oT
HgTwu8isJDMhm/b6IkuSJHXFXgrsqRDbpyjg3Ur5+AkKimP/JFADMpc6piVjBToWgaAOi1kPfg95IMDv
pDMgkiSpV+wmzWpCsZ1lS+MgZWhbKR8/wSZxsX8SqGPK7l/3+diNmisWfmDDQWY5wN9p47XsPQYgkiSp
Nz/+1nkgUrexd0I6CBkYT15/mvJRIS2s7p9UcP/GOqap7t+5Iqjn94pZDWqtCPTL0tdx/51G9QWWJEk6
BilYpGLVbRR+p4OQgZF3fmHpz59gQFn3TyrYEX0udUxzUuo42NG8pFXx72yhh1bqCyxJknQMBm8M4mI7
qU/pQGRADI54QhvbSQmL/ZMwpzqmKdV1HKRU8Xu0VcdxjHiBJUmSuiJ9hTSW2E7xdzoQGRhPa2MeOkXF
sX8SSB/M7t8p6pjGVNdxEGwQdBB87KzjOEa8wJIkScegkJeC3rqN5W/TgcjAyiAqtrO8at0/qeD+jXVM
U92/Qyp1HKRTEaiTXnVQHccx6osrSZJ0LJYyZUnT2J4ORAbGgIqnurGdDeZi/yTMqY6pTwQWsY6DAKRz
Hccx6osrSZJ0LDZzY1O32P7UveMPdBh0kU4S21laNfZPAnVMbKoZ26eoYzoGqVOxjoNgvLc6jgNRR0Mq
22ZVsXhxJUmSjvHKkzc3T1j5s25n1iEbmAyNgVeWVlL3TSqoY+L+je3P3Le9s/6cEFRkdRwEIYPUcexB
rRWBPr/3MeXRAESSJPWOGRBmQuo2BiHZQGVoDMgYhMX2Ow8+fqF/S0BQx3UlzS3W2ag/3L/x+nK/xHto
aqRPxToO0qxGqeNIMMtJoLbvd8sARJIk9Y4aEAbJsZ2notnAZUg8FWZgFtsZKMX+zREDYa4naUEMMhkc
8/fs+qofXNvs+sZ7aGwEFgTTsY4j23BzDKRVscIdRfrUycTr1cQARJIk9Y5BM6sJxXZSMrKBzJBIP2Gw
FtvJ6Y/9mwNWYKIImv1UWBKW68hgmJmPktbWdH3Vj6Y6prHv37I8bqzjoG2KOg4eIJQ6DjZojNenLQMQ
SZI0CAb95NPXbZsC1GRgMzSeFGer/Rzy1HYoXCMKn1l9iaCCoKPsyB2vX43jdr2u43D/jl3HRFBRlseN
dRxTpVU11XEcwwBEkiQNogyi6zaemmaDnKExoENsJ3Wk7t8Y6joOnrIz0CWlilmPuP/ELtn1VX/4Tsao
YyIwpm4j1nFMsjzu25gZJK1quBqpm2f/Hwc5UQ+qYgZXAAAAAElFTkSuQmCC
</value>
</data>
<data name="PictureBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 3</value>
</data>
@@ -976,7 +1201,4 @@
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="LabelVersion.Text">
<value>Label8</value>
</data>
</root>

33
app/DD_Clipboard_Searcher/frmConfig_Basic.vb
View File

@@ -1,5 +1,5 @@
Imports DD_LIB_Standards
Imports DD_Clipboard_Watcher.ClassHotkey.ModfierKey
Imports easyFLOW.ClassHotkey.ModfierKey
Imports DigitalData.Modules.Database
Public Class frmConfig_Basic
Dim WithEvents Hotkey As New ClassHotkey(Me)
@@ -32,13 +32,10 @@ Public Class frmConfig_Basic
MyConnectionString = con 'csb.ConnectionString
'clsDatabase.Init(MyConnectionString)
If chkbxUserAut.Checked = False Then
Dim wrapper As New clsEncryption("!35452didalog=")
Dim cipherText As String = wrapper.EncryptData(Me.txtPasswort.Text)
Dim pw As String = cipherText
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
con = MSSQLServer.EncryptConnectionString("Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";")
End If
'SaveConfigValue("MyConnectionString", con)
CONFIG.Config.ConnectionString = con
CONFIG.Save()
@@ -126,14 +123,26 @@ Public Class frmConfig_Basic
txtActualConnection.Text = constr
chkLogErrorsOnly.Checked = LogErrorsOnly
Catch ex As Exception
MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Error in frmConfig_Basic_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
LinkLabel1.LinkVisited = True
Process.Start("http://www.didalog.de/Support")
Try
Me.LinkLabel1.LinkVisited = True
Dim oSql As String = "SELECT CAT_STRING FROM TBDD_CATALOG WHERE CAT_TITLE = 'DDSUPPORT_PORTAL'"
Dim oSupportLink As String = MyDB_DDECM.GetScalarValue(oSql)?.ToString()
If Not String.IsNullOrEmpty(oSupportLink) Then
Process.Start(oSupportLink)
Else
MsgBox("Support-Link nicht gefunden.", MsgBoxStyle.Information)
End If
Catch ex As Exception
MsgBox("Fehler beim Öffnen des Support-Links: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click
@@ -141,12 +150,12 @@ Public Class frmConfig_Basic
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Process.Start(LogConfig.LogDirectory)
Process.Start(_LogConfig.LogDirectory)
End Sub
Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
LogErrorsOnly = chkLogErrorsOnly.Checked
LogConfig.Debug = Not LogErrorsOnly
_LogConfig.Debug = Not LogErrorsOnly
CONFIG.Config.LogErrorsOnly = LogErrorsOnly
CONFIG.Save()

8
app/DD_Clipboard_Searcher/frmConnection.Designer.vb generated
View File

@@ -39,7 +39,7 @@ Partial Class frmConnection
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset = New DD_Clipboard_Watcher.MyDataset()
Me.MyDataset = New easyFLOW.MyDataset()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colBEZEICHNUNG = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colSQL_PROVIDER = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -58,8 +58,8 @@ Partial Class frmConnection
Me.ERSTELLTWANNDateTimePicker = New System.Windows.Forms.DateTimePicker()
Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox()
Me.GEAENDERTWANNDateTimePicker = New System.Windows.Forms.DateTimePicker()
Me.TBDD_CONNECTIONTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter()
Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager()
Me.TBDD_CONNECTIONTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter()
Me.TableAdapterManager = New easyFLOW.MyDatasetTableAdapters.TableAdapterManager()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonAdd = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonDelete = New DevExpress.XtraBars.BarButtonItem()
@@ -437,7 +437,7 @@ Partial Class frmConnection
Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Nothing
Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter
Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
Me.TableAdapterManager.UpdateOrder = easyFLOW.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'RibbonControl1
'

18
app/DD_Clipboard_Searcher/frmConnection.vb
View File

@@ -31,7 +31,7 @@ Public Class frmConnection
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_CONNECTIONTableAdapter.Fill(MyDataset.TBDD_CONNECTION)
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Fehler beim Laden der Verbindungen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
End Try
End Sub
@@ -53,7 +53,7 @@ Public Class frmConnection
Return oConnections
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return oConnections
End Try
End Function
@@ -86,14 +86,14 @@ Public Class frmConnection
oConnection.Open()
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, Text)
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Fehler beim Verbindungsaufbau (MSSQL): " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, Text)
End Try
End Using
Case PROVIDER_ORACLE
Try
oConnectionString = $"Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST={Server})(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME={Database})));User Id={UserId};Password={Password};"
Dim oOracle As New Database.Oracle(LogConfig, oConnectionString)
Dim oOracle As New Database.Oracle(_LogConfig, oConnectionString)
If oOracle.DBInitialized Then
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, Text)
@@ -101,7 +101,7 @@ Public Class frmConnection
MsgBox("Fehler beim Verbindungsaufbau (ORACLE): Fehler im Log", MsgBoxStyle.Critical, Text)
End If
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Fehler beim Verbindungsaufbau (ORACLE): " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
End Try
Case PROVIDER_ODBC
@@ -113,7 +113,7 @@ Public Class frmConnection
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, Text)
End Using
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Fehler beim Verbindungsaufbau (ODBC): " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
End Try
End Select
@@ -168,7 +168,7 @@ Public Class frmConnection
End Using
End Using
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Error while loading Databases:" & vbCrLf & ex.Message, MsgBoxStyle.Critical, Text)
Finally
Cursor = Cursors.Default
@@ -197,7 +197,7 @@ Public Class frmConnection
Try
If GUIDTextBox.Text <> String.Empty Then
Dim oSQL = $"SELECT dbo.FNCW_GET_SEARCH_COUNT_FOR_CONNECTION({GUIDTextBox.Text})"
Dim oCount = Database.GetScalarValue(oSQL)
Dim oCount = MyDB_DDECM.GetScalarValue(oSQL)
If oCount IsNot Nothing AndAlso oCount = 0 Then
Dim oResult As MsgBoxResult = MsgBox("Wollen Sie die Verbindung wirklich löschen?", MsgBoxStyle.YesNo, Text)
@@ -209,7 +209,7 @@ Public Class frmConnection
End If
End If
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Fehler beim Löschen der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
End Try
End Sub

4
app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb generated
View File

@@ -55,7 +55,7 @@ Partial Class frmControlCapture
'
Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add
Me.btnOK.Image = Global.easyFLOW.My.Resources.Resources.add
Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOK.Location = New System.Drawing.Point(12, 190)
Me.btnOK.Name = "btnOK"
@@ -68,7 +68,7 @@ Partial Class frmControlCapture
'
Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
Me.btnCancel.Image = Global.easyFLOW.My.Resources.Resources.cancel
Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancel.Location = New System.Drawing.Point(236, 190)
Me.btnCancel.Name = "btnCancel"

8
app/DD_Clipboard_Searcher/frmControlCapture.vb
View File

@@ -11,7 +11,7 @@ Public Class frmControlCapture
Public Property ControlBounds As String
'Private WithEvents Watcher As ClipboardWatcher = ClipboardWatcher.Singleton
Private WithEvents Watcher2 As ClassClipboardWatcher = ClassClipboardWatcher.Singleton
Private WithEvents Watcher2 As ClasseasyFLOW = ClasseasyFLOW.Singleton
Private Window As Window
Private EditMode As Boolean = False
@@ -28,7 +28,7 @@ Public Class frmControlCapture
End Sub
Private Sub frmControlCapture_Load(sender As Object, e As EventArgs) Handles Me.Load
Window = New Window(LogConfig)
Window = New Window(_LogConfig)
rbControlName.Checked = True
@@ -60,7 +60,7 @@ Public Class frmControlCapture
ControlName = oControl.ControlName
End If
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox($"Control Name konnte nicht ausgelesen werden!{vbNewLine}Dies kann ein temporärer Fehler sein. Bitte versuchen Sie es noch einmal.", MsgBoxStyle.Exclamation, Text)
End Try
@@ -94,7 +94,7 @@ Public Class frmControlCapture
txtControlBounds.Text = GetBoundsString(TopLeft, TopRight, BottomLeft, BottomRight)
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox($"Control Koordinaten konnten nicht ausgelesen werden!{vbNewLine}Dies kann ein temporärer Fehler sein. Bitte versuchen Sie es noch einmal.", MsgBoxStyle.Exclamation, Text)
End Try

76
app/DD_Clipboard_Searcher/frmGhostUser.Designer.vb generated Normal file
View File

@@ -0,0 +1,76 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmGhostUser
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(9, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(108, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Usernamen eingeben"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(12, 24)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(226, 20)
Me.TextBox1.TabIndex = 1
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 50)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(226, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Ghostmodus starten"
Me.Button1.UseVisualStyleBackColor = True
'
'frmGhostUser
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(252, 81)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmGhostUser"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Ghost User wählen"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents Button1 As Button
End Class

120
app/DD_Clipboard_Searcher/frmGhostUser.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

15
app/DD_Clipboard_Searcher/frmGhostUser.vb Normal file
View File

@@ -0,0 +1,15 @@
Public Class frmGhostUser
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text <> String.Empty Then
Dim osql = $"SELECT COALESCE(MAX(GUID),0) FROM TBDD_USER WITH (NOLOCK) WHERE USERNAME = '{TextBox1.Text}'"
Dim oUSERID = MyDB_DDECM.GetScalarValue(osql)
If oUSERID = 0 Then
MsgBox("Username unbekannt!", MsgBoxStyle.Information)
Else
GHOST_USERID = oUSERID
USER_USERNAME = TextBox1.Text
Me.Close()
End If
End If
End Sub
End Class

4
app/DD_Clipboard_Searcher/frmLicense.Designer.vb generated
View File

@@ -122,7 +122,7 @@ Partial Class frmLicense
'btnnewLicenses
'
Me.btnnewLicenses.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnnewLicenses.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.KeyDown_8461
Me.btnnewLicenses.Image = Global.easyFLOW.My.Resources.Resources.KeyDown_8461
Me.btnnewLicenses.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnnewLicenses.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnnewLicenses.Location = New System.Drawing.Point(307, 91)
@@ -155,7 +155,7 @@ Partial Class frmLicense
'
'btnPW_check
'
Me.btnPW_check.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.KeyDown_8461
Me.btnPW_check.Image = Global.easyFLOW.My.Resources.Resources.KeyDown_8461
Me.btnPW_check.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPW_check.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnPW_check.Location = New System.Drawing.Point(322, 1)

11
app/DD_Clipboard_Searcher/frmLicense.vb
View File

@@ -1,8 +1,9 @@
Imports System.Globalization
Imports DD_LIB_Standards
Imports DigitalData.Modules.License
Public Class frmLicense
Dim CLIENT_ID As Integer
Public _lizenzManager As clsLicenseManager
Public _lizenzManager As LicenseManagerLegacy
Private Sub btnPW_check_Click(sender As System.Object, e As System.EventArgs) Handles btnPW_check.Click
OpenLicenseManager()
@@ -48,7 +49,7 @@ Public Class frmLicense
End Sub
Private Sub btnnewLicenses_Click(sender As System.Object, e As System.EventArgs) Handles btnnewLicenses.Click
Try
_lizenzManager = New clsLicenseManager("#DigitalData35452!#", "")
_lizenzManager = New LicenseManagerLegacy(_LogConfig, "#DigitalData35452!#", "")
If Me.txtNewlicences.Text <> "" Then
'Encode the license
Dim oDate = CDate(dtpGueltig_GI.Value)
@@ -56,9 +57,9 @@ Public Class frmLicense
Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & oDate, "#DigitalData35452!#")
Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_CBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
If Database.ExecuteNonQuery(sql) = False Then
If MyDB_DDECM.ExecuteNonQuery(sql) = False Then
sql = $"UPDATE TBDD_MODULES SET LICENSE = '{result}' where SHORT_NAME = 'CW'"
Database.ExecuteNonQuery(sql)
MyDB_DDECM.ExecuteNonQuery(sql)
Refresh_Licence(True)
Else
MsgBox("Could not renew the license!!", MsgBoxStyle.Critical)

58
app/DD_Clipboard_Searcher/frmMain.Designer.vb generated
View File

@@ -65,18 +65,17 @@ Partial Class frmMain
'
'RibbonControl1
'
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.AllowMinimizeRibbon = False
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer)
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer)
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.RibbonControl1.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl1.ExpandCollapseItem.SearchTags")
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.bbtnitmLanguage})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 8
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
@@ -86,8 +85,6 @@ Partial Class frmMain
'
resources.ApplyResources(Me.lblUser, "lblUser")
Me.lblUser.Id = 1
Me.lblUser.ImageOptions.ImageIndex = CType(resources.GetObject("lblUser.ImageOptions.ImageIndex"), Integer)
Me.lblUser.ImageOptions.LargeImageIndex = CType(resources.GetObject("lblUser.ImageOptions.LargeImageIndex"), Integer)
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
@@ -96,8 +93,6 @@ Partial Class frmMain
'
resources.ApplyResources(Me.lblVersion, "lblVersion")
Me.lblVersion.Id = 2
Me.lblVersion.ImageOptions.ImageIndex = CType(resources.GetObject("lblVersion.ImageOptions.ImageIndex"), Integer)
Me.lblVersion.ImageOptions.LargeImageIndex = CType(resources.GetObject("lblVersion.ImageOptions.LargeImageIndex"), Integer)
Me.lblVersion.ImageOptions.SvgImage = CType(resources.GetObject("lblVersion.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.lblVersion.Name = "lblVersion"
Me.lblVersion.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
@@ -106,8 +101,6 @@ Partial Class frmMain
'
resources.ApplyResources(Me.lblApplicationServer, "lblApplicationServer")
Me.lblApplicationServer.Id = 3
Me.lblApplicationServer.ImageOptions.ImageIndex = CType(resources.GetObject("lblApplicationServer.ImageOptions.ImageIndex"), Integer)
Me.lblApplicationServer.ImageOptions.LargeImageIndex = CType(resources.GetObject("lblApplicationServer.ImageOptions.LargeImageIndex"), Integer)
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
@@ -116,8 +109,6 @@ Partial Class frmMain
'
resources.ApplyResources(Me.bbtniKonfig, "bbtniKonfig")
Me.bbtniKonfig.Id = 4
Me.bbtniKonfig.ImageOptions.ImageIndex = CType(resources.GetObject("bbtniKonfig.ImageOptions.ImageIndex"), Integer)
Me.bbtniKonfig.ImageOptions.LargeImageIndex = CType(resources.GetObject("bbtniKonfig.ImageOptions.LargeImageIndex"), Integer)
Me.bbtniKonfig.ImageOptions.SvgImage = CType(resources.GetObject("bbtniKonfig.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtniKonfig.Name = "bbtniKonfig"
'
@@ -125,8 +116,6 @@ Partial Class frmMain
'
resources.ApplyResources(Me.bbtnitemAdmin, "bbtnitemAdmin")
Me.bbtnitemAdmin.Id = 5
Me.bbtnitemAdmin.ImageOptions.ImageIndex = CType(resources.GetObject("bbtnitemAdmin.ImageOptions.ImageIndex"), Integer)
Me.bbtnitemAdmin.ImageOptions.LargeImageIndex = CType(resources.GetObject("bbtnitemAdmin.ImageOptions.LargeImageIndex"), Integer)
Me.bbtnitemAdmin.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitemAdmin.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitemAdmin.Name = "bbtnitemAdmin"
'
@@ -134,8 +123,6 @@ Partial Class frmMain
'
resources.ApplyResources(Me.lblRefresh, "lblRefresh")
Me.lblRefresh.Id = 6
Me.lblRefresh.ImageOptions.ImageIndex = CType(resources.GetObject("lblRefresh.ImageOptions.ImageIndex"), Integer)
Me.lblRefresh.ImageOptions.LargeImageIndex = CType(resources.GetObject("lblRefresh.ImageOptions.LargeImageIndex"), Integer)
Me.lblRefresh.ImageOptions.SvgImage = CType(resources.GetObject("lblRefresh.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.lblRefresh.Name = "lblRefresh"
Me.lblRefresh.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
@@ -144,8 +131,6 @@ Partial Class frmMain
'
resources.ApplyResources(Me.bbtnitmLanguage, "bbtnitmLanguage")
Me.bbtnitmLanguage.Id = 7
Me.bbtnitmLanguage.ImageOptions.ImageIndex = CType(resources.GetObject("bbtnitmLanguage.ImageOptions.ImageIndex"), Integer)
Me.bbtnitmLanguage.ImageOptions.LargeImageIndex = CType(resources.GetObject("bbtnitmLanguage.ImageOptions.LargeImageIndex"), Integer)
Me.bbtnitmLanguage.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmLanguage.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitmLanguage.Name = "bbtnitmLanguage"
'
@@ -171,11 +156,11 @@ Partial Class frmMain
'
'RibbonStatusBar1
'
resources.ApplyResources(Me.RibbonStatusBar1, "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)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
'
@@ -186,9 +171,9 @@ Partial Class frmMain
'
'GroupBox2
'
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Controls.Add(Me.labelStatus)
Me.GroupBox2.Controls.Add(Me.labelRefresh)
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False
'
@@ -204,9 +189,9 @@ Partial Class frmMain
'
'GroupBox1
'
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.labelHotkey)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False
'
@@ -229,38 +214,38 @@ Partial Class frmMain
'
'cmstrpNotifyIcon
'
resources.ApplyResources(Me.cmstrpNotifyIcon, "cmstrpNotifyIcon")
Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenToolStripMenuItem, Me.tsmiChangeState, Me.ClientÖffnenToolStripMenuItem, Me.ClientBeendenToolStripMenuItem})
Me.cmstrpNotifyIcon.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenToolStripMenuItem, Me.ClientÖffnenToolStripMenuItem, Me.tsmiChangeState, Me.ClientBeendenToolStripMenuItem})
Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon"
resources.ApplyResources(Me.cmstrpNotifyIcon, "cmstrpNotifyIcon")
'
'FunktionenToolStripMenuItem
'
resources.ApplyResources(Me.FunktionenToolStripMenuItem, "FunktionenToolStripMenuItem")
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BisherigenAblaufAnzeigenToolStripMenuItem})
Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
resources.ApplyResources(Me.FunktionenToolStripMenuItem, "FunktionenToolStripMenuItem")
'
'BisherigenAblaufAnzeigenToolStripMenuItem
'
resources.ApplyResources(Me.BisherigenAblaufAnzeigenToolStripMenuItem, "BisherigenAblaufAnzeigenToolStripMenuItem")
Me.BisherigenAblaufAnzeigenToolStripMenuItem.Name = "BisherigenAblaufAnzeigenToolStripMenuItem"
resources.ApplyResources(Me.BisherigenAblaufAnzeigenToolStripMenuItem, "BisherigenAblaufAnzeigenToolStripMenuItem")
'
'tsmiChangeState
'
resources.ApplyResources(Me.tsmiChangeState, "tsmiChangeState")
Me.tsmiChangeState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.Symbols_Stop_16xLG
Me.tsmiChangeState.ForeColor = System.Drawing.Color.Red
Me.tsmiChangeState.Name = "tsmiChangeState"
resources.ApplyResources(Me.tsmiChangeState, "tsmiChangeState")
'
'ClientÖffnenToolStripMenuItem
'
resources.ApplyResources(Me.ClientÖffnenToolStripMenuItem, "ClientÖffnenToolStripMenuItem")
Me.ClientÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.door_open
Me.ClientÖffnenToolStripMenuItem.Name = "ClientÖffnenToolStripMenuItem"
resources.ApplyResources(Me.ClientÖffnenToolStripMenuItem, "ClientÖffnenToolStripMenuItem")
'
'ClientBeendenToolStripMenuItem
'
resources.ApplyResources(Me.ClientBeendenToolStripMenuItem, "ClientBeendenToolStripMenuItem")
Me.ClientBeendenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
Me.ClientBeendenToolStripMenuItem.ForeColor = System.Drawing.Color.Red
Me.ClientBeendenToolStripMenuItem.Name = "ClientBeendenToolStripMenuItem"
resources.ApplyResources(Me.ClientBeendenToolStripMenuItem, "ClientBeendenToolStripMenuItem")
'
'TimerClose
'
@@ -272,15 +257,16 @@ Partial Class frmMain
'
'ContextMenuStripForm
'
resources.ApplyResources(Me.ContextMenuStripForm, "ContextMenuStripForm")
Me.ContextMenuStripForm.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ContextMenuStripForm.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MinimierenToolStripMenuItem})
Me.ContextMenuStripForm.Name = "ContextMenuStripForm"
resources.ApplyResources(Me.ContextMenuStripForm, "ContextMenuStripForm")
'
'MinimierenToolStripMenuItem
'
resources.ApplyResources(Me.MinimierenToolStripMenuItem, "MinimierenToolStripMenuItem")
Me.MinimierenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ReduceSize
Me.MinimierenToolStripMenuItem.Image = Global.easyFLOW.My.Resources.Resources.ReduceSize
Me.MinimierenToolStripMenuItem.Name = "MinimierenToolStripMenuItem"
resources.ApplyResources(Me.MinimierenToolStripMenuItem, "MinimierenToolStripMenuItem")
'
'ImageList1
'
@@ -315,7 +301,7 @@ Partial Class frmMain
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.IconOptions.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.search1
Me.IconOptions.Image = CType(resources.GetObject("frmMain.IconOptions.Image"), System.Drawing.Image)
Me.MaximizeBox = False
Me.Name = "frmMain"
Me.Ribbon = Me.RibbonControl1

9387
app/DD_Clipboard_Searcher/frmMain.en-US.resx Normal file
View File

File diff suppressed because it is too large Load Diff

2
app/DD_Clipboard_Searcher/frmMain.en.resx
View File

@@ -4944,7 +4944,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU
CwAAAk1TRnQBSQFMAgEBBQEAASQBAQEkAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CwAAAk1TRnQBSQFMAgEBBQEAASwBAQEsAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

6022
app/DD_Clipboard_Searcher/frmMain.resx
View File

File diff suppressed because it is too large Load Diff

155
app/DD_Clipboard_Searcher/frmMain.vb
View File

@@ -1,17 +1,20 @@
Imports System.Threading
Imports System.IO
Imports System.Globalization
Imports DD_Clipboard_Watcher.ClassConstants
Imports DD_Clipboard_Watcher.ClassWindowAPI
Imports easyFLOW.ClassConstants
Imports easyFLOW.ClassWindowAPI
Imports DigitalData.Modules.ZooFlow
Imports DigitalData.Modules.Windows
Imports DigitalData.Modules.Base
Imports DigitalData.GUIs.ClipboardWatcher
Imports DevExpress.XtraBars.ToastNotifications
Imports DigitalData.GUIs.Common
Public Class frmMain
Private WithEvents _Hotkey As New ClassHotkey(Me)
Private WithEvents _Watcher As ClassClipboardWatcher = ClassClipboardWatcher.Singleton
Private WithEvents _Watcher As ClasseasyFLOW = ClasseasyFLOW.Singleton
Private _Animator As New Animator() With {
.PopupColor = Color.FromArgb(165, 36, 49),
@@ -31,23 +34,24 @@ Public Class frmMain
Dim splash As New frmSplash()
splash.ShowDialog()
Try
If USER_LANGUAGE <> "" Then
Dim cultureInfo As New System.Globalization.CultureInfo(USER_LANGUAGE)
cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
Thread.CurrentThread.CurrentCulture = cultureInfo
Thread.CurrentThread.CurrentUICulture = cultureInfo
CultureInfo.DefaultThreadCurrentCulture = cultureInfo
CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
End If
Catch ex As Exception
Logger.Error(ex)
End Try
' === Language is set in ClassInit ===
'Try
' If USER_LANGUAGE <> "" Then
' Dim cultureInfo As New CultureInfo(USER_LANGUAGE)
' cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
' Thread.CurrentThread.CurrentCulture = cultureInfo
' Thread.CurrentThread.CurrentUICulture = cultureInfo
' CultureInfo.DefaultThreadCurrentCulture = cultureInfo
' CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
' End If
'Catch ex As Exception
' Logger.Error(ex)
'End Try
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
_DataASorDB = New ClassDataASorDB(modCurrent.LogConfig)
_DataASorDB = New ClassDataASorDB(_LogConfig)
End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -57,26 +61,9 @@ Public Class frmMain
End If
lblUser.Caption = USER_USERNAME
If ERROR_INIT <> "INVALID USER" Then
LanguageEx.LogApplicationLanguage(_Logger)
'Dim Culture = CultureInfo.CreateSpecificCulture(USER_LANGUAGE)
Dim Culture As New CultureInfo(USER_LANGUAGE)
Culture.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
' The following line provides localization for data formats.
Thread.CurrentThread.CurrentCulture = Culture
' The following line provides localization for the application's user interface.
Thread.CurrentThread.CurrentUICulture = Culture
' Set this culture as the default culture for all threads in this application.
' Note: The following properties are supported in the .NET Framework 4.5+
CultureInfo.DefaultThreadCurrentCulture = Culture
CultureInfo.DefaultThreadCurrentUICulture = Culture
End If
If Database.DBInitialized = True Then
If MyDB_DDECM.DBInitialized = True Then
If ERROR_INIT <> "" Then
If ERROR_INIT = "NO CLIENT" Then
@@ -103,7 +90,7 @@ Public Class frmMain
_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}")
_Logger.Warn($"Unexpected Error in Hotkey inititialize: {ex.Message}")
End Try
Try
@@ -122,20 +109,21 @@ Public Class frmMain
Else
bbtnitemAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
If USER_IS_ADMIN = False And BASIC_CONF_VISIBLE Then
If USER_IS_ADMIN = False And BASIC_CONF_VISIBLE = False Then
RibbonPageGroup1.Visible = False
RibbonControl1.Minimized = True
End If
If BASEDATA_DT_LANGUAGE.Rows.Count > 1 Then
If BASEDATA_DT_LANGUAGE.Rows.Count >= 1 Then
bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
_Logger.Info("Keine Grundeinstellungen weil keine Sprachen definiert!")
bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
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}")
_Logger.Warn($"Unexpected Error in FormLoad2: {ex.Message}")
End Try
End If
@@ -152,13 +140,13 @@ Public Class frmMain
End Function
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Logger.Info(">> Logout time: " & Now.ToString, False)
_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)
Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND (MODULE = 'easyFLOW' OR MODULE = 'Clipboard-Watcher')"
MyDB_DDECM.ExecuteNonQuery(sql)
ClassWindowLocation.SaveFormLocationSize(Me, "")
My.Settings.Save()
Catch ex As Exception
@@ -168,8 +156,8 @@ Public Class frmMain
_Hotkey.RemoveHotKey(HOTKEY_TOGGLE_WATCHER)
_Hotkey.RemoveHotKey(HOTKEY_TRIGGER_WATCHER)
Catch ex As Exception
Logger.Error(ex)
Logger.Warn("Hotkeys could not be removed")
_Logger.Error(ex)
_Logger.Warn("Hotkeys could not be removed")
End Try
'TempDateien löschen
@@ -177,8 +165,8 @@ Public Class frmMain
Try
IO.File.Delete(oFile)
Catch ex As Exception
Logger.Warn("Temp file {0} could not be deleted", oFile)
Logger.Error(ex)
_Logger.Warn("Temp file {0} could not be deleted", oFile)
_Logger.Error(ex)
End Try
Next
End Sub
@@ -189,28 +177,28 @@ Public Class frmMain
Private Sub WatcherChanged_New(ByVal sender As Object, ByVal e As String) Handles _Watcher.Changed
If MONITORING_ACTIVE = False Then
Logger.Info("Search Flow is inactive!")
'NotifyIconMain.ShowBalloonTip(20000, "Search Flow", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
_Logger.Info($"{AppTitle} is inactive!")
'NotifyIconMain.ShowBalloonTip(20000, "easyFLOW", "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!")
_Logger.Warn("DT_USER_PROFILES is Nothing/contains no rows!")
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!")
_Logger.Warn("DTPROFILE_REL_PROCESS is Nothing/contains no rows!")
Exit Sub
End If
If DTPROFILE_REL_WINDOW Is Nothing Then
Logger.Warn("DTPROFILE_REL_WINDOW is empty!")
_Logger.Warn("DTPROFILE_REL_WINDOW is Nothing!")
Exit Sub
End If
If DTPROFILE_REL_CONTROL Is Nothing Then
Logger.Warn("DTPROFILE_REL_CONTROL is empty!")
_Logger.Warn("DTPROFILE_REL_CONTROL is Nothing!")
Exit Sub
End If
@@ -224,7 +212,7 @@ Public Class frmMain
CurrMatchTreeView.SelectedImageIndex = 0
oProfileFilter = New ProfileFilter(
LogConfig,
_LogConfig,
DT_USER_PROFILES,
DTPROFILE_REL_PROCESS,
DTPROFILE_REL_WINDOW,
@@ -232,7 +220,7 @@ Public Class frmMain
CurrMatchTreeView
)
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox(S.Fehler_beim_Laden_der_Profile_, MsgBoxStyle.Critical, Text)
'MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
Exit Sub
@@ -253,10 +241,10 @@ Public Class frmMain
oProfiles = oProfileFilter.FilterProfilesByFocusedControl(oProfiles, ClipboardContents, Handle)
oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByFocusedControl")
CURRENT_MATCHING_PROFILES = oProfiles.ToList()
Logger.Debug("WatcherChanged_New: CURRENT_MATCHING_PROFILES.Count: " & CURRENT_MATCHING_PROFILES.Count)
oProfiles = oProfileFilter.FilterProfilesBySearchResults(oProfiles, oEnvironment.Database, oEnvironment.User, ClipboardContents)
Logger.Debug("WatcherChanged_New: oProfiles.Count: " & oProfiles.Count)
oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesBySearchResults")
oProfiles = oProfileFilter.ClearNotMatchedProfiles(oProfiles)
@@ -265,11 +253,11 @@ Public Class frmMain
CURRENT_PROFILES_WITH_RESULTS = oProfiles.ToList()
CURRENT_CLIPBOARD_CONTENTS = ClipboardContents
Logger.Debug("WatcherChanged_New: CURRENT_PROFILES_WITH_RESULTS.Count: " & CURRENT_PROFILES_WITH_RESULTS.Count)
_Logger.Debug("WatcherChanged_New: CURRENT_PROFILES_WITH_RESULTS.Count: " & CURRENT_PROFILES_WITH_RESULTS.Count)
Catch ex As Exception
MsgBox(S.Fehler_beim_Auswerten_der_Profile__Mehr_Informationen_im_Log_, MsgBoxStyle.Critical, Text)
'MsgBox("Fehler beim Auswerten der Profile. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
Logger.Error(ex)
_Logger.Error(ex)
End Try
End Sub
@@ -280,13 +268,13 @@ Public Class frmMain
If CURRENT_CLIPBOARD_CONTENTS IsNot Nothing Then
If MONITORING_ACTIVE = True Then
If CURRENT_MATCHING_PROFILES.Count = 0 Then
Logger.Info("ReceiveHotKey - No profiles matched the Clipboard-Content!")
Logger.Info("NOMATCH_INFO = {0}", NOMATCH_INFO)
_Logger.Info("ReceiveHotKey - No profiles matched the Clipboard-Content!")
_Logger.Info("NOMATCH_INFO = {0}", NOMATCH_INFO)
If NOMATCH_INFO = False Then
Dim oMessageTitle As String
Dim oMessageText As String
oMessageTitle = "Search Flow"
oMessageTitle = AppTitle
oMessageText = String.Format(S.Es_wurden_keine_passenden_Profile_gefunden_für_die_Suche_nach___0___, CURRENT_CLIPBOARD_CONTENTS)
@@ -302,17 +290,17 @@ Public Class frmMain
AlertControl1.Show(Me, oMessageTitle, oMessageText)
End If
Else
Logger.Info("Popup will not be shown. NOMATCH_INFO Is True.")
_Logger.Info("Popup will not be shown. NOMATCH_INFO Is True.")
End If
ElseIf CURRENT_PROFILES_WITH_RESULTS.Count = 0 Then
Logger.Info("ReceiveHotKey - No documents or data found for Clipboard-Content!")
Logger.Info("NOMATCH_INFO = {0}", NOMATCH_INFO)
_Logger.Info("ReceiveHotKey - No documents or data found for Clipboard-Content!")
_Logger.Info("NOMATCH_INFO = {0}", NOMATCH_INFO)
If NOMATCH_INFO = False Then
Dim oMessageTitle As String
Dim oMessageText As String
oMessageTitle = "Search Flow"
oMessageTitle = AppTitle
oMessageText = String.Format(S.Es_wurden_weder_Dokumente_noch_Daten_gefunden_für_die_Suche_nach___0___, CURRENT_CLIPBOARD_CONTENTS)
If NOTIFY_MODE.ToUpper = "MSGBOX" Then
@@ -327,7 +315,7 @@ Public Class frmMain
AlertControl1.Show(Me, oMessageTitle, oMessageText)
End If
Else
Logger.Info("Popup will not be shown. NOMATCH_INFO Is True.")
_Logger.Info("Popup will not be shown. NOMATCH_INFO Is True.")
End If
Else
OpenMatchForm()
@@ -340,17 +328,21 @@ Public Class frmMain
End If
End Sub
Sub OpenMatchForm()
Logger.Debug("...now CHECK_PROFILE_MATCH...")
_Logger.Debug("...now CHECK_PROFILE_MATCH...")
Dim oProfiles = CURRENT_PROFILES_WITH_RESULTS
Dim oEnv = GetEnvironment()
Dim oParams = New ClipboardWatcherParams() With {
.ClipboardContents = CURRENT_CLIPBOARD_CONTENTS,
.MatchingProfiles = oProfiles,
.MatchTreeView = CurrMatchTreeView
.MatchTreeView = CurrMatchTreeView,
.OperationModeOverride = IIf(
oEnv.Service.IsActive,
DigitalData.Modules.ZooFlow.Constants.OperationMode.WithAppServer,
DigitalData.Modules.ZooFlow.Constants.OperationMode.NoAppServer)
}
Dim oForm As New frmMatch(LogConfig, oEnv, oParams)
'DigitalData.GUIs.ClipboardWatcher.frmMatch
Dim oForm As New frmMatch(_LogConfig, oEnv, oParams)
_MatchForm = oForm
oForm.Show()
@@ -377,27 +369,30 @@ Public Class frmMain
}
Dim oSettings As New State.SettingsState() With {
.GdPictureKey = GDPICTURE_LICENSE
.GdPictureKey = GDPICTURE_LICENSE,
.CopyWMFile2Temp = True,
.WM_SUFFIX = WMSUFFIX,
.MAP_SHAREDRIVE = MAP_SHARE_DRIVE,
.MAP_BLACKLIST = MAP_BLACKLIST
}
Dim oEnvironment As New Environment() With {
.Database = Database,
.Database = MyDB_DDECM,
.Modules = Nothing,
.User = oUser,
.Settings = oSettings,
.Service = oService
}
Return oEnvironment
End Function
Sub Change_Monitoring_State()
If MONITORING_ACTIVE = True Then
MONITORING_ACTIVE = False
NotifyIconMain.ShowBalloonTip(30000, "Search Flow", S.Clipboard_Watcher_wurde_deaktiviert_, ToolTipIcon.Info)
NotifyIconMain.ShowBalloonTip(30000, AppTitle, S.Clipboard_Watcher_wurde_deaktiviert_, ToolTipIcon.Info)
Else
MONITORING_ACTIVE = True
NotifyIconMain.ShowBalloonTip(30000, "Search Flow", S.Clipboard_Watcher_wurde_wieder_aktiviert_, ToolTipIcon.Info)
NotifyIconMain.ShowBalloonTip(30000, AppTitle, S.Clipboard_Watcher_wurde_wieder_aktiviert_, ToolTipIcon.Info)
End If
End Sub
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
@@ -407,7 +402,7 @@ Public Class frmMain
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")
MsgBox("As an admin You have access! Please inforFm 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")
@@ -494,13 +489,13 @@ Public Class frmMain
tsmiChangeState.Image = My.Resources.control_start_blue
tsmiChangeState.Text = S.Clipboard_Watcher_starten
MONITORING_ACTIVE = False
NotifyIconMain.ShowBalloonTip(30000, "Search Flow", S.Clipboard_Watcher_wurde_deaktiviert_, ToolTipIcon.Info)
NotifyIconMain.ShowBalloonTip(30000, "easyFLOW", S.Clipboard_Watcher_wurde_deaktiviert_, ToolTipIcon.Info)
Else
tsmiChangeState.Image = My.Resources.StatusAnnotations_Stop_16xLG
tsmiChangeState.Tag = "stop"
tsmiChangeState.Text = S.Clipboard_Watcher_stoppen
MONITORING_ACTIVE = True
NotifyIconMain.ShowBalloonTip(30000, "Search Flow", S.Clipboard_Watcher_wurde_wieder_aktiviert_, ToolTipIcon.Info)
NotifyIconMain.ShowBalloonTip(30000, "easyFLOW", S.Clipboard_Watcher_wurde_wieder_aktiviert_, ToolTipIcon.Info)
End If
End Sub
@@ -519,8 +514,8 @@ Public Class frmMain
End Sub
Private Sub bbtnitmLanguage_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmLanguage.ItemClick
Dim oNForm As New frmLanguage_Select(LogConfig, MyConnectionString, USER_USERNAME, BASEDATA_DT_LANGUAGE, "EF")
oNForm.ShowDialog
Dim oNForm As New frmLanguage_Select(_LogConfig, MyConnectionString, USER_USERNAME, BASEDATA_DT_LANGUAGE, "EF")
oNForm.ShowDialog()
If oNForm.pChanged = True Then
MsgBox("For the changes to take effect, the program must now be closed. Restart it afterwards.", MsgBoxStyle.Exclamation, "Restart:")

4
app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb generated
View File

@@ -111,7 +111,7 @@ Partial Class frmProcessCapture
'Button2
'
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
Me.Button2.Image = Global.easyFLOW.My.Resources.Resources.cancel
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(191, 176)
Me.Button2.Name = "Button2"
@@ -124,7 +124,7 @@ Partial Class frmProcessCapture
'
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button1.Enabled = False
Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add
Me.Button1.Image = Global.easyFLOW.My.Resources.Resources.add
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(12, 176)
Me.Button1.Name = "Button1"

6
app/DD_Clipboard_Searcher/frmSplash.Designer.vb generated
View File

@@ -86,11 +86,11 @@ Partial Class frmSplash
'
'PictureBox2
'
Me.PictureBox2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.searchFlow_boot
Me.PictureBox2.Image = Global.easyFLOW.My.Resources.Resources.DD_easyFLOW_BOOT
Me.PictureBox2.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.PictureBox2.Location = New System.Drawing.Point(0, 0)
Me.PictureBox2.Location = New System.Drawing.Point(0, -1)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(800, 200)
Me.PictureBox2.Size = New System.Drawing.Size(795, 188)
Me.PictureBox2.TabIndex = 11
Me.PictureBox2.TabStop = False
'

79
app/DD_Clipboard_Searcher/frmSplash.vb
View File

@@ -1,9 +1,12 @@
Imports System.ComponentModel
Imports System.Globalization
Imports System.Threading
Imports DigitalData.Modules.Base
Public NotInheritable Class frmSplash
Private InitSteps As Integer = 4
Private Worker As New BackgroundWorker()
Private MainForm As Form
Private ReadOnly InitSteps As Integer = 4
Private ReadOnly Worker As New BackgroundWorker()
Private ReadOnly MainForm As Form
Private Sub frmSplash_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = Keys.Escape Then
@@ -33,40 +36,42 @@ Public NotInheritable Class frmSplash
End Function
Private Function bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) As Task
Try
Dim Init = New ClassInit()
Worker.ReportProgress(CalcProgress(1), "Initializing Logger")
Init.InitLogger()
Dim oProgress As String
'Try
Dim Init = New ClassInit()
oProgress = "Initializing Logger"
Worker.ReportProgress(CalcProgress(1), oProgress)
Init.InitLogger()
Thread.Sleep(200)
oProgress = "Initializing Base Config"
Worker.ReportProgress(CalcProgress(2), oProgress)
Init.InitBasics()
Thread.Sleep(200)
oProgress = "Initializing Database"
Worker.ReportProgress(CalcProgress(3), oProgress)
If Init.InitDatabase_New() = True Then
Thread.Sleep(200)
Worker.ReportProgress(CalcProgress(2), "Initializing Base Config")
Init.InitBasics()
Thread.Sleep(200)
Worker.ReportProgress(CalcProgress(3), "Initializing Database")
If Init.InitDatabase_New() = True Then
Thread.Sleep(200)
Worker.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
If My.Settings.GHOSTUSER <> String.Empty Then
Logger.Info($"GHOSTLogin [{My.Settings.GHOSTUSER}] is active!")
LogConfig.Debug = True
oProgress = "Initializing User-Configuration"
Worker.ReportProgress(CalcProgress(4), oProgress)
If My.Settings.GHOSTUSER <> String.Empty Then
_Logger.Info($"GHOSTLogin [{My.Settings.GHOSTUSER}] is active!")
_LogConfig.Debug = True
End If
If Init.InitUserLogin(My.Settings.GHOSTUSER) = False Then
If ERROR_INIT = "" Then
ERROR_INIT = "INVALID USER"
End If
If Init.InitUserLogin(My.Settings.GHOSTUSER) = False Then
If ERROR_INIT = "" Then
ERROR_INIT = "INVALID USER"
End If
End If
Thread.Sleep(200)
Else
ERROR_INIT = "DATABASE"
End If
Catch ex As Exception
MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Thread.Sleep(200)
Else
ERROR_INIT = "DATABASE"
End If
' Catch ex As Exception
' ' MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' End Try
End Function
Private Sub bw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs)
@@ -81,13 +86,9 @@ Public NotInheritable Class frmSplash
Application.Exit()
End If
LanguageEx.SetApplicationLanguage(_Logger, USER_LANGUAGE, USER_DATE_FORMAT)
' Wenn kein Fehler, Splashscreen schließen
Close()
End Sub
Private Sub frmSplash_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Escape Then
End If
End Sub
End Class

18
app/DD_Clipboard_Searcher/modCurrent.vb
View File

@@ -5,12 +5,12 @@ Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.ZooFlow.Params
Module modCurrent
Public LogConfig As LogConfig
Public Logger As Logger
Public Database As MSSQLServer
Public _LogConfig As LogConfig
Public _Logger As Logger
Public MyDB_DDECM As MSSQLServer
Public DatabaseAppServ As MSSQLServer
Public Automation As ClassAutomation
Public AppTitle = "easyFLOW"
Public Const LANGUAGE_GERMAN As String = "de-DE"
@@ -90,4 +90,14 @@ Module modCurrent
Public NOMATCH_INFO As Boolean = False
Public NOTIFY_MODE As String = "NotifyIcon"
Public BASEDATA_DT_LANGUAGE As DataTable
Public GHOST_USERID As Integer = 0
Public CONNECTION_STRING_IDB As String = String.Empty
Public IDB_ACTIVE As Boolean = False
Public IDB_USES_WMFILESTORE As Boolean
Public SYS_LOCKED_MAINTENANCE As Boolean = False
Public Property COPY_WMFILE_2TEMP As Boolean = False
Public Property MAP_SHARE_DRIVE As String = String.Empty
Public Property MAP_BLACKLIST As String = String.Empty
Public Property WMSUFFIX As String
End Module

28
app/DD_Clipboard_Searcher/packages.config
View File

@@ -1,4 +1,32 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="BouncyCastle.Cryptography" version="2.5.0" targetFramework="net462" />
<package id="DocumentFormat.OpenXml" version="3.2.0" targetFramework="net462" />
<package id="DocumentFormat.OpenXml.Framework" version="3.2.0" targetFramework="net462" />
<package id="GdPicture" version="14.3.3" targetFramework="net462" />
<package id="GdPicture.runtimes.windows" version="14.3.3" targetFramework="net462" />
<package id="Microsoft.AspNet.WebApi.Client" version="6.0.0" targetFramework="net462" />
<package id="Microsoft.Bcl.AsyncInterfaces" version="8.0.0" targetFramework="net462" />
<package id="Microsoft.CSharp" version="4.7.0" targetFramework="net462" />
<package id="Microsoft.VisualBasic" version="10.3.0" targetFramework="net462" />
<package id="Newtonsoft.Json" version="13.0.3" targetFramework="net462" />
<package id="Newtonsoft.Json.Bson" version="1.0.2" targetFramework="net462" />
<package id="NLog" version="5.0.2" targetFramework="net462" />
<package id="OpenMcdf" version="2.4.1" targetFramework="net462" />
<package id="protobuf-net" version="3.2.46" targetFramework="net462" />
<package id="protobuf-net.Core" version="3.2.46" targetFramework="net462" />
<package id="RtfPipe" version="2.0.7677.4303" targetFramework="net462" />
<package id="System.Buffers" version="4.6.0" targetFramework="net462" />
<package id="System.CodeDom" version="8.0.0" targetFramework="net462" />
<package id="System.Collections.Immutable" version="8.0.0" targetFramework="net462" />
<package id="System.IO.Packaging" version="8.0.1" targetFramework="net462" />
<package id="System.Management" version="8.0.0" targetFramework="net462" />
<package id="System.Memory" version="4.6.0" targetFramework="net462" />
<package id="System.Numerics.Vectors" version="4.6.0" targetFramework="net462" />
<package id="System.Runtime.CompilerServices.Unsafe" version="6.1.0" targetFramework="net462" />
<package id="System.Security.Cryptography.Pkcs" version="8.0.1" targetFramework="net462" />
<package id="System.Text.Encodings.Web" version="8.0.0" targetFramework="net462" />
<package id="System.Text.Json" version="8.0.5" targetFramework="net462" />
<package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net462" />
<package id="System.ValueTuple" version="4.5.0" targetFramework="net462" />
</packages>

8
app/SetupVS19/Config.wxi
View File

@@ -1,10 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<Include>
<?define ProgramName="DD_Clipboard_Watcher"?>
<?define ProductName="Clipboard Watcher"?>
<?define ProgramName="easyFLOW"?>
<?define ProductName="easyFLOW"?>
<?define Manufacturer="Digital Data"?>
<?define Description="Clipboard Watcher"?>
<?define Comments="Clipboard Watcher"?>
<?define Description="easyFLOW"?>
<?define Comments="easyFLOW"?>
<?define UpgradeCode="BB3A9D50-7CCE-42DA-84F2-D67129F57B59"?>
<?define SourceDir="..\$(var.ProgramName)\bin\$(var.Configuration)\"?>

204
app/SetupVS19/Product.wxs
View File

@@ -16,8 +16,13 @@
/>
<!-- Liest den Installationsort über die Registry aus -->
<Property Id="INSTALLIDIR">
<RegistrySearch Key="Software\[Manufacturer]\[ProductName]" Root="HKCU" Type="raw" Id="APPLICATIONFOLDER_REGSEARCH" Name="Path" />
<Property Id="INSTALLDIR">
<RegistrySearch Key="Software\[Manufacturer]\[ProductName]" Root="HKLM" Type="raw" Id="APPLICATIONFOLDER_REGSEARCH" Name="Path" />
</Property>
<!-- Für util:RemoveFolderEx: Installationspfad auch als eigene Property bereitstellen -->
<Property Id="APPLICATIONFOLDER">
<RegistrySearch Key="Software\[Manufacturer]\[ProductName]" Root="HKLM" Type="raw" Id="APPLICATIONFOLDER_REMOVEFOLDEREX_REGSEARCH" Name="Path" />
</Property>
<Media Id='1' Cabinet='$(var.ProgramName).cab' EmbedCab='yes' DiskPrompt='$(var.ProgramName)' />
@@ -40,7 +45,7 @@
<!-- Legt das Icon fest -->
<Icon Id="AppIcon.exe" SourceFile="$(var.ProgramName).exe" />
<!-- Zeige Icon in Systemsteuerung > Programme entfernen -->
<Property Id="ARPPRODUCTICON" Value="AppIcon" />
<Property Id="ARPPRODUCTICON" Value="AppIcon.exe" />
<Directory Id="TARGETDIR" Name="SourceDir">
@@ -81,7 +86,7 @@
<DirectoryRef Id="INSTALLDIR">
<Component Id="MainApplicationExe" Guid="{BA4DC59A-6FCD-4672-9D58-456F255E5AAB}">
<File Id="MainApplicationExe" Source="..\DD_Clipboard_Searcher\bin\$(var.Configuration)\$(var.ProgramName).exe" Name="$(var.ProgramName).exe" KeyPath="no" Checksum="yes" />
<File Id="MainApplicationExe" Source="..\DD_Clipboard_Searcher\bin\$(var.Configuration)\$(var.ProgramName).exe" Name="$(var.ProgramName).exe" KeyPath="yes" Checksum="yes" />
</Component>
<Component Id="MainApplicationExeConfig" Guid="{F40EA733-5734-4BF5-9668-63AC0D150DA7}">
@@ -89,16 +94,14 @@
</Component>
<Component Id="DDLibs" Guid="{13F5F24D-9D99-4783-B17B-5FFC9C42E261}">
<File Id="DDLibStandarts" Name="DD_LIB_Standards.dll" KeyPath="yes" Checksum="yes"/>
<File Id="DDBase" Name="DigitalData.Modules.Base.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDBase" Name="DigitalData.Modules.Base.dll" KeyPath="yes" Checksum="yes"/>
<File Id="DDLogging" Name="DigitalData.Modules.Logging.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDConfig" Name="DigitalData.Modules.Config.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDFilesystem" Name="DigitalData.Modules.Filesystem.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDDatabase" Name="DigitalData.Modules.Database.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDEncryption" Name="DigitalData.Modules.Encryption.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDLanguage" Name="DigitalData.Modules.Language.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDLicense" Name="DigitalData.Modules.License.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDRegexEditor" Name="DigitalData.Controls.RegexEditor.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDprotobuf" Name="protobuf-net.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDCommon" Name="DigitalData.GUIs.Common.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDWindows" Name="DigitalData.Modules.Windows.dll" KeyPath="no" Checksum="yes"/>
@@ -108,8 +111,22 @@
<File Id="DDZooFlow" Name="DigitalData.Modules.ZooFlow.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDEDMIAPI" Name="DigitalData.Modules.EDMI.API.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDLookup" Name="DigitalData.Controls.LookupGrid.dll" KeyPath="no" Checksum="yes"/>
<File Id="InteropServices.RuntimeInformation" Name="System.Runtime.InteropServices.RuntimeInformation.dll" Source="System.Runtime.InteropServices.RuntimeInformation.dll" KeyPath="no" />
</Component>
<Component Id="ThirdPartyLibs" Guid="{49A2DD93-7CDE-4772-AFC3-687F8AF306D3}">
<File Id="NewtonsoftJson" Name="Newtonsoft.Json.dll" KeyPath="yes" Checksum="yes"/>
<File Id="NewtonsoftJsonBson" Name="Newtonsoft.Json.Bson.dll" KeyPath="no" Checksum="yes"/>
<File Id="SystemTextJson" Name="System.Text.Json.dll" KeyPath="no" Checksum="yes"/>
<File Id="SystemNetHttpFormatting" Name="System.Net.Http.Formatting.dll" KeyPath="no" Checksum="yes"/>
<File Id="MicrosoftWin32Registry" Name="Microsoft.Win32.Registry.dll" KeyPath="no" Checksum="yes"/>
<File Id="OracleManagedDataAccess" Name="Oracle.ManagedDataAccess.dll" KeyPath="no" Checksum="yes"/>
<File Id="FirebirdSqlClient" Name="FirebirdSql.Data.FirebirdClient.dll" KeyPath="no" Checksum="yes"/>
<File Id="SystemFormatsAsn1" Name="System.Formats.Asn1.dll" KeyPath="no" Checksum="yes"/>
<File Id="MicrosoftIdentityClient" Name="Microsoft.Identity.Client.dll" KeyPath="no" Checksum="yes"/>
<File Id="MicrosoftIdentityAbstractions" Name="Microsoft.IdentityModel.Abstractions.dll" KeyPath="no" Checksum="yes"/>
</Component>
<Component Id="NLog" Guid="{08903680-6b02-4ff0-b700-93209381fe1a}">
<File Id="NLog" Name="NLog.dll" KeyPath="yes" Checksum="yes"/>
</Component>
@@ -155,34 +172,176 @@
<File Id="DevExpress.XtraVerticalGrid.v21.2" Name="DevExpress.XtraVerticalGrid.v21.2.dll" />
</Component>
<Component Id="IndependentsoftLibs" Guid="136fd96d-3cae-4e50-b82b-423b5d695e7a">
<File Id="Msg.Net" Name="Independentsoft.Msg.dll" Source="P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.2.0.570.21482.dll" KeyPath="yes" />
</Component>
<Component Id="Limilabs" Guid="b3c2193c-522a-4c5f-a031-9b80150a154a">
<File Id="Mail" Name="Mail.dll" KeyPath="yes" />
<File Id="MailLicense" Name="MailLicense.xml" />
</Component>
<Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
<File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll" KeyPath="yes" />
<File Id="GdPicture.NET.14.filters" Name="GdPicture.NET.14.filters.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.filters.dll" />
<File Id="GdPicture.NET.14.filters64" Name="GdPicture.NET.14.filters.64.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.filters.64.dll" />
<File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.image.gdimgplug.dll" />
<File Id="GdPicture.NET.14.image64" Name="GdPicture.NET.14.image.gdimgplug.64.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.image.gdimgplug.64.dll" />
<File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
<File Id="GdPicture.NET.14.Imaging64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
<File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" KeyPath="yes" />
<File Id="GdPicture.NET.14.CAD" Name="GdPicture.NET.14.CAD.dll" />
<File Id="GdPicture.NET.14.CAD.DWG" Name="GdPicture.NET.14.CAD.DWG.dll" />
<File Id="GdPicture.NET.14.filters" Name="GdPicture.NET.14.filters.dll" />
<File Id="GdPicture.NET.14.filters64" Name="GdPicture.NET.14.filters.64.dll" />
<File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" />
<File Id="GdPicture.NET.14.image64" Name="GdPicture.NET.14.image.gdimgplug.64.dll" />
<File Id="GdPicture.NET.14.Imaging.Formats" Name="GdPicture.NET.14.Imaging.Formats.dll" />
<File Id="GdPicture.NET.14.Imaging.Rendering" Name="GdPicture.NET.14.Imaging.Rendering.dll" />
<File Id="GdPicture.NET.14.Imaging.Rendering.Skia" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
<File Id="GdPicture.NET.14.Rendering.Skia.64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
<File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.dll" />
<File Id="GdPicture.NET.14.Imaging.ML.64" Name="GdPicture.NET.14.Imaging.ML.64.dll" />
<File Id="GdPicture.NET.14.Imaging.ML" Name="GdPicture.NET.14.Imaging.ML.dll" />
<File Id="GdPicture.NET.14.Imaging.Formats.Conversion" Name="GdPicture.NET.14.Imaging.Formats.Conversion.dll" />
<File Id="GdPicture.NET.14.Common" Name="GdPicture.NET.14.Common.dll" />
<File Id="GdPicture.NET.14.Document" Name="GdPicture.NET.14.Document.dll" />
<File Id="GdPicture.NET.14.PDF" Name="GdPicture.NET.14.PDF.dll" />
<File Id="GdPicture.NET.14.RTF" Name="GdPicture.NET.14.RTF.dll" />
<File Id="GdPicture.NET.14.SVG" Name="GdPicture.NET.14.SVG.dll" />
<File Id="GdPicture.NET.14.OpenDocument" Name="GdPicture.NET.14.OpenDocument.dll" />
<File Id="GdPicture.NET.14.OpenXML" Name="GdPicture.NET.14.OpenXML.dll" />
<File Id="GdPicture.NET.14.Email" Name="GdPicture.NET.14.Email.dll" />
<File Id="GdPicture.NET.14.HTML" Name="GdPicture.NET.14.HTML.dll" />
<File Id="GdPicture.NET.14.MSOfficeBinary" Name="GdPicture.NET.14.MSOfficeBinary.dll"/>
<!-- Fehlende managed GdPicture DLLs – in Component GDPictureLibs ergänzen -->
<File Id="GdPicture.NET.14.barcode.1d.writer" Name="GdPicture.NET.14.barcode.1d.writer.dll" />
<File Id="GdPicture.NET.14.barcode.2d.writer" Name="GdPicture.NET.14.barcode.2d.writer.dll" />
<File Id="GdPicture.NET.14.OpenXML.Templating" Name="GdPicture.NET.14.OpenXML.Templating.dll" />
<!-- Native x86 -->
<File Id="GdPicture.NET.14.barcode.1d.reader" Name="GdPicture.NET.14.barcode.1d.reader.dll" />
<File Id="GdPicture.NET.14.barcode.2d.reader" Name="GdPicture.NET.14.barcode.2d.reader.dll" />
<File Id="GdPicture.NET.14.machine.vision" Name="GdPicture.NET.14.machine.vision.dll" />
<File Id="GdPicture.NET.14.twain.client" Name="GdPicture.NET.14.twain.client.dll" />
<!-- Native x64 -->
<File Id="GdPicture.NET.14.barcode.1d.reader.64" Name="GdPicture.NET.14.barcode.1d.reader.64.dll" />
<File Id="GdPicture.NET.14.barcode.2d.reader.64" Name="GdPicture.NET.14.barcode.2d.reader.64.dll" />
<File Id="GdPicture.NET.14.machine.vision.64" Name="GdPicture.NET.14.machine.vision.64.dll" />
<File Id="GdPicture.NET.14.twain.client.64" Name="GdPicture.NET.14.twain.client.64.dll" />
<File Id="BouncyCastle.Cryptography" Name="BouncyCastle.Cryptography.dll"/>
<File Id="DocumentFormat.OpenXml" Name="DocumentFormat.OpenXml.dll" />
<File Id="DocumentFormat.OpenXml.Framework" Name="DocumentFormat.OpenXml.Framework.dll" />
<File Id="Microsoft.Bcl.AsyncInterfaces" Name="Microsoft.Bcl.AsyncInterfaces.dll" />
<File Id="OpenMcdf" Name="OpenMcdf.dll" />
<File Id="protobufnet.Core" Name="protobuf-net.Core.dll" />
<File Id="protobufnet" Name="protobuf-net.dll" />
<File Id="RtfPipe" Name="RtfPipe.dll" />
<File Id="System.Buffers" Name="System.Buffers.dll" />
<File Id="System.CodeDom" Name="System.CodeDom.dll" />
<File Id="System.Collections.Immutable" Name="System.Collections.Immutable.dll" />
<File Id="System.IO.Packaging" Name="System.IO.Packaging.dll" />
<File Id="System.Memory" Name="System.Memory.dll" />
<File Id="System.Numerics.Vectors" Name="System.Numerics.Vectors.dll" />
<File Id="System.Runtime.CompilerServices.Unsafe" Name="System.Runtime.CompilerServices.Unsafe.dll" />
<File Id="System.Security.Cryptography.Pkcs" Name="System.Security.Cryptography.Pkcs.dll" />
<File Id="System.Text.Encodings.Web" Name="System.Text.Encodings.Web.dll" />
<File Id="System.Threading.Tasks.Extensions" Name="System.Threading.Tasks.Extensions.dll" />
<File Id="System.ValueTuple" Name="System.ValueTuple.dll" />
</Component>
<Component Id="NetExtensionFacades" Guid="{11F1E8F5-69E4-46D4-A51B-5CC80485AE02}">
<File Id="netstandard" Name="netstandard.dll" KeyPath="yes"/>
<File Id="MicrosoftWin32Primitives" Name="Microsoft.Win32.Primitives.dll" KeyPath="no"/>
<File Id="SystemAppContext" Name="System.AppContext.dll" KeyPath="no"/>
<File Id="SystemCollections" Name="System.Collections.dll" KeyPath="no"/>
<File Id="SystemCollectionsConcurrent" Name="System.Collections.Concurrent.dll" KeyPath="no"/>
<File Id="SystemCollectionsNonGeneric" Name="System.Collections.NonGeneric.dll" KeyPath="no"/>
<File Id="SystemCollectionsSpecialized" Name="System.Collections.Specialized.dll" KeyPath="no"/>
<File Id="SystemComponentModel" Name="System.ComponentModel.dll" KeyPath="no"/>
<File Id="SystemComponentModelEventBased" Name="System.ComponentModel.EventBasedAsync.dll" KeyPath="no"/>
<File Id="SystemComponentModelPrimitives" Name="System.ComponentModel.Primitives.dll" KeyPath="no"/>
<File Id="SystemComponentModelTypeConverter" Name="System.ComponentModel.TypeConverter.dll" KeyPath="no"/>
<File Id="SystemConsole" Name="System.Console.dll" KeyPath="no"/>
<File Id="SystemDataCommon" Name="System.Data.Common.dll" KeyPath="no"/>
<File Id="SystemDiagnosticsContracts" Name="System.Diagnostics.Contracts.dll" KeyPath="no"/>
<File Id="SystemDiagnosticsDebug" Name="System.Diagnostics.Debug.dll" KeyPath="no"/>
<File Id="SystemDiagnosticsFileVersionInfo" Name="System.Diagnostics.FileVersionInfo.dll" KeyPath="no"/>
<File Id="SystemDiagnosticsProcess" Name="System.Diagnostics.Process.dll" KeyPath="no"/>
<File Id="SystemDiagnosticsStackTrace" Name="System.Diagnostics.StackTrace.dll" KeyPath="no"/>
<File Id="SystemDiagnosticsTextWriterTrace" Name="System.Diagnostics.TextWriterTraceListener.dll" KeyPath="no"/>
<File Id="SystemDiagnosticsTools" Name="System.Diagnostics.Tools.dll" KeyPath="no"/>
<File Id="SystemDiagnosticsTraceSource" Name="System.Diagnostics.TraceSource.dll" KeyPath="no"/>
<File Id="SystemDiagnosticsTracing" Name="System.Diagnostics.Tracing.dll" KeyPath="no"/>
<File Id="SystemDrawingPrimitives" Name="System.Drawing.Primitives.dll" KeyPath="no"/>
<File Id="SystemDynamicRuntime" Name="System.Dynamic.Runtime.dll" KeyPath="no"/>
<File Id="SystemGlobalizationCalendars" Name="System.Globalization.Calendars.dll" KeyPath="no"/>
<File Id="SystemGlobalization" Name="System.Globalization.dll" KeyPath="no"/>
<File Id="SystemGlobalizationExtensions" Name="System.Globalization.Extensions.dll" KeyPath="no"/>
<File Id="SystemIOCompression" Name="System.IO.Compression.dll" KeyPath="no"/>
<File Id="SystemIOCompressionZipFile" Name="System.IO.Compression.ZipFile.dll" KeyPath="no"/>
<File Id="SystemIO" Name="System.IO.dll" KeyPath="no"/>
<File Id="SystemIOFileSystem" Name="System.IO.FileSystem.dll" KeyPath="no"/>
<File Id="SystemIOFileSystemDriveInfo" Name="System.IO.FileSystem.DriveInfo.dll" KeyPath="no"/>
<File Id="SystemIOFileSystemPrimitives" Name="System.IO.FileSystem.Primitives.dll" KeyPath="no"/>
<File Id="SystemIOFileSystemWatcher" Name="System.IO.FileSystem.Watcher.dll" KeyPath="no"/>
<File Id="SystemIOIsolatedStorage" Name="System.IO.IsolatedStorage.dll" KeyPath="no"/>
<File Id="SystemIOMemoryMappedFiles" Name="System.IO.MemoryMappedFiles.dll" KeyPath="no"/>
<File Id="SystemIOPipes" Name="System.IO.Pipes.dll" KeyPath="no"/>
<File Id="SystemIOUnmanagedMemoryStream" Name="System.IO.UnmanagedMemoryStream.dll" KeyPath="no"/>
<File Id="SystemLinq" Name="System.Linq.dll" KeyPath="no"/>
<File Id="SystemLinqExpressions" Name="System.Linq.Expressions.dll" KeyPath="no"/>
<File Id="SystemLinqParallel" Name="System.Linq.Parallel.dll" KeyPath="no"/>
<File Id="SystemLinqQueryable" Name="System.Linq.Queryable.dll" KeyPath="no"/>
<File Id="SystemNetHttp" Name="System.Net.Http.dll" KeyPath="no"/>
<File Id="SystemNetNameResolution" Name="System.Net.NameResolution.dll" KeyPath="no"/>
<File Id="SystemNetNetworkInformation" Name="System.Net.NetworkInformation.dll" KeyPath="no"/>
<File Id="SystemNetPing" Name="System.Net.Ping.dll" KeyPath="no"/>
<File Id="SystemNetPrimitives" Name="System.Net.Primitives.dll" KeyPath="no"/>
<File Id="SystemNetRequests" Name="System.Net.Requests.dll" KeyPath="no"/>
<File Id="SystemNetSecurity" Name="System.Net.Security.dll" KeyPath="no"/>
<File Id="SystemNetSockets" Name="System.Net.Sockets.dll" KeyPath="no"/>
<File Id="SystemNetWebHeaderCollection" Name="System.Net.WebHeaderCollection.dll" KeyPath="no"/>
<File Id="SystemNetWebSocketsClient" Name="System.Net.WebSockets.Client.dll" KeyPath="no"/>
<File Id="SystemNetWebSockets" Name="System.Net.WebSockets.dll" KeyPath="no"/>
<File Id="SystemObjectModel" Name="System.ObjectModel.dll" KeyPath="no"/>
<File Id="SystemReflection" Name="System.Reflection.dll" KeyPath="no"/>
<File Id="SystemReflectionExtensions" Name="System.Reflection.Extensions.dll" KeyPath="no"/>
<File Id="SystemReflectionPrimitives" Name="System.Reflection.Primitives.dll" KeyPath="no"/>
<File Id="SystemResourcesReader" Name="System.Resources.Reader.dll" KeyPath="no"/>
<File Id="SystemResourcesResourceManager" Name="System.Resources.ResourceManager.dll" KeyPath="no"/>
<File Id="SystemResourcesWriter" Name="System.Resources.Writer.dll" KeyPath="no"/>
<File Id="SystemRuntime" Name="System.Runtime.dll" KeyPath="no"/>
<File Id="SystemRuntimeCompilerServicesVisualC" Name="System.Runtime.CompilerServices.VisualC.dll" KeyPath="no"/>
<File Id="SystemRuntimeExtensions" Name="System.Runtime.Extensions.dll" KeyPath="no"/>
<File Id="SystemRuntimeHandles" Name="System.Runtime.Handles.dll" KeyPath="no"/>
<File Id="SystemRuntimeInteropServices" Name="System.Runtime.InteropServices.dll" KeyPath="no"/>
<File Id="SystemRuntimeNumerics" Name="System.Runtime.Numerics.dll" KeyPath="no"/>
<File Id="SystemRuntimeSerializationFormatters" Name="System.Runtime.Serialization.Formatters.dll" KeyPath="no"/>
<File Id="SystemRuntimeSerializationJson" Name="System.Runtime.Serialization.Json.dll" KeyPath="no"/>
<File Id="SystemRuntimeSerializationPrimitives" Name="System.Runtime.Serialization.Primitives.dll" KeyPath="no"/>
<File Id="SystemRuntimeSerializationXml" Name="System.Runtime.Serialization.Xml.dll" KeyPath="no"/>
<File Id="SystemSecurityClaims" Name="System.Security.Claims.dll" KeyPath="no"/>
<File Id="SystemSecurityCryptographyAlgorithms" Name="System.Security.Cryptography.Algorithms.dll" KeyPath="no"/>
<File Id="SystemSecurityCryptographyCsp" Name="System.Security.Cryptography.Csp.dll" KeyPath="no"/>
<File Id="SystemSecurityCryptographyEncoding" Name="System.Security.Cryptography.Encoding.dll" KeyPath="no"/>
<File Id="SystemSecurityCryptographyPrimitives" Name="System.Security.Cryptography.Primitives.dll" KeyPath="no"/>
<File Id="SystemSecurityCryptographyX509" Name="System.Security.Cryptography.X509Certificates.dll" KeyPath="no"/>
<File Id="SystemSecurityPrincipal" Name="System.Security.Principal.dll" KeyPath="no"/>
<File Id="SystemSecuritySecureString" Name="System.Security.SecureString.dll" KeyPath="no"/>
<File Id="SystemTextEncoding" Name="System.Text.Encoding.dll" KeyPath="no"/>
<File Id="SystemTextEncodingExtensions" Name="System.Text.Encoding.Extensions.dll" KeyPath="no"/>
<File Id="SystemTextRegularExpressions" Name="System.Text.RegularExpressions.dll" KeyPath="no"/>
<File Id="SystemThreading" Name="System.Threading.dll" KeyPath="no"/>
<File Id="SystemThreadingOverlapped" Name="System.Threading.Overlapped.dll" KeyPath="no"/>
<File Id="SystemThreadingTasks" Name="System.Threading.Tasks.dll" KeyPath="no"/>
<File Id="SystemThreadingTasksParallel" Name="System.Threading.Tasks.Parallel.dll" KeyPath="no"/>
<File Id="SystemThreadingThread" Name="System.Threading.Thread.dll" KeyPath="no"/>
<File Id="SystemThreadingThreadPool" Name="System.Threading.ThreadPool.dll" KeyPath="no"/>
<File Id="SystemThreadingTimer" Name="System.Threading.Timer.dll" KeyPath="no"/>
<File Id="SystemXmlReaderWriter" Name="System.Xml.ReaderWriter.dll" KeyPath="no"/>
<File Id="SystemXmlXDocument" Name="System.Xml.XDocument.dll" KeyPath="no"/>
<File Id="SystemXmlXmlDocument" Name="System.Xml.XmlDocument.dll" KeyPath="no"/>
<File Id="SystemXmlXmlSerializer" Name="System.Xml.XmlSerializer.dll" KeyPath="no"/>
<File Id="SystemXmlXPath" Name="System.Xml.XPath.dll" KeyPath="no"/>
<File Id="SystemXmlXPathXDocument" Name="System.Xml.XPath.XDocument.dll" KeyPath="no"/>
</Component>
<Component Id="RegistryKeys" Guid="{72D6927F-8297-4D51-BF4A-813064089A4A}">
<RegistryKey Root="HKLM" Key="Software">
<RegistryKey Key="[Manufacturer]">
<RegistryKey Key="[ProductName]" ForceCreateOnInstall="yes" ForceDeleteOnUninstall="no" Id="REGKEYINSTALLDIR">
<RegistryValue Type="string" Value="[INSTALLDIR]" Name="Path" />
<RegistryValue Type="string" Value="[INSTALLDIR]" Name="Path" KeyPath="yes" />
</RegistryKey>
</RegistryKey>
</RegistryKey>
<util:RemoveFolderEx Id="RemoveApplicationFolder" On="uninstall" Property="APPLICATIONFOLDER" />
</Component>
@@ -218,10 +377,11 @@
<ComponentRef Id="NLog"/>
<ComponentRef Id="Limilabs"/>
<ComponentRef Id="DevExpressLibs"/>
<ComponentRef Id="IndependentsoftLibs"/>
<ComponentRef Id="GDPictureLibs"/>
<ComponentRef Id="RegistryKeys" />
<ComponentRef Id="Resources.DE.Devexpress" />
<ComponentRef Id="ThirdPartyLibs" />
<ComponentRef Id="NetExtensionFacades" />
</Feature>
<Feature Id="DesktopShortcut" Title="Desktop Shortcut">

2
app/SetupVS19/SetupVS19.wixproj
View File

@@ -45,7 +45,7 @@
</Target>
<Target Name="BeforeBuild">
<!-- Get the programs assembly version from the .exe file -->
<GetAssemblyIdentity AssemblyFiles="..\DD_Clipboard_Searcher\bin\$(Configuration)\DD_Clipboard_Watcher.exe">
<GetAssemblyIdentity AssemblyFiles="..\DD_Clipboard_Searcher\bin\$(Configuration)\easyFLOW.exe">
<Output TaskParameter="Assemblies" ItemName="AsmInfo" />
</GetAssemblyIdentity>
<!-- Store the assembly version number in ProductVersion preprocessor variable -->

6
app/DD_Clipboard_Watcher.sln → app/easyFLOW.sln
View File

@@ -1,9 +1,9 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 16
VisualStudioVersion = 16.0.29728.190
# Visual Studio Version 17
VisualStudioVersion = 17.9.34622.214
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}"
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "easyFLOW", "DD_Clipboard_Searcher\easyFLOW.vbproj", "{09BC9934-1A38-4752-8873-639B42779CDB}"
EndProject
Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupVS19", "SetupVS19\SetupVS19.wixproj", "{9A7C1386-F66E-49DD-994C-F5935A0D196F}"
EndProject