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

jj

Browse Source
This commit is contained in:
Jonathan Jenne 2020-12-22 14:11:01 +01:00
parent e3639930e1
commit 6a47fc6830
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
GUIs.Common/DocumentResultList/frmDocumentResultList.vb
View File

@ -54,10 +54,10 @@ Public Class frmDocumentResultList
_Params = Params _Params = Params
_ResultLists = Params.Results _ResultLists = Params.Results
InitIDB() MaybeInitIDB()
End Sub End Sub
Private Sub InitIDB() Private Sub MaybeInitIDB()
_IsLegacy = Not _Environment.Service.IsActive _IsLegacy = Not _Environment.Service.IsActive
If _Environment.Service.IsActive Then If _Environment.Service.IsActive Then
Dim oSplit As List(Of String) = _Environment.Service.Address.Split(":").ToList() Dim oSplit As List(Of String) = _Environment.Service.Address.Split(":").ToList()
@ -218,6 +218,7 @@ Public Class frmDocumentResultList
If e.FocusedRowHandle >= 0 Then If e.FocusedRowHandle >= 0 Then
Dim oRow = sender.GetDataRow(e.FocusedRowHandle) Dim oRow = sender.GetDataRow(e.FocusedRowHandle)
Dim oFullPath = oRow.Item(COLUMN_FILEPATH) Dim oFullPath = oRow.Item(COLUMN_FILEPATH)
DocumentViewer1.LoadFile(oFullPath) DocumentViewer1.LoadFile(oFullPath)
End If End If
End Sub End Sub