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

Zooflow: Update clipboard watcher module for zooflow

Browse Source
This commit is contained in:
Jonathan Jenne
2021-12-17 10:25:39 +01:00
parent cb00685085
commit 59d36568ed
16 changed files with 157 additions and 1196 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
GUIs.ClipboardWatcher/frmMatch.vb
View File

@@ -27,18 +27,18 @@ Imports System.Globalization
''' - Clipboard Content as String
''' </summary>
Public Class frmMatch
Private _LogConfig As LogConfig
Private _Logger As Logger
Private _Environment As Environment
Private _Params As ClipboardWatcherParams
Private _Language As String
Private ReadOnly _LogConfig As LogConfig
Private ReadOnly _Logger As Logger
Private ReadOnly _Environment As Environment
Private ReadOnly _Params As ClipboardWatcherParams
Private ReadOnly _Language As String
Private PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
Private SecondaryFont As New Font("Segoe UI", 10)
Private TileForeColor As Color = Color.Black
Private TileBackColor As Color = Color.FromArgb(255, 214, 47)
Private ReadOnly PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
Private ReadOnly SecondaryFont As New Font("Segoe UI", 10)
Private ReadOnly TileForeColor As Color = Color.Black
Private ReadOnly TileBackColor As Color = Color.FromArgb(255, 214, 47)
Private OpenForms As New List(Of IResultForm)
Private ReadOnly OpenForms As New List(Of IResultForm)
Private ShouldHideInitially As Boolean = False
Private Const NO_COUNT_SQL As Integer = 99998
@@ -60,7 +60,7 @@ Public Class frmMatch
_Environment = Environment
_Params = Params
_Language = Language.Utils.NotNull(_Environment.User.Language, State.UserState.LANG_EN_US)
_Language = Utils.NotNull(_Environment.User.Language, State.UserState.LANG_EN_US)
Thread.CurrentThread.CurrentUICulture = New CultureInfo(_Language)
End Sub
@@ -144,13 +144,16 @@ Public Class frmMatch
OpenDocumentResults(oProfile, oSearches)
_Logger.Debug($"OpenDocumentResults finished")
Hide()
ElseIf oProfile.CountDocs > 0 And oProfile.CountData > 0 Then
_Logger.Debug($"Docs AND Data")
ElseIf oProfile.CountDocs = 0 And oProfile.CountData > 0 Then
_Logger.Debug($"ONLY Data")
Dim oSearches = Await oProfileSearch.LoadDataSearchesAsync(oProfile.Guid)
OpenDataResults(oProfile, oSearches)
Hide()
End If
End If
Catch ex As Exception