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

improve documentresultlist

Browse Source
This commit is contained in:
Jonathan Jenne
2019-09-30 16:58:44 +02:00
parent 9f270d93c9
commit 9f2fb02619
14 changed files with 108 additions and 910 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
ClipboardWatcher/frmMatch.vb
View File

@@ -207,7 +207,7 @@ Public Class frmMatch
Dim oNameSlug = Language.Utils.ConvertTextToSlug(Profile.Name)
Dim oSearchGuids = Searches.Select(Function(s) s.Guid).ToArray
Dim oWindowGuid = $"{Profile.Guid}-{oNameSlug}-{String.Join("-", oSearchGuids)}"
Dim oParams = New ResultListParams() With {
Dim oParams = New DocumentResultParams() With {
.WindowGuid = oWindowGuid
}
@@ -246,24 +246,24 @@ Public Class frmMatch
Dim oShouldOpenAgain As Boolean = False
Dim oThisForm = New List(Of IResultForm) From {sender}
If TypeOf sender Is frmResult Then
For Each oForm As IResultForm In OpenForms
' Determine if frmProfileMatch should be shown
If oForm.ShouldReturnToMatchForm Then
oShouldOpenAgain = True
End If
Next
End If
'If TypeOf sender Is frmResult Then
' For Each oForm As IResultForm In OpenForms
' ' Determine if frmProfileMatch should be shown
' If oForm.ShouldReturnToMatchForm Then
' oShouldOpenAgain = True
' End If
' Next
'End If
' If frmProfileMatch should be shown, close all windows of this profile
If oShouldOpenAgain Then
For Each oForm As Form In OpenForms.Except(oThisForm)
' Remove the Handler to prevent a loop
RemoveHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
oForm.Close()
Next
'' If frmProfileMatch should be shown, close all windows of this profile
'If oShouldOpenAgain Then
' For Each oForm As Form In OpenForms.Except(oThisForm)
' ' Remove the Handler to prevent a loop
' RemoveHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
' oForm.Close()
' Next
Show()
End If
' Show()
'End If
End Sub
End Class