Zooflow: Implement Single file Search Results, Rework client wrt Address parsing
This commit is contained in:
@@ -19,6 +19,7 @@ Imports DigitalData.Modules.Language
|
||||
Imports DevExpress.LookAndFeel
|
||||
Imports System.Threading.Tasks
|
||||
Imports System.Threading
|
||||
Imports DigitalData.Controls.MessageBoxEx
|
||||
|
||||
Public Class frmFlowForm
|
||||
#Region "Sidebar DllImport"
|
||||
@@ -488,8 +489,11 @@ Public Class frmFlowForm
|
||||
End Sub
|
||||
|
||||
Sub ExitZooflow()
|
||||
Dim oResult As DialogResult = MessageBox.Show("Are you sure you want to close ZooFlow?", "Exit Zooflow", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
If oResult = DialogResult.Yes Then
|
||||
Dim oMsgBox As New MsgBoxEx("Are you sure you want to close ZooFlow?", "Exit Zooflow", MessageBoxIcon.Question)
|
||||
oMsgBox.SetButtons("Yes", "No")
|
||||
oMsgBox.ShowDialog()
|
||||
|
||||
If oMsgBox.Result = MsgBoxEx.DialogBoxResult.Button1 Then
|
||||
Close()
|
||||
Else
|
||||
ESCHitCount = 0
|
||||
@@ -1153,6 +1157,12 @@ Public Class frmFlowForm
|
||||
.Title = GetResultWindowString(pSearchText),
|
||||
.Datatable = oDTDocResult
|
||||
})
|
||||
|
||||
' disable file list if we have only one document
|
||||
If oDTDocResult.Rows.Count = 1 Then
|
||||
oParams.ShowFileList = False
|
||||
End If
|
||||
|
||||
Dim oForm As New frmDocumentResultList(My.LogConfig, Environment, oParams)
|
||||
oForm.Show()
|
||||
oForm.BringToFront()
|
||||
@@ -1272,5 +1282,9 @@ Public Class frmFlowForm
|
||||
Dim oForm = New frmFlowSearch2()
|
||||
oForm.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub PictureEditQuicksearch1_EditValueChanged(sender As Object, e As EventArgs) Handles PictureEditQuicksearch1.EditValueChanged
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user