Common: Fix Property Dialog, Fix context Menu in DocumentResultList
This commit is contained in:
@@ -6,11 +6,13 @@ Imports DigitalData.Modules.Windows.NativeMethods
|
||||
Imports DigitalData.Modules.Windows.File
|
||||
Imports DigitalData.Modules.ZooFlow
|
||||
Imports DigitalData.Modules.EDMI.API.Rights
|
||||
Imports DigitalData.Modules.EDMI.API
|
||||
|
||||
Public Class DocumentPropertyMenu
|
||||
Private ReadOnly _Logger As Logger
|
||||
Private ReadOnly _LogConfig As LogConfig
|
||||
Private ReadOnly _Environment As Environment
|
||||
Private ReadOnly _Client As Client
|
||||
Private ReadOnly _File As Modules.Windows.File
|
||||
|
||||
Private ReadOnly _FilePath As String
|
||||
@@ -21,10 +23,11 @@ Public Class DocumentPropertyMenu
|
||||
Public Const COPY_PATH As String = "Dateipfad kopieren"
|
||||
Public Const OPEN_PROPERTIES As String = "Eigenschaften"
|
||||
|
||||
Public Sub New(LogConfig As LogConfig, Environment As Environment, FilePath As String, Optional ObjectId As Long = 0)
|
||||
Public Sub New(LogConfig As LogConfig, Environment As Environment, Client As Client, FilePath As String, Optional ObjectId As Long = 0)
|
||||
_LogConfig = LogConfig
|
||||
_Logger = LogConfig.GetLogger()
|
||||
_Environment = Environment
|
||||
_Client = Client
|
||||
_FilePath = FilePath
|
||||
_ObjectId = ObjectId
|
||||
_File = New Modules.Windows.File(LogConfig)
|
||||
@@ -77,7 +80,7 @@ Public Class DocumentPropertyMenu
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oPropertyDialog As New frmObjectPropertyDialog(_LogConfig, _Environment, _ObjectId)
|
||||
Dim oPropertyDialog As New frmObjectPropertyDialog(_LogConfig, _Environment, _Client, _ObjectId)
|
||||
oPropertyDialog.Show()
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user