Common/DocumentResultList: Rewrite of Context menu
This commit is contained in:
Jonathan Jenne
parent
c8d052ed1d
commit
5d0c0a8f1e
@ -105,7 +105,6 @@
|
||||
<Compile Include="DataResultList\frmDataResultList.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DocumentPropertyMenu\DocumentPropertyMenu.vb" />
|
||||
<Compile Include="DocumentResultList\DocumentResultConfig.vb" />
|
||||
<Compile Include="DocumentResultList\DocumentResultInfo.vb" />
|
||||
<Compile Include="DocumentResultList\DocumentResultList.vb" />
|
||||
@ -278,5 +277,11 @@
|
||||
<ItemGroup>
|
||||
<None Include="Resources\grid.svg" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\copy.svg" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\open.svg" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
</Project>
|
||||
@ -1,153 +0,0 @@
|
||||
Imports System.Windows.Forms
|
||||
Imports DevExpress.Utils.Menu
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.Modules.ZooFlow
|
||||
Imports DigitalData.Modules.EDMI.API.Rights
|
||||
Imports DigitalData.Modules.EDMI.API
|
||||
Imports DigitalData.GUIs.Common
|
||||
|
||||
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
|
||||
Private ReadOnly _ObjectId As Long
|
||||
|
||||
Public Const OPEN_FILE As String = "Datei öffnen"
|
||||
Public Const OPEN_DIRECTORY As String = "Ordner öffnen"
|
||||
Public Const COPY_FILE_PATH As String = "Dateipfad kopieren"
|
||||
Public Const COPY_FOLDER_PATH As String = "Ordnerpfad kopieren"
|
||||
Public Const OPEN_PROPERTIES As String = "Eigenschaften"
|
||||
|
||||
Public Event FileOpened As EventHandler(Of String)
|
||||
Public Event FileClosed As EventHandler(Of String)
|
||||
|
||||
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)
|
||||
End Sub
|
||||
|
||||
Public Function GetMenuItems(OperationMode As IResultForm.Mode, AccessRight As AccessRight) As List(Of DXMenuItem)
|
||||
If OperationMode = IResultForm.Mode.NoAppServer Then
|
||||
Return GetLegacyMenuItems()
|
||||
Else
|
||||
Return GetIDBMenuItems(AccessRight)
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function GetIDBMenuItems(AccessRight As AccessRight) As List(Of DXMenuItem)
|
||||
Dim oOpenFile = New DXMenuItem(OPEN_FILE, AddressOf OpenFile_Click)
|
||||
Dim oOpenFolder = New DXMenuItem(OPEN_DIRECTORY, AddressOf OpenFolder_Click)
|
||||
Dim oCopyFilePath = New DXMenuItem(COPY_FILE_PATH, AddressOf CopyFilePath_Click)
|
||||
Dim oCopyFolderPath = New DXMenuItem(COPY_FOLDER_PATH, AddressOf CopyFolderPath_Click)
|
||||
Dim oProperties = New DXMenuItem(OPEN_PROPERTIES, AddressOf Properties_Click)
|
||||
|
||||
If AccessRight = AccessRight.VIEW_ONLY Then
|
||||
Return New List(Of DXMenuItem) From {
|
||||
oProperties
|
||||
}
|
||||
Else
|
||||
Return New List(Of DXMenuItem) From {
|
||||
oOpenFile,
|
||||
oOpenFolder,
|
||||
oCopyFilePath,
|
||||
oCopyFolderPath,
|
||||
oProperties
|
||||
}
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function GetLegacyMenuItems() As List(Of DXMenuItem)
|
||||
Dim oOpenFile = New DXMenuItem(OPEN_FILE, AddressOf OpenFile_Click)
|
||||
Dim oOpenFolder = New DXMenuItem(OPEN_DIRECTORY, AddressOf OpenFolder_Click)
|
||||
Dim oCopyFilePath = New DXMenuItem(COPY_FILE_PATH, AddressOf CopyFilePath_Click)
|
||||
Dim oCopyFolderPath = New DXMenuItem(COPY_FOLDER_PATH, AddressOf CopyFolderPath_Click)
|
||||
Dim oProperties = New DXMenuItem(OPEN_PROPERTIES, AddressOf Properties_Click_Legacy)
|
||||
|
||||
Return New List(Of DXMenuItem) From {
|
||||
oOpenFile,
|
||||
oOpenFolder,
|
||||
oCopyFilePath,
|
||||
oCopyFolderPath,
|
||||
oProperties
|
||||
}
|
||||
End Function
|
||||
|
||||
Public Sub Properties_Click(sender As Object, e As EventArgs)
|
||||
If TestObjectIdExists(OPEN_PROPERTIES) = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oPropertyDialog As New frmObjectPropertyDialog(_LogConfig, _Environment, _Client, _ObjectId)
|
||||
oPropertyDialog.Show()
|
||||
End Sub
|
||||
|
||||
Public Sub Properties_Click_Legacy(sender As Object, e As EventArgs)
|
||||
If TestPathExists(OPEN_PROPERTIES) = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
_File.OpenFileProperties(_FilePath)
|
||||
End Sub
|
||||
|
||||
Public Sub CopyFilePath_Click(sender As Object, e As EventArgs)
|
||||
Clipboard.SetText(_FilePath)
|
||||
End Sub
|
||||
|
||||
Public Sub CopyFolderPath_Click(sender As Object, e As EventArgs)
|
||||
Dim oFolderPath = IO.Path.GetDirectoryName(_FilePath)
|
||||
Clipboard.SetText(oFolderPath)
|
||||
End Sub
|
||||
|
||||
Public Sub OpenFile_Click(sender As Object, e As EventArgs)
|
||||
If TestPathExists(OPEN_FILE) = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Try
|
||||
RaiseEvent FileOpened(Me, _FilePath)
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub OpenFolder_Click(sender As Object, e As EventArgs)
|
||||
If TestPathExists(OPEN_DIRECTORY) = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oArgs As String = $"/e, /select, ""{_FilePath}"""
|
||||
Dim oInfo As New ProcessStartInfo() With {
|
||||
.Arguments = oArgs,
|
||||
.FileName = "explorer"
|
||||
}
|
||||
|
||||
Process.Start(oInfo)
|
||||
End Sub
|
||||
|
||||
Private Function TestPathExists(Title As String) As Boolean
|
||||
If IO.File.Exists(_FilePath) = False Then
|
||||
MessageBox.Show($"Datei {_FilePath} existiert nicht oder wurde verschoben!", Title, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Function TestObjectIdExists(Title As String) As Boolean
|
||||
If _ObjectId = 0 Then
|
||||
MessageBox.Show($"Objekt {_ObjectId} existiert nicht oder wurde verschoben!", Title, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
End Class
|
||||
@ -29,19 +29,20 @@ Partial Class frmDocumentResultList
|
||||
Me.SwitchMainContainerHorizontal = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.SwitchDetailContainerHorizontal = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarButtonItemExportGrid1 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
|
||||
Me.labelResultCount = New DevExpress.XtraBars.BarStaticItem()
|
||||
Me.BarButtonBack = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem()
|
||||
Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
|
||||
Me.BarEditItem2 = New DevExpress.XtraBars.BarEditItem()
|
||||
Me.RepositoryItemTextEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
|
||||
Me.labelCriticalError = New DevExpress.XtraBars.BarStaticItem()
|
||||
Me.labelWarning = New DevExpress.XtraBars.BarStaticItem()
|
||||
Me.MenuItemFileOpen = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.MenuItemPropertiesIDB = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.MenuItemFolderOpen = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.MenuItemFilepathCopy = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.MenuItemFolderpathCopy = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.MenuItemPropertiesECM = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup_Navigation = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup_Layout = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
@ -57,6 +58,9 @@ Partial Class frmDocumentResultList
|
||||
Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl()
|
||||
Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
|
||||
Me.XtraSaveFileDialog = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components)
|
||||
Me.MenuFullAccess_IDB = New DevExpress.XtraBars.PopupMenu(Me.components)
|
||||
Me.MenuViewAccess_IDB = New DevExpress.XtraBars.PopupMenu(Me.components)
|
||||
Me.MenuFullAccess_EDM = New DevExpress.XtraBars.PopupMenu(Me.components)
|
||||
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainerControl1.SuspendLayout()
|
||||
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -72,34 +76,25 @@ Partial Class frmDocumentResultList
|
||||
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainerControl3.SuspendLayout()
|
||||
CType(Me.MenuFullAccess_IDB, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.MenuViewAccess_IDB, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.MenuFullAccess_EDM, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SplitContainerControl1
|
||||
'
|
||||
resources.ApplyResources(Me.SplitContainerControl1, "SplitContainerControl1")
|
||||
Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
|
||||
resources.ApplyResources(Me.SplitContainerControl1, "SplitContainerControl1")
|
||||
Me.SplitContainerControl1.Name = "SplitContainerControl1"
|
||||
resources.ApplyResources(Me.SplitContainerControl1.Panel1, "SplitContainerControl1.Panel1")
|
||||
Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControl1)
|
||||
resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
|
||||
resources.ApplyResources(Me.SplitContainerControl1.Panel1, "SplitContainerControl1.Panel1")
|
||||
Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2)
|
||||
resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
|
||||
Me.SplitContainerControl1.SplitterPosition = 382
|
||||
'
|
||||
'GridControl1
|
||||
'
|
||||
resources.ApplyResources(Me.GridControl1, "GridControl1")
|
||||
Me.GridControl1.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControl1.EmbeddedNavigator.AccessibleDescription")
|
||||
Me.GridControl1.EmbeddedNavigator.AccessibleName = resources.GetString("GridControl1.EmbeddedNavigator.AccessibleName")
|
||||
Me.GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
|
||||
Me.GridControl1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControl1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
|
||||
Me.GridControl1.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControl1.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
|
||||
Me.GridControl1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControl1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
|
||||
Me.GridControl1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
|
||||
Me.GridControl1.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControl1.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
|
||||
Me.GridControl1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControl1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
|
||||
Me.GridControl1.EmbeddedNavigator.ToolTip = resources.GetString("GridControl1.EmbeddedNavigator.ToolTip")
|
||||
Me.GridControl1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControl1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
|
||||
Me.GridControl1.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControl1.EmbeddedNavigator.ToolTipTitle")
|
||||
Me.GridControl1.MainView = Me.GridView1
|
||||
Me.GridControl1.MenuManager = Me.RibbonControl
|
||||
Me.GridControl1.Name = "GridControl1"
|
||||
@ -112,7 +107,6 @@ Partial Class frmDocumentResultList
|
||||
Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
|
||||
Me.GridView1.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand1})
|
||||
resources.ApplyResources(Me.GridView1, "GridView1")
|
||||
Me.GridView1.GridControl = Me.GridControl1
|
||||
Me.GridView1.Name = "GridView1"
|
||||
Me.GridView1.OptionsBehavior.Editable = False
|
||||
@ -133,14 +127,10 @@ Partial Class frmDocumentResultList
|
||||
'
|
||||
'RibbonControl
|
||||
'
|
||||
resources.ApplyResources(Me.RibbonControl, "RibbonControl")
|
||||
Me.RibbonControl.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer)
|
||||
Me.RibbonControl.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.RibbonControl.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.RibbonControl.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl.ExpandCollapseItem.SearchTags")
|
||||
Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.SwitchMainContainerHorizontal, Me.SwitchDetailContainerHorizontal, Me.BarButtonItemExportGrid1, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1, Me.labelResultCount, Me.BarButtonBack, Me.BarButtonItem5, Me.BarEditItem1, Me.BarEditItem2, Me.labelCriticalError, Me.labelWarning})
|
||||
Me.RibbonControl.MaxItemId = 16
|
||||
Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.SwitchMainContainerHorizontal, Me.SwitchDetailContainerHorizontal, Me.BarButtonItemExportGrid1, Me.BarStaticItem1, Me.labelResultCount, Me.BarButtonBack, Me.BarButtonItem5, Me.labelCriticalError, Me.labelWarning, Me.MenuItemFileOpen, Me.MenuItemPropertiesIDB, Me.MenuItemFolderOpen, Me.MenuItemFilepathCopy, Me.MenuItemFolderpathCopy, Me.MenuItemPropertiesECM})
|
||||
resources.ApplyResources(Me.RibbonControl, "RibbonControl")
|
||||
Me.RibbonControl.MaxItemId = 27
|
||||
Me.RibbonControl.Name = "RibbonControl"
|
||||
Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
|
||||
Me.RibbonControl.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2})
|
||||
@ -152,74 +142,30 @@ Partial Class frmDocumentResultList
|
||||
'
|
||||
'SwitchMainContainerHorizontal
|
||||
'
|
||||
resources.ApplyResources(Me.SwitchMainContainerHorizontal, "SwitchMainContainerHorizontal")
|
||||
Me.SwitchMainContainerHorizontal.BindableChecked = True
|
||||
resources.ApplyResources(Me.SwitchMainContainerHorizontal, "SwitchMainContainerHorizontal")
|
||||
Me.SwitchMainContainerHorizontal.Checked = True
|
||||
Me.SwitchMainContainerHorizontal.Id = 1
|
||||
Me.SwitchMainContainerHorizontal.ImageOptions.ImageIndex = CType(resources.GetObject("SwitchMainContainerHorizontal.ImageOptions.ImageIndex"), Integer)
|
||||
Me.SwitchMainContainerHorizontal.ImageOptions.LargeImageIndex = CType(resources.GetObject("SwitchMainContainerHorizontal.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.SwitchMainContainerHorizontal.ImageOptions.SvgImage = CType(resources.GetObject("SwitchMainContainerHorizontal.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.SwitchMainContainerHorizontal.Name = "SwitchMainContainerHorizontal"
|
||||
'
|
||||
'SwitchDetailContainerHorizontal
|
||||
'
|
||||
resources.ApplyResources(Me.SwitchDetailContainerHorizontal, "SwitchDetailContainerHorizontal")
|
||||
Me.SwitchDetailContainerHorizontal.Id = 2
|
||||
Me.SwitchDetailContainerHorizontal.ImageOptions.ImageIndex = CType(resources.GetObject("SwitchDetailContainerHorizontal.ImageOptions.ImageIndex"), Integer)
|
||||
Me.SwitchDetailContainerHorizontal.ImageOptions.LargeImageIndex = CType(resources.GetObject("SwitchDetailContainerHorizontal.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.SwitchDetailContainerHorizontal.ImageOptions.SvgImage = CType(resources.GetObject("SwitchDetailContainerHorizontal.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.SwitchDetailContainerHorizontal.Name = "SwitchDetailContainerHorizontal"
|
||||
'
|
||||
'BarButtonItemExportGrid1
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItemExportGrid1, "BarButtonItemExportGrid1")
|
||||
Me.BarButtonItemExportGrid1.Id = 3
|
||||
Me.BarButtonItemExportGrid1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItemExportGrid1.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarButtonItemExportGrid1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItemExportGrid1.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarButtonItemExportGrid1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemExportGrid1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarButtonItemExportGrid1.Name = "BarButtonItemExportGrid1"
|
||||
Me.BarButtonItemExportGrid1.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
|
||||
'
|
||||
'BarButtonItem1
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
|
||||
Me.BarButtonItem1.Id = 4
|
||||
Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarButtonItem1.Name = "BarButtonItem1"
|
||||
'
|
||||
'BarButtonItem2
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
|
||||
Me.BarButtonItem2.Id = 5
|
||||
Me.BarButtonItem2.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem2.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem2.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarButtonItem2.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarButtonItem2.Name = "BarButtonItem2"
|
||||
'
|
||||
'BarButtonItem3
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3")
|
||||
Me.BarButtonItem3.Id = 6
|
||||
Me.BarButtonItem3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem3.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem3.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem3.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem3.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarButtonItem3.Name = "BarButtonItem3"
|
||||
'
|
||||
'BarStaticItem1
|
||||
'
|
||||
resources.ApplyResources(Me.BarStaticItem1, "BarStaticItem1")
|
||||
Me.BarStaticItem1.Id = 7
|
||||
Me.BarStaticItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarStaticItem1.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarStaticItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarStaticItem1.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarStaticItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarStaticItem1.Name = "BarStaticItem1"
|
||||
Me.BarStaticItem1.Tag = "{0} Ergebnisse"
|
||||
'
|
||||
@ -227,9 +173,6 @@ Partial Class frmDocumentResultList
|
||||
'
|
||||
resources.ApplyResources(Me.labelResultCount, "labelResultCount")
|
||||
Me.labelResultCount.Id = 8
|
||||
Me.labelResultCount.ImageOptions.ImageIndex = CType(resources.GetObject("labelResultCount.ImageOptions.ImageIndex"), Integer)
|
||||
Me.labelResultCount.ImageOptions.LargeImageIndex = CType(resources.GetObject("labelResultCount.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.labelResultCount.ImageOptions.SvgImage = CType(resources.GetObject("labelResultCount.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.labelResultCount.Name = "labelResultCount"
|
||||
'
|
||||
'BarButtonBack
|
||||
@ -237,48 +180,22 @@ Partial Class frmDocumentResultList
|
||||
resources.ApplyResources(Me.BarButtonBack, "BarButtonBack")
|
||||
Me.BarButtonBack.Id = 9
|
||||
Me.BarButtonBack.ImageOptions.Image = CType(resources.GetObject("BarButtonBack.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonBack.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonBack.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarButtonBack.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonBack.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonBack.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonBack.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarButtonBack.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonBack.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarButtonBack.Name = "BarButtonBack"
|
||||
'
|
||||
'BarButtonItem5
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem5, "BarButtonItem5")
|
||||
Me.BarButtonItem5.Id = 10
|
||||
Me.BarButtonItem5.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem5.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarButtonItem5.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem5.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarButtonItem5.Name = "BarButtonItem5"
|
||||
Me.BarButtonItem5.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
|
||||
'
|
||||
'BarEditItem1
|
||||
'
|
||||
resources.ApplyResources(Me.BarEditItem1, "BarEditItem1")
|
||||
Me.BarEditItem1.CaptionToEditorIndent = 0
|
||||
Me.BarEditItem1.Edit = Me.RepositoryItemTextEdit1
|
||||
Me.BarEditItem1.Id = 12
|
||||
Me.BarEditItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarEditItem1.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarEditItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarEditItem1.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarEditItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarEditItem1.Name = "BarEditItem1"
|
||||
'
|
||||
'RepositoryItemTextEdit1
|
||||
'
|
||||
resources.ApplyResources(Me.RepositoryItemTextEdit1, "RepositoryItemTextEdit1")
|
||||
Me.RepositoryItemTextEdit1.Name = "RepositoryItemTextEdit1"
|
||||
'
|
||||
'BarEditItem2
|
||||
'
|
||||
resources.ApplyResources(Me.BarEditItem2, "BarEditItem2")
|
||||
Me.BarEditItem2.Edit = Me.RepositoryItemTextEdit2
|
||||
Me.BarEditItem2.Id = 13
|
||||
Me.BarEditItem2.ImageOptions.ImageIndex = CType(resources.GetObject("BarEditItem2.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarEditItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarEditItem2.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarEditItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarEditItem2.Name = "BarEditItem2"
|
||||
'
|
||||
'RepositoryItemTextEdit2
|
||||
'
|
||||
resources.ApplyResources(Me.RepositoryItemTextEdit2, "RepositoryItemTextEdit2")
|
||||
@ -286,11 +203,9 @@ Partial Class frmDocumentResultList
|
||||
'
|
||||
'labelCriticalError
|
||||
'
|
||||
resources.ApplyResources(Me.labelCriticalError, "labelCriticalError")
|
||||
Me.labelCriticalError.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
|
||||
resources.ApplyResources(Me.labelCriticalError, "labelCriticalError")
|
||||
Me.labelCriticalError.Id = 14
|
||||
Me.labelCriticalError.ImageOptions.ImageIndex = CType(resources.GetObject("labelCriticalError.ImageOptions.ImageIndex"), Integer)
|
||||
Me.labelCriticalError.ImageOptions.LargeImageIndex = CType(resources.GetObject("labelCriticalError.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.labelCriticalError.ImageOptions.SvgImage = CType(resources.GetObject("labelCriticalError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.labelCriticalError.ItemAppearance.Normal.BackColor = System.Drawing.Color.White
|
||||
Me.labelCriticalError.ItemAppearance.Normal.ForeColor = DevExpress.LookAndFeel.DXSkinColors.ForeColors.Critical
|
||||
@ -302,11 +217,9 @@ Partial Class frmDocumentResultList
|
||||
'
|
||||
'labelWarning
|
||||
'
|
||||
resources.ApplyResources(Me.labelWarning, "labelWarning")
|
||||
Me.labelWarning.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
|
||||
resources.ApplyResources(Me.labelWarning, "labelWarning")
|
||||
Me.labelWarning.Id = 15
|
||||
Me.labelWarning.ImageOptions.ImageIndex = CType(resources.GetObject("labelWarning.ImageOptions.ImageIndex"), Integer)
|
||||
Me.labelWarning.ImageOptions.LargeImageIndex = CType(resources.GetObject("labelWarning.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.labelWarning.ImageOptions.SvgImage = CType(resources.GetObject("labelWarning.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.labelWarning.ItemAppearance.Normal.BackColor = System.Drawing.Color.White
|
||||
Me.labelWarning.ItemAppearance.Normal.Options.UseBackColor = True
|
||||
@ -314,6 +227,48 @@ Partial Class frmDocumentResultList
|
||||
Me.labelWarning.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
|
||||
Me.labelWarning.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
|
||||
'
|
||||
'MenuItemFileOpen
|
||||
'
|
||||
resources.ApplyResources(Me.MenuItemFileOpen, "MenuItemFileOpen")
|
||||
Me.MenuItemFileOpen.Id = 16
|
||||
Me.MenuItemFileOpen.ImageOptions.SvgImage = CType(resources.GetObject("MenuItemFileOpen.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.MenuItemFileOpen.Name = "MenuItemFileOpen"
|
||||
'
|
||||
'MenuItemPropertiesIDB
|
||||
'
|
||||
resources.ApplyResources(Me.MenuItemPropertiesIDB, "MenuItemPropertiesIDB")
|
||||
Me.MenuItemPropertiesIDB.Id = 17
|
||||
Me.MenuItemPropertiesIDB.ImageOptions.SvgImage = CType(resources.GetObject("MenuItemPropertiesIDB.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.MenuItemPropertiesIDB.Name = "MenuItemPropertiesIDB"
|
||||
'
|
||||
'MenuItemFolderOpen
|
||||
'
|
||||
resources.ApplyResources(Me.MenuItemFolderOpen, "MenuItemFolderOpen")
|
||||
Me.MenuItemFolderOpen.Id = 18
|
||||
Me.MenuItemFolderOpen.ImageOptions.SvgImage = CType(resources.GetObject("MenuItemFolderOpen.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.MenuItemFolderOpen.Name = "MenuItemFolderOpen"
|
||||
'
|
||||
'MenuItemFilepathCopy
|
||||
'
|
||||
resources.ApplyResources(Me.MenuItemFilepathCopy, "MenuItemFilepathCopy")
|
||||
Me.MenuItemFilepathCopy.Id = 19
|
||||
Me.MenuItemFilepathCopy.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.copy
|
||||
Me.MenuItemFilepathCopy.Name = "MenuItemFilepathCopy"
|
||||
'
|
||||
'MenuItemFolderpathCopy
|
||||
'
|
||||
resources.ApplyResources(Me.MenuItemFolderpathCopy, "MenuItemFolderpathCopy")
|
||||
Me.MenuItemFolderpathCopy.Id = 20
|
||||
Me.MenuItemFolderpathCopy.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.open
|
||||
Me.MenuItemFolderpathCopy.Name = "MenuItemFolderpathCopy"
|
||||
'
|
||||
'MenuItemPropertiesECM
|
||||
'
|
||||
resources.ApplyResources(Me.MenuItemPropertiesECM, "MenuItemPropertiesECM")
|
||||
Me.MenuItemPropertiesECM.Id = 26
|
||||
Me.MenuItemPropertiesECM.ImageOptions.SvgImage = CType(resources.GetObject("MenuItemPropertiesECM.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.MenuItemPropertiesECM.Name = "MenuItemPropertiesECM"
|
||||
'
|
||||
'RibbonPage1
|
||||
'
|
||||
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Navigation, Me.RibbonPageGroup_Layout, Me.RibbonPageGroup_Export})
|
||||
@ -345,40 +300,28 @@ Partial Class frmDocumentResultList
|
||||
'
|
||||
'RibbonStatusBar
|
||||
'
|
||||
resources.ApplyResources(Me.RibbonStatusBar, "RibbonStatusBar")
|
||||
Me.RibbonStatusBar.ItemLinks.Add(Me.labelResultCount)
|
||||
Me.RibbonStatusBar.ItemLinks.Add(Me.labelCriticalError)
|
||||
Me.RibbonStatusBar.ItemLinks.Add(Me.labelWarning)
|
||||
resources.ApplyResources(Me.RibbonStatusBar, "RibbonStatusBar")
|
||||
Me.RibbonStatusBar.Name = "RibbonStatusBar"
|
||||
Me.RibbonStatusBar.Ribbon = Me.RibbonControl
|
||||
'
|
||||
'SplitContainerControl2
|
||||
'
|
||||
resources.ApplyResources(Me.SplitContainerControl2, "SplitContainerControl2")
|
||||
Me.SplitContainerControl2.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
|
||||
resources.ApplyResources(Me.SplitContainerControl2, "SplitContainerControl2")
|
||||
Me.SplitContainerControl2.Horizontal = False
|
||||
Me.SplitContainerControl2.Name = "SplitContainerControl2"
|
||||
resources.ApplyResources(Me.SplitContainerControl2.Panel1, "SplitContainerControl2.Panel1")
|
||||
Me.SplitContainerControl2.Panel1.Controls.Add(Me.GridControl2)
|
||||
resources.ApplyResources(Me.SplitContainerControl2.Panel2, "SplitContainerControl2.Panel2")
|
||||
resources.ApplyResources(Me.SplitContainerControl2.Panel1, "SplitContainerControl2.Panel1")
|
||||
Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControl3)
|
||||
resources.ApplyResources(Me.SplitContainerControl2.Panel2, "SplitContainerControl2.Panel2")
|
||||
Me.SplitContainerControl2.SplitterPosition = 223
|
||||
'
|
||||
'GridControl2
|
||||
'
|
||||
resources.ApplyResources(Me.GridControl2, "GridControl2")
|
||||
Me.GridControl2.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControl2.EmbeddedNavigator.AccessibleDescription")
|
||||
Me.GridControl2.EmbeddedNavigator.AccessibleName = resources.GetString("GridControl2.EmbeddedNavigator.AccessibleName")
|
||||
Me.GridControl2.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControl2.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
|
||||
Me.GridControl2.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControl2.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
|
||||
Me.GridControl2.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControl2.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
|
||||
Me.GridControl2.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControl2.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
|
||||
Me.GridControl2.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl2.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
|
||||
Me.GridControl2.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControl2.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
|
||||
Me.GridControl2.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControl2.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
|
||||
Me.GridControl2.EmbeddedNavigator.ToolTip = resources.GetString("GridControl2.EmbeddedNavigator.ToolTip")
|
||||
Me.GridControl2.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControl2.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
|
||||
Me.GridControl2.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControl2.EmbeddedNavigator.ToolTipTitle")
|
||||
Me.GridControl2.MainView = Me.GridView2
|
||||
Me.GridControl2.MenuManager = Me.RibbonControl
|
||||
Me.GridControl2.Name = "GridControl2"
|
||||
@ -389,7 +332,6 @@ Partial Class frmDocumentResultList
|
||||
Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro
|
||||
Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridView2.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand2})
|
||||
resources.ApplyResources(Me.GridView2, "GridView2")
|
||||
Me.GridView2.GridControl = Me.GridControl2
|
||||
Me.GridView2.Name = "GridView2"
|
||||
Me.GridView2.OptionsView.EnableAppearanceEvenRow = True
|
||||
@ -409,18 +351,6 @@ Partial Class frmDocumentResultList
|
||||
'GridControl3
|
||||
'
|
||||
resources.ApplyResources(Me.GridControl3, "GridControl3")
|
||||
Me.GridControl3.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControl3.EmbeddedNavigator.AccessibleDescription")
|
||||
Me.GridControl3.EmbeddedNavigator.AccessibleName = resources.GetString("GridControl3.EmbeddedNavigator.AccessibleName")
|
||||
Me.GridControl3.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControl3.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
|
||||
Me.GridControl3.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControl3.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
|
||||
Me.GridControl3.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControl3.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
|
||||
Me.GridControl3.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControl3.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
|
||||
Me.GridControl3.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl3.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
|
||||
Me.GridControl3.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControl3.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
|
||||
Me.GridControl3.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControl3.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
|
||||
Me.GridControl3.EmbeddedNavigator.ToolTip = resources.GetString("GridControl3.EmbeddedNavigator.ToolTip")
|
||||
Me.GridControl3.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControl3.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
|
||||
Me.GridControl3.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControl3.EmbeddedNavigator.ToolTipTitle")
|
||||
Me.GridControl3.MainView = Me.GridView3
|
||||
Me.GridControl3.MenuManager = Me.RibbonControl
|
||||
Me.GridControl3.Name = "GridControl3"
|
||||
@ -431,7 +361,6 @@ Partial Class frmDocumentResultList
|
||||
Me.GridView3.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro
|
||||
Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridView3.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand3})
|
||||
resources.ApplyResources(Me.GridView3, "GridView3")
|
||||
Me.GridView3.GridControl = Me.GridControl3
|
||||
Me.GridView3.Name = "GridView3"
|
||||
Me.GridView3.OptionsView.EnableAppearanceEvenRow = True
|
||||
@ -450,12 +379,13 @@ Partial Class frmDocumentResultList
|
||||
'
|
||||
'SplitContainerControl3
|
||||
'
|
||||
Me.SplitContainerControl3.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.[Default]
|
||||
resources.ApplyResources(Me.SplitContainerControl3, "SplitContainerControl3")
|
||||
Me.SplitContainerControl3.Name = "SplitContainerControl3"
|
||||
resources.ApplyResources(Me.SplitContainerControl3.Panel1, "SplitContainerControl3.Panel1")
|
||||
Me.SplitContainerControl3.Panel1.Controls.Add(Me.SplitContainerControl1)
|
||||
resources.ApplyResources(Me.SplitContainerControl3.Panel2, "SplitContainerControl3.Panel2")
|
||||
resources.ApplyResources(Me.SplitContainerControl3.Panel1, "SplitContainerControl3.Panel1")
|
||||
Me.SplitContainerControl3.Panel2.Controls.Add(Me.DocumentViewer1)
|
||||
resources.ApplyResources(Me.SplitContainerControl3.Panel2, "SplitContainerControl3.Panel2")
|
||||
Me.SplitContainerControl3.SplitterPosition = 762
|
||||
'
|
||||
'DocumentViewer1
|
||||
@ -466,13 +396,38 @@ Partial Class frmDocumentResultList
|
||||
'
|
||||
'XtraSaveFileDialog
|
||||
'
|
||||
resources.ApplyResources(Me.XtraSaveFileDialog, "XtraSaveFileDialog")
|
||||
Me.XtraSaveFileDialog.FileName = "XtraSaveFileDialog1"
|
||||
'
|
||||
'MenuFullAccess_IDB
|
||||
'
|
||||
Me.MenuFullAccess_IDB.ItemLinks.Add(Me.MenuItemFileOpen)
|
||||
Me.MenuFullAccess_IDB.ItemLinks.Add(Me.MenuItemFolderOpen)
|
||||
Me.MenuFullAccess_IDB.ItemLinks.Add(Me.MenuItemFilepathCopy)
|
||||
Me.MenuFullAccess_IDB.ItemLinks.Add(Me.MenuItemFolderpathCopy)
|
||||
Me.MenuFullAccess_IDB.ItemLinks.Add(Me.MenuItemPropertiesIDB)
|
||||
Me.MenuFullAccess_IDB.Name = "MenuFullAccess_IDB"
|
||||
Me.MenuFullAccess_IDB.Ribbon = Me.RibbonControl
|
||||
'
|
||||
'MenuViewAccess_IDB
|
||||
'
|
||||
Me.MenuViewAccess_IDB.ItemLinks.Add(Me.MenuItemPropertiesIDB)
|
||||
Me.MenuViewAccess_IDB.Name = "MenuViewAccess_IDB"
|
||||
Me.MenuViewAccess_IDB.Ribbon = Me.RibbonControl
|
||||
'
|
||||
'MenuFullAccess_EDM
|
||||
'
|
||||
Me.MenuFullAccess_EDM.ItemLinks.Add(Me.MenuItemFileOpen)
|
||||
Me.MenuFullAccess_EDM.ItemLinks.Add(Me.MenuItemFolderOpen)
|
||||
Me.MenuFullAccess_EDM.ItemLinks.Add(Me.MenuItemFilepathCopy)
|
||||
Me.MenuFullAccess_EDM.ItemLinks.Add(Me.MenuItemFolderpathCopy)
|
||||
Me.MenuFullAccess_EDM.ItemLinks.Add(Me.MenuItemPropertiesECM)
|
||||
Me.MenuFullAccess_EDM.Name = "MenuFullAccess_EDM"
|
||||
Me.MenuFullAccess_EDM.Ribbon = Me.RibbonControl
|
||||
'
|
||||
'frmDocumentResultList
|
||||
'
|
||||
resources.ApplyResources(Me, "$this")
|
||||
Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True]
|
||||
resources.ApplyResources(Me, "$this")
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.SplitContainerControl3)
|
||||
Me.Controls.Add(Me.RibbonStatusBar)
|
||||
@ -497,6 +452,9 @@ Partial Class frmDocumentResultList
|
||||
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainerControl3.ResumeLayout(False)
|
||||
CType(Me.MenuFullAccess_IDB, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.MenuViewAccess_IDB, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.MenuFullAccess_EDM, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@ -521,21 +479,25 @@ Partial Class frmDocumentResultList
|
||||
Friend WithEvents RibbonPageGroup_Export As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl
|
||||
Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
|
||||
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
|
||||
Friend WithEvents labelResultCount As DevExpress.XtraBars.BarStaticItem
|
||||
Friend WithEvents XtraSaveFileDialog As DevExpress.XtraEditors.XtraSaveFileDialog
|
||||
Friend WithEvents BarButtonBack As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents RibbonPageGroup_Navigation As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem
|
||||
Friend WithEvents RepositoryItemTextEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit
|
||||
Friend WithEvents BarEditItem2 As DevExpress.XtraBars.BarEditItem
|
||||
Friend WithEvents RepositoryItemTextEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit
|
||||
Friend WithEvents labelCriticalError As DevExpress.XtraBars.BarStaticItem
|
||||
Friend WithEvents labelWarning As DevExpress.XtraBars.BarStaticItem
|
||||
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridView
|
||||
Friend WithEvents GridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand
|
||||
Friend WithEvents MenuFullAccess_IDB As DevExpress.XtraBars.PopupMenu
|
||||
Friend WithEvents MenuItemFileOpen As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents MenuItemPropertiesIDB As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents MenuItemFolderOpen As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents MenuItemFilepathCopy As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents MenuItemFolderpathCopy As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents MenuViewAccess_IDB As DevExpress.XtraBars.PopupMenu
|
||||
Friend WithEvents MenuFullAccess_EDM As DevExpress.XtraBars.PopupMenu
|
||||
Friend WithEvents MenuItemPropertiesECM As DevExpress.XtraBars.BarButtonItem
|
||||
End Class
|
||||
|
||||
@ -339,6 +339,36 @@
|
||||
IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
|
||||
</value>
|
||||
</data>
|
||||
<data name="RibbonControl.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1189, 132</value>
|
||||
</data>
|
||||
<data name="RibbonStatusBar.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 647</value>
|
||||
</data>
|
||||
<data name="RibbonStatusBar.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1189, 24</value>
|
||||
</data>
|
||||
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>382, 515</value>
|
||||
</data>
|
||||
<data name="GridControl3.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>370, 282</value>
|
||||
</data>
|
||||
<data name="SplitContainerControl2.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>370, 515</value>
|
||||
</data>
|
||||
<data name="SplitContainerControl1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>762, 515</value>
|
||||
</data>
|
||||
<data name="SplitContainerControl3.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 132</value>
|
||||
</data>
|
||||
<data name="DocumentViewer1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>417, 515</value>
|
||||
</data>
|
||||
<data name="SplitContainerControl3.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1189, 515</value>
|
||||
</data>
|
||||
<data name="frmDocumentResultList.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -3,9 +3,11 @@ Imports System.Drawing
|
||||
Imports System.IO
|
||||
Imports System.Windows.Forms
|
||||
Imports DevExpress.Utils
|
||||
Imports DevExpress.XtraBars
|
||||
Imports DevExpress.XtraEditors
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
Imports DevExpress.XtraGrid.Menu
|
||||
Imports DevExpress.XtraGrid.Views.BandedGrid
|
||||
Imports DevExpress.XtraGrid.Views.Base
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
@ -28,6 +30,13 @@ Public Class frmDocumentResultList
|
||||
Private COLUMN_DOCID As String = "DocID"
|
||||
Private COLUMN_ICON As String = "ICON"
|
||||
|
||||
' Constants
|
||||
Private Const OPEN_FILE As String = "Datei öffnen"
|
||||
Private Const OPEN_DIRECTORY As String = "Ordner öffnen"
|
||||
Private Const COPY_FILE_PATH As String = "Dateipfad kopieren"
|
||||
Private Const COPY_FOLDER_PATH As String = "Ordnerpfad kopieren"
|
||||
Private Const OPEN_PROPERTIES As String = "Eigenschaften"
|
||||
|
||||
Private Const FILE_OPEN_TIMER_INTERVAL As Integer = 500
|
||||
|
||||
' Helper Classes
|
||||
@ -41,6 +50,7 @@ Public Class frmDocumentResultList
|
||||
Private _Helpers As DocumentResultList
|
||||
Private _Filesystem As DigitalData.Modules.Filesystem.File
|
||||
Private _GridBuilder As GridBuilder
|
||||
Private _File As Modules.Windows.File
|
||||
|
||||
' Runtime variables
|
||||
Private _IsLoading As Boolean = True
|
||||
@ -54,6 +64,7 @@ Public Class frmDocumentResultList
|
||||
Private WithEvents _FileOpenTimer As New Timer
|
||||
Private _OpenDocuments As New DocumentResultCache(50000000)
|
||||
Private _CurrentDocument As DocumentResultInfo = Nothing
|
||||
Private _CurrentDocumentId As Long = Nothing
|
||||
Private _Language As String
|
||||
|
||||
Private Property OperationMode As IResultForm.Mode Implements IResultForm.OperationMode
|
||||
@ -78,11 +89,8 @@ Public Class frmDocumentResultList
|
||||
_Filesystem = New Modules.Filesystem.File(_LogConfig)
|
||||
_GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3})
|
||||
_Environment = Environment
|
||||
_Logger.Debug("DocumentResultlist: Environment loaded")
|
||||
_Params = Params
|
||||
_Logger.Debug("DocumentResultlist: Params loaded")
|
||||
_ResultLists = Params.Results
|
||||
_Logger.Debug("DocumentResultlist: Params.Results loaded")
|
||||
_Language = Utils.NotNull(_Environment.User.Language, State.UserState.LANG_EN_US)
|
||||
End Sub
|
||||
|
||||
@ -582,7 +590,7 @@ Public Class frmDocumentResultList
|
||||
If _Config IsNot Nothing And _IsLoading = False Then
|
||||
_Config.Config.SplitContainer2Horizontal = SwitchDetailContainerHorizontal.Checked
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
|
||||
Private Sub BarButtonItemExportGrid1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemExportGrid1.ItemClick
|
||||
Dim oActiveGrid = GetActiveGridControl()
|
||||
@ -707,8 +715,9 @@ Public Class frmDocumentResultList
|
||||
Private Sub OpenFile()
|
||||
Try
|
||||
If _CurrentDocument IsNot Nothing Then
|
||||
Dim oFilename = _CurrentDocument.FullPath
|
||||
DocumentPropertyMenu_FileOpened(Me, oFilename)
|
||||
Process.Start(New ProcessStartInfo With {
|
||||
.FileName = _CurrentDocument.FullPath
|
||||
})
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
@ -716,51 +725,51 @@ Public Class frmDocumentResultList
|
||||
End Sub
|
||||
|
||||
Private Sub CopyFileName()
|
||||
Try
|
||||
Dim oRow = GetActiveRow()
|
||||
Try
|
||||
Dim oRow = GetActiveRow()
|
||||
|
||||
If oRow IsNot Nothing Then
|
||||
Dim oFilename = _CurrentDocument.FullPath
|
||||
Clipboard.SetText(oFilename)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
If oRow IsNot Nothing Then
|
||||
Dim oFilename = _CurrentDocument.FullPath
|
||||
Clipboard.SetText(oFilename)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub OpenProperties()
|
||||
Try
|
||||
Dim oRow = GetActiveRow()
|
||||
Private Sub OpenProperties()
|
||||
Try
|
||||
Dim oRow = GetActiveRow()
|
||||
|
||||
If oRow IsNot Nothing Then
|
||||
Dim oObjectId = oRow.Item(COLUMN_DOCID)
|
||||
Dim oPropertyDialog As New frmObjectPropertyDialog(_LogConfig, _Environment, _IDBClient, oObjectId)
|
||||
oPropertyDialog.Show()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
If oRow IsNot Nothing Then
|
||||
Dim oObjectId = oRow.Item(COLUMN_DOCID)
|
||||
Dim oPropertyDialog As New frmObjectPropertyDialog(_LogConfig, _Environment, _IDBClient, oObjectId)
|
||||
oPropertyDialog.Show()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub GridView1_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView1.ColumnFilterChanged
|
||||
Dim oRowCount = sender.RowCount
|
||||
UpdateGridHeader(_ResultLists, 0, oRowCount)
|
||||
End Sub
|
||||
Private Sub GridView1_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView1.ColumnFilterChanged
|
||||
Dim oRowCount = sender.RowCount
|
||||
UpdateGridHeader(_ResultLists, 0, oRowCount)
|
||||
End Sub
|
||||
|
||||
Private Sub GridView2_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView2.ColumnFilterChanged
|
||||
Dim oRowCount = sender.RowCount
|
||||
UpdateGridHeader(_ResultLists, 1, oRowCount)
|
||||
End Sub
|
||||
Private Sub GridView2_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView2.ColumnFilterChanged
|
||||
Dim oRowCount = sender.RowCount
|
||||
UpdateGridHeader(_ResultLists, 1, oRowCount)
|
||||
End Sub
|
||||
|
||||
Private Sub GridView3_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView3.ColumnFilterChanged
|
||||
Dim oRowCount = sender.RowCount
|
||||
UpdateGridHeader(_ResultLists, 2, oRowCount)
|
||||
End Sub
|
||||
Private Sub GridView3_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView3.ColumnFilterChanged
|
||||
Dim oRowCount = sender.RowCount
|
||||
UpdateGridHeader(_ResultLists, 2, oRowCount)
|
||||
End Sub
|
||||
|
||||
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonBack.ItemClick
|
||||
ShouldReturnToPreviousForm = True
|
||||
Close()
|
||||
End Sub
|
||||
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonBack.ItemClick
|
||||
ShouldReturnToPreviousForm = True
|
||||
Close()
|
||||
End Sub
|
||||
|
||||
Private Sub frmDocumentResultList_Closing(sender As Object, e As CancelEventArgs) Handles Me.FormClosing
|
||||
Try
|
||||
@ -777,48 +786,15 @@ Public Class frmDocumentResultList
|
||||
End Sub
|
||||
|
||||
Private Sub GridControl_DoubleClick(sender As Object, e As EventArgs) Handles GridControl1.DoubleClick, GridControl2.DoubleClick, GridControl3.DoubleClick
|
||||
If _CurrentDocument IsNot Nothing AndAlso _CurrentDocument.AccessRight > Rights.AccessRight.VIEW_ONLY Then
|
||||
OpenFile()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GridView_PopupMenuShowing(sender As Object, e As PopupMenuShowingEventArgs) _
|
||||
Handles GridView2.PopupMenuShowing, GridView3.PopupMenuShowing, GridView1.PopupMenuShowing
|
||||
Try
|
||||
Dim oView As GridView = sender
|
||||
|
||||
If e.MenuType = GridMenuType.Row Then
|
||||
Dim oRowHandle = e.HitInfo.RowHandle
|
||||
Dim oRow As DataRow = oView.GetDataRow(oRowHandle)
|
||||
Dim oFilepath As String = _CurrentDocument.FullPath
|
||||
Dim oObjectId As Long = oRow.Item(COLUMN_DOCID)
|
||||
Dim oMenu As New DocumentPropertyMenu(_LogConfig, _Environment, _IDBClient, oFilepath, oObjectId)
|
||||
|
||||
e.Menu.Items.Clear()
|
||||
|
||||
For Each oItem In oMenu.GetMenuItems(OperationMode, _CurrentDocument.AccessRight)
|
||||
e.Menu.Items.Add(oItem)
|
||||
Next
|
||||
|
||||
AddHandler oMenu.FileOpened, AddressOf DocumentPropertyMenu_FileOpened
|
||||
' AddHandler oMenu.FileClosed, AddressOf DocumentPropertyMenu_FileClosed
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox("Unexpected Error while preparing context menu", MsgBoxStyle.Critical, Text)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub DocumentPropertyMenu_FileOpened(sender As Object, FilePath As String)
|
||||
Dim oProcess = Process.Start(New ProcessStartInfo With {
|
||||
.FileName = FilePath
|
||||
})
|
||||
If _CurrentDocument IsNot Nothing AndAlso _CurrentDocument.AccessRight > Rights.AccessRight.VIEW_ONLY Then
|
||||
OpenFile()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub Show_CriticalError(Message As String)
|
||||
labelCriticalError.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
||||
labelCriticalError.Caption = Message
|
||||
End Sub
|
||||
labelCriticalError.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
||||
labelCriticalError.Caption = Message
|
||||
End Sub
|
||||
|
||||
Public Sub Show_Warning(Message As String)
|
||||
labelWarning.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
||||
@ -844,8 +820,6 @@ Public Class frmDocumentResultList
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private _DragBoxFromMouseDown As Rectangle
|
||||
Private _ScreenOffset As Point
|
||||
|
||||
@ -885,4 +859,109 @@ Public Class frmDocumentResultList
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GridView_PopupMenuShowing(sender As Object, e As PopupMenuShowingEventArgs) _
|
||||
Handles GridView2.PopupMenuShowing, GridView3.PopupMenuShowing, GridView1.PopupMenuShowing
|
||||
Try
|
||||
Dim oView As GridView = sender
|
||||
|
||||
If e.MenuType = GridMenuType.Row Then
|
||||
Dim oRowHandle = e.HitInfo.RowHandle
|
||||
Dim oRow As DataRow = oView.GetDataRow(oRowHandle)
|
||||
Dim oObjectId As Long = oRow.Item(COLUMN_DOCID)
|
||||
Dim oPoint As Point = oView.GridControl.PointToScreen(e.HitInfo.HitPoint)
|
||||
Dim oRight As Rights.AccessRight = _CurrentDocument.AccessRight
|
||||
|
||||
_CurrentDocumentId = oObjectId
|
||||
|
||||
If OperationMode = IResultForm.Mode.WithAppServer Then
|
||||
If oRight = Rights.AccessRight.FULL Or oRight = Rights.AccessRight.VIEW_EXPORT Then
|
||||
MenuFullAccess_IDB.ShowPopup(oPoint)
|
||||
Else
|
||||
MenuViewAccess_IDB.ShowPopup(oPoint)
|
||||
End If
|
||||
|
||||
Else
|
||||
MenuFullAccess_EDM.ShowPopup(oPoint)
|
||||
End If
|
||||
Else
|
||||
_CurrentDocumentId = Nothing
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox("Unexpected Error while preparing context menu", MsgBoxStyle.Critical, Text)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function TestPathExists(pTitle As String) As Boolean
|
||||
If IO.File.Exists(_CurrentDocument.FullPath) = False Then
|
||||
MessageBox.Show($"Datei {_CurrentDocument.FullPath} existiert nicht oder wurde verschoben!", pTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Function TestObjectIdExists(pObjectId As Long, pTitle As String) As Boolean
|
||||
If pObjectId = 0 Then
|
||||
MessageBox.Show($"Objekt {pObjectId} existiert nicht oder wurde verschoben!", pTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Sub MenuItemPropertiesIDB_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemPropertiesIDB.ItemClick
|
||||
If TestObjectIdExists(_CurrentDocumentId, OPEN_PROPERTIES) = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oPropertyDialog As New frmObjectPropertyDialog(_LogConfig, _Environment, _IDBClient, _CurrentDocumentId)
|
||||
oPropertyDialog.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItemPropertiesECM_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemPropertiesECM.ItemClick
|
||||
If TestPathExists(OPEN_PROPERTIES) = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
_File.OpenFileProperties(_CurrentDocument.FullPath)
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItemFileOpen_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFileOpen.ItemClick
|
||||
If TestPathExists(OPEN_FILE) = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Try
|
||||
Process.Start(New ProcessStartInfo With {
|
||||
.FileName = _CurrentDocument.FullPath
|
||||
})
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItemFolderOpen_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFolderOpen.ItemClick
|
||||
If TestPathExists(OPEN_DIRECTORY) = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oArgs As String = $"/e, /select, ""{_CurrentDocument.FullPath}"""
|
||||
Dim oInfo As New ProcessStartInfo() With {
|
||||
.Arguments = oArgs,
|
||||
.FileName = "explorer"
|
||||
}
|
||||
|
||||
Process.Start(oInfo)
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItemFilepathCopyIDB_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFilepathCopy.ItemClick
|
||||
Clipboard.SetText(_CurrentDocument.FullPath)
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItemFolderpathCopyECM_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFolderpathCopy.ItemClick
|
||||
Dim oFolderPath = IO.Path.GetDirectoryName(_CurrentDocument.FullPath)
|
||||
Clipboard.SetText(oFolderPath)
|
||||
End Sub
|
||||
End Class
|
||||
20
GUIs.Common/My Project/Resources.Designer.vb
generated
20
GUIs.Common/My Project/Resources.Designer.vb
generated
@ -90,6 +90,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property copy() As DevExpress.Utils.Svg.SvgImage
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("copy", resourceCulture)
|
||||
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@ -150,6 +160,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property open() As DevExpress.Utils.Svg.SvgImage
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("open", resourceCulture)
|
||||
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
||||
@ -133,8 +133,8 @@
|
||||
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="jpg" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="Article_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Article_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="_page" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\_page.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@ -154,14 +154,17 @@
|
||||
<data name="zoom_less" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\zoom_less.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="jpg" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="png" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="zoom_more" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="grid" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\grid.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@ -169,10 +172,13 @@
|
||||
<data name="dxf" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\dxf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Article_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Article_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="grid" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\grid.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
<data name="copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\copy.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
</root>
|
||||
@ -1,8 +1,9 @@
|
||||
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
|
||||
7
GUIs.Common/Resources/copy.svg
Normal file
7
GUIs.Common/Resources/copy.svg
Normal file
@ -0,0 +1,7 @@
|
||||
<?xml version='1.0' encoding='UTF-8'?>
|
||||
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Copy" style="enable-background:new 0 0 32 32">
|
||||
<style type="text/css">
|
||||
.Black{fill:#727272;}
|
||||
</style>
|
||||
<path d="M21,0H9C8.4,0,8,0.4,8,1v5H3C2.4,6,2,6.4,2,7v22c0,0.6,0.4,1,1,1h18c0.6,0,1-0.4,1-1v-5h5c0.6,0,1-0.4,1-1V7 L21,0z M20,28H4V8h4h2h4v5c0,0.6,0.4,1,1,1h5v4v4v2V28z M26,12v10h-4v-9l-7-7h-5V2h4h6v4v1c0,0.6,0.4,1,1,1h5V12z" class="Black" />
|
||||
</svg>
|
||||
11
GUIs.Common/Resources/open.svg
Normal file
11
GUIs.Common/Resources/open.svg
Normal file
@ -0,0 +1,11 @@
|
||||
<?xml version='1.0' encoding='UTF-8'?>
|
||||
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Open" style="enable-background:new 0 0 32 32">
|
||||
<style type="text/css">
|
||||
.Yellow{fill:#FFB115;}
|
||||
.st0{opacity:0.75;}
|
||||
</style>
|
||||
<g class="st0">
|
||||
<path d="M2.2,25.2l5.5-12c0.3-0.7,1-1.2,1.8-1.2H26V9c0-0.6-0.4-1-1-1H12V5c0-0.6-0.4-1-1-1H3C2.4,4,2,4.4,2,5v20 c0,0.2,0,0.3,0.1,0.4C2.1,25.3,2.2,25.3,2.2,25.2z" class="Yellow" />
|
||||
</g>
|
||||
<path d="M31.3,14H9.6L4,26h21.8c0.5,0,1.1-0.3,1.3-0.7L32,14.7C32.1,14.3,31.8,14,31.3,14z" class="Yellow" />
|
||||
</svg>
|
||||
Loading…
x
Reference in New Issue
Block a user