load docviewer

app/DD-Record-Organizer/frmDocSearchResult.vb

@@ -3,36 +3,25 @@
 'Imports System.Text
 Imports DevExpress.XtraGrid.Views.Base
 Imports DevExpress.XtraPrinting
+Imports DigitalData.Modules.Database
 
 Public Class frmDocSearchResult
-    '   <DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
-    ' Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
-    ' End Function
-
-    'Public Structure SHELLEXECUTEINFO
-    '    Public cbSize As Integer
-    '    Public fMask As Integer
-    '    Public hwnd As IntPtr
-    '    <MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
-    '    <MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
-    '    <MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
-    '    <MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
-    '    Dim nShow As Integer
-    '    Dim hInstApp As IntPtr
-    '    Dim lpIDList As IntPtr
-    '    <MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
-    '    Public hkeyClass As IntPtr
-    '    Public dwHotKey As Integer
-    '    Public hIcon As IntPtr
-    '    Public hProcess As IntPtr
-    'End Structure
-    ' Private Const SEE_MASK_INVOKEIDLIST = &HC
-    ' Private Const SEE_MASK_NOCLOSEPROCESS = &H40
-    ' Private Const SEE_MASK_FLAG_NO_UI = &H400
-    ' Public Const SW_SHOW As Short = 5
     Private DT_RESULT As DataTable
     Private SelectedDocID As Int64
     Private SelectedFULL_FILEPATH As String
+
+    Private Sub frmDocSearchResult_Load(sender As Object, e As EventArgs) Handles Me.Load
+        LoadDocSearch(False)
+        Text = CURRENT_DOCSEARCH_CAPTION
+
+        Dim oGDPictureLicenseKey = MYDB_ECM.GetScalarValue(Queries.DD_ECM.ThirdPartyModules.GdPictureLicense)
+        DocumentViewer1.Init(LOGCONFIG, oGDPictureLicenseKey)
+    End Sub
+
+    Private Sub frmDocSearchResult_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        Save_DocGrid_Layout()
+    End Sub
+
     Public Sub LoadDocSearch(reload As Boolean)
         Try
             Cursor = Cursors.WaitCursor
@@ -64,13 +53,14 @@ Public Class frmDocSearchResult
             GetDocID()
             Refresh_DocID()
         End If
-
     End Sub
 
     Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
         If GridViewDoc_Search.RowCount > 0 Then
             GetDocID()
             Refresh_DocID()
+
+            DocumentViewer1.LoadFile(SelectedFULL_FILEPATH)
         End If
     End Sub
     Sub Refresh_DocID()
@@ -199,10 +189,7 @@ Public Class frmDocSearchResult
 
     'End Sub
 
-    Private Sub frmDocSearchResult_Load(sender As Object, e As EventArgs) Handles Me.Load
-        LoadDocSearch(False)
-        Me.Text = CURRENT_DOCSEARCH_CAPTION
-    End Sub
+
     Sub Save_DocGrid_Layout()
         Try
             Dim XMLPath = Get_DocGrid_Layout_Filename()
@@ -231,9 +218,7 @@ Public Class frmDocSearchResult
         Return LAYOUT_DOC_GRIDVIEW
     End Function
 
-    Private Sub frmDocSearchResult_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        Save_DocGrid_Layout()
-    End Sub
+
 
     Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
         GetDocID()