AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

ClipboardWatcher: fix error in profile filter, fix native methods

Browse Source
This commit is contained in:
Jonathan Jenne 2020-07-29 14:25:52 +02:00
parent 8918746f48
commit a825fc6d5e
5 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
GUIs.ClipboardWatcher/ProfileFilter.vb
View File

@ -346,14 +346,14 @@ Public Class ProfileFilter
Dim oDTDocSearches As DataTable Dim oDTDocSearches As DataTable
Try Try
oDTDataSearches = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}") oDTDataSearches = Database.GetDatatable($"SELECT COUNT_COMMAND, CONN_ID FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex) _Logger.Error(ex)
Continue For Continue For
End Try End Try
Try Try
oDTDocSearches = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}") oDTDocSearches = Database.GetDatatable($"SELECT COUNT_COMMAND, CONN_ID FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex) _Logger.Error(ex)
Continue For Continue For

2
GUIs.ZooFlow/My Project/AssemblyInfo.vb
View File

@ -10,7 +10,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyConfiguration("")> <Assembly: AssemblyConfiguration("")>
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("ZooFlow")> <Assembly: AssemblyProduct("ZooFlow")>
<Assembly: AssemblyCopyright("Copyright © 2019")> <Assembly: AssemblyCopyright("Copyright © 2020")>
<Assembly: AssemblyTrademark("")> <Assembly: AssemblyTrademark("")>
<Assembly: AssemblyCulture("")> <Assembly: AssemblyCulture("")>

1
GUIs.ZooFlow/My Project/licenses.licx
View File

@ -1,2 +1,3 @@
DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

1
GUIs.ZooFlow/frmAdmin.vb
View File

@ -7,7 +7,6 @@ Imports DigitalData.Modules.Messaging
Imports DigitalData.Modules.ZooFlow Imports DigitalData.Modules.ZooFlow
Imports DigitalData.Modules.ZooFlow.Params Imports DigitalData.Modules.ZooFlow.Params
Imports DigitalData.GUIs.ZooFlow.OnFlowFormStateChangedEvent.FlowFormState Imports DigitalData.GUIs.ZooFlow.OnFlowFormStateChangedEvent.FlowFormState
Imports DigitalData.Modules.ClipboardWatcher
Imports DigitalData.GUIs.ClipboardWatcher Imports DigitalData.GUIs.ClipboardWatcher
Partial Public Class frmAdmin Partial Public Class frmAdmin

9
Windows/NativeMethods.vb
View File

@ -2,6 +2,9 @@
Imports System.Text Imports System.Text
Public Class NativeMethods Public Class NativeMethods
Public Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Int32) As Integer
Public Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hWnd As IntPtr, ByVal WinTitle As String, ByVal MaxLength As Integer) As Integer
<DllImport("user32.dll")> <DllImport("user32.dll")>
Public Shared Function GetDC(ByVal hwnd As IntPtr) As IntPtr Public Shared Function GetDC(ByVal hwnd As IntPtr) As IntPtr
End Function End Function
@ -24,12 +27,6 @@ Public Class NativeMethods
Public Shared Function GetForegroundWindow() As IntPtr Public Shared Function GetForegroundWindow() As IntPtr
End Function End Function
<DllImport("user32.dll")> <DllImport("user32.dll")>
Public Shared Function GetWindowText(ByVal hWnd As IntPtr, ByVal WinTitle As String, ByVal MaxLength As Integer) As Integer
End Function
<DllImport("user32.dll")>
Public Shared Function GetWindowTextLength(ByVal hwnd As Int32) As Integer
End Function
<DllImport("user32.dll")>
Public Shared Function GetWindowThreadProcessId(ByVal hwnd As IntPtr, ByRef lpdwProcessID As Integer) As Integer Public Shared Function GetWindowThreadProcessId(ByVal hwnd As IntPtr, ByRef lpdwProcessID As Integer) As Integer
End Function End Function
<DllImport("user32.dll")> <DllImport("user32.dll")>