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

small tweaks

Browse Source
This commit is contained in:
Jonathan Jenne
2019-10-22 15:52:13 +02:00
parent d254fd47f5
commit 499202ca79
2 changed files with 24 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
GUIs.ClipboardWatcher/frmMatch.vb
View File

@@ -62,7 +62,7 @@ Public Class frmMatch
oForm.ShowDialog()
End Sub
Private Sub frmMatch_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Private Async Sub frmMatch_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim oCreatedTiles = CreateTiles()
If oCreatedTiles = -1 Then
@@ -79,7 +79,19 @@ Public Class frmMatch
If oCreatedTiles = 1 Then
Dim oProfile As ProfileData = _Params.MatchingProfiles.First()
' TODO Open Result Forms
Dim oProfileSearch As New ProfileSearches(_LogConfig, _Environment, _Params)
If oProfile.CountData > 0 Then
Dim oSearches = Await oProfileSearch.LoadDataSearchesAsync()
OpenDataResults(oProfile, oSearches)
Hide()
ElseIf oProfile.CountDocs > 0 Then
Dim oSearches = Await oProfileSearch.LoadDocumentSearchesAsync()
OpenDocumentResults(oProfile, oSearches)
Hide()
End If
End If
End Sub
@@ -94,14 +106,15 @@ Public Class frmMatch
oDataGroup.Items.Clear()
For Each oProfile As ProfileData In _Params.MatchingProfiles
If oProfile.ProfileType = ProfileType.ANY Then
If oProfile.CountData > 0 And oProfile.CountDocs > 0 Then
Dim oCountText = oProfile.CountData + oProfile.CountDocs
Dim oItem = CreateTile(oProfile, $"{oCountText} Ergebnisse")
oDataDocumentsGroup.Items.Add(oItem)
oCreatedTiles += 1
End If
End If
'TODO: Add Support for Combined Result Lists
'If oProfile.ProfileType = ProfileType.ANY Then
' If oProfile.CountData > 0 And oProfile.CountDocs > 0 Then
' Dim oCountText = oProfile.CountData + oProfile.CountDocs
' Dim oItem = CreateTile(oProfile, $"{oCountText} Ergebnisse")
' oDataDocumentsGroup.Items.Add(oItem)
' oCreatedTiles += 1
' End If
'End If
If oProfile.ProfileType = ProfileType.ANY Or oProfile.ProfileType = ProfileType.DOCS_ONLY Then
If oProfile.CountDocs > 0 Then