AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS ProfileChecking

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-09-12 11:14:29 +02:00
parent 47ef1e6ef4
commit 9b8b8022b4
12 changed files with 166 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
app/DD_Clipboard_Searcher/frmResultDoc.vb
View File

@@ -448,55 +448,60 @@ Public Class frmResultDoc
End Try
End Sub
Sub Refresh_DocID(myGrid As GridView)
_activeGridView = myGrid
clsWMDocGrid.ActiveDocGrid = myGrid
clsWMDocGrid.ActiveDocGrid.EndSelection()
clsWMDocGrid.GetDocItems()
Try
ContextMenuStripWMFile.Close()
Catch ex As Exception
_activeGridView = myGrid
clsWMDocGrid.ActiveDocGrid = myGrid
clsWMDocGrid.ActiveDocGrid.EndSelection()
clsWMDocGrid.GetDocItems()
Try
ContextMenuStripWMFile.Close()
Catch ex As Exception
End Try
If ToolStripDropDownButtonFile.Visible = False Then
ToolStripDropDownButtonFile.Visible = True
End If
If clsWMDocGrid.SELECTED_DOC_ID <> 0 Then
Dim msg = "Doc-ID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
tslblDocID.Text = msg
ToolStripDropDownButtonFile.Enabled = True
Dim frmCollection As New FormCollection()
frmCollection = Application.OpenForms()
Try
If frmCollection.Item("frmDocView").IsHandleCreated Then
'MsgBox("Yes Opened")
_frmDocView.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
Else
Dim f As New frmDocView
With f
.Show()
.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
End With
End If
Catch ex As Exception
If ConfigManager.Config.LoadDocumentView = True Then
Dim newDocView As New frmDocView
With newDocView
.Show()
.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
End With
_frmDocView = newDocView
ToolStripButtonDocView.Checked = True
Else
ToolStripButtonDocView.Checked = False
End If
End Try
BringToFront()
Else
tslblDocID.Text = "DocRow not selected"
ToolStripDropDownButtonFile.Enabled = False
End If
Catch ex As Exception
Logger.Error(ex)
End Try
If ToolStripDropDownButtonFile.Visible = False Then
ToolStripDropDownButtonFile.Visible = True
End If
If clsWMDocGrid.SELECTED_DOC_ID <> 0 Then
Dim msg = "Doc-ID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
tslblDocID.Text = msg
ToolStripDropDownButtonFile.Enabled = True
Dim frmCollection As New FormCollection()
frmCollection = Application.OpenForms()
Try
If frmCollection.Item("frmDocView").IsHandleCreated Then
'MsgBox("Yes Opened")
_frmDocView.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
Else
Dim f As New frmDocView
With f
.Show()
.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
End With
End If
Catch ex As Exception
If ConfigManager.Config.LoadDocumentView = True Then
Dim newDocView As New frmDocView
With newDocView
.Show()
.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
End With
_frmDocView = newDocView
ToolStripButtonDocView.Checked = True
Else
ToolStripButtonDocView.Checked = False
End If
End Try
BringToFront()
Else
tslblDocID.Text = "DocRow not selected"
ToolStripDropDownButtonFile.Enabled = False
End If
End Sub
Private Sub GridViewDocSearch_FocusedRowChanged(sender As GridView, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewDocSearch1.FocusedRowChanged, GridViewDocSearch2.FocusedRowChanged, GridViewDocSearch3.FocusedRowChanged, GridViewDocSearch4.FocusedRowChanged, GridViewDocSearch5.FocusedRowChanged
_activeGridView = sender