Common: Rework Ribbon controls and layout, add Fontsize Setting

This commit is contained in:
Jonathan Jenne 2022-04-11 16:08:14 +02:00
parent 98e4e6020d
commit abf50c5c44
5 changed files with 209 additions and 220 deletions

View File

@ -8,6 +8,7 @@ Namespace DocumentResultList
Public Property SplitContainer1Horizontal As Boolean = True
Public Property SplitContainer2Distance As Integer = 250
Public Property SplitContainer2Horizontal As Boolean = False
Public Property GridFontSizeDelta As Integer = 0
End Class
End Namespace

View File

@ -32,6 +32,10 @@ Namespace DocumentResultList
End Try
End Sub
Public Async Function Workspace_SaveAsync(pWorkspaceManager As WorkspaceManager) As Task
Await Task.Run(Sub() Workspace_Save(pWorkspaceManager))
End Function
Public Sub Workspace_Restore(pWorkspaceManager As WorkspaceManager)
Try
Dim oFileName = GetWorkspace_LayoutName()
@ -54,6 +58,10 @@ Namespace DocumentResultList
End Try
End Sub
Public Async Function DockManager_SaveLayoutAsync(pDockManager As DockManager) As Task
Await Task.Run(Sub() DockManager_SaveLayout(pDockManager))
End Function
Public Sub DockManager_RestoreLayout(pDockManager As DockManager)
Try
Dim oFilename As String = GetDockmanager_LayoutName()
@ -81,13 +89,19 @@ Namespace DocumentResultList
Public Sub GridView_SaveLayout(pGridView As GridView)
Try
Dim oFileName As String = GetGrid_LayoutName(pGridView)
pGridView.SaveLayoutToXml(oFileName, OptionsLayoutBase.FullLayout)
Using oStream = New IO.FileStream(oFileName, IO.FileMode.Open)
pGridView.SaveLayoutToStream(oStream, OptionsLayoutBase.FullLayout)
End Using
Catch ex As Exception
Logger.Error(ex)
Logger.Info("Error while saving GridLayout: " & ex.Message)
End Try
End Sub
Public Async Function GridView_SaveLayoutAsync(pGridView As GridView) As Task
Await Task.Run(Sub() GridView_SaveLayout(pGridView))
End Function
Public Function GetDockmanager_LayoutName() As String
Dim Filename As String = $"DockManagerDocResult_UserLayout.xml"
Dim oDirectory As String = IO.Path.GetDirectoryName(Config.UserConfigPath)

View File

@ -62,24 +62,20 @@ Partial Class frmDocumentResultList
Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
Me.BarWorkspaceMenuItem1 = New DevExpress.XtraBars.BarWorkspaceMenuItem()
Me.WorkspaceManager1 = New DevExpress.Utils.WorkspaceManager(Me.components)
Me.RibbonPageCategoryFile = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
Me.RibbonPageActions1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupFilesystem = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageActions2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup8 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageCategoryAttribute = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
Me.RibbonPageAttribute = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.BarEditItemGridFontSize = New DevExpress.XtraBars.BarEditItem()
Me.cmbGridFontSize = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.RibbonPageStart = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup_Navigation = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupExport = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupDocument = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupFilesystem = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupCheckInOut = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupWorkflow = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupAttribute = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup9 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup_Layout = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
Me.RepositoryItemTextEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
Me.RepositoryItemSearchControl1 = New DevExpress.XtraEditors.Repository.RepositoryItemSearchControl()
@ -123,6 +119,7 @@ Partial Class frmDocumentResultList
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cmbGridFontSize, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemSearchControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -216,14 +213,13 @@ Partial Class frmDocumentResultList
'RibbonControl
'
Me.RibbonControl.ExpandCollapseItem.Id = 0
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.BarButtonResetGridLayout, Me.labelCriticalError, Me.labelWarning, Me.MenuItemFileOpen, Me.MenuItemPropertiesIDB, Me.MenuItemFolderOpen, Me.MenuItemFilepathCopy, Me.MenuItemFolderpathCopy, Me.MenuItemProperties, Me.MenuItemsOpenFileZooFlow, Me.MenuItemPropertiesZooFlow, Me.ButtonRefresh, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonResetWindowLayout, Me.MenuItemStartAdhocWorkflow, Me.MenuItemCheckInFile, Me.MenuItemCheckOutFile, Me.MenuItemVersionFile, Me.chkGridShowQuickfilter, Me.chkGridShowGrouping, Me.chkGridShowTitle, Me.MenuItemSaveProperties, Me.BarButtonItem11, Me.BarWorkspaceMenuItem1})
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.BarButtonResetGridLayout, Me.labelCriticalError, Me.labelWarning, Me.MenuItemFileOpen, Me.MenuItemPropertiesIDB, Me.MenuItemFolderOpen, Me.MenuItemFilepathCopy, Me.MenuItemFolderpathCopy, Me.MenuItemProperties, Me.MenuItemsOpenFileZooFlow, Me.MenuItemPropertiesZooFlow, Me.ButtonRefresh, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonResetWindowLayout, Me.MenuItemStartAdhocWorkflow, Me.MenuItemCheckInFile, Me.MenuItemCheckOutFile, Me.MenuItemVersionFile, Me.chkGridShowQuickfilter, Me.chkGridShowGrouping, Me.chkGridShowTitle, Me.MenuItemSaveProperties, Me.BarButtonItem11, Me.BarWorkspaceMenuItem1, Me.BarEditItemGridFontSize})
resources.ApplyResources(Me.RibbonControl, "RibbonControl")
Me.RibbonControl.MaxItemId = 49
Me.RibbonControl.MaxItemId = 53
Me.RibbonControl.Name = "RibbonControl"
Me.RibbonControl.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategoryFile, Me.RibbonPageCategoryAttribute})
Me.RibbonControl.PageHeaderItemLinks.Add(Me.BarWorkspaceMenuItem1)
Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPage2})
Me.RibbonControl.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2, Me.RepositoryItemSearchControl1})
Me.RibbonControl.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2, Me.RepositoryItemSearchControl1, Me.cmbGridFontSize})
Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl.ShowToolbarCustomizeItem = False
Me.RibbonControl.StatusBar = Me.RibbonStatusBar
@ -278,7 +274,7 @@ Partial Class frmDocumentResultList
'
resources.ApplyResources(Me.BarButtonResetGridLayout, "BarButtonResetGridLayout")
Me.BarButtonResetGridLayout.Id = 10
Me.BarButtonResetGridLayout.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonResetLayout.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonResetGridLayout.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonResetGridLayout.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonResetGridLayout.Name = "BarButtonResetGridLayout"
Me.BarButtonResetGridLayout.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
@ -485,78 +481,22 @@ Partial Class frmDocumentResultList
Me.WorkspaceManager1.TargetControl = Me
Me.WorkspaceManager1.TransitionType = FadeTransition1
'
'RibbonPageCategoryFile
'BarEditItemGridFontSize
'
Me.RibbonPageCategoryFile.Appearance.BackColor = System.Drawing.Color.DarkGreen
Me.RibbonPageCategoryFile.Appearance.Options.UseBackColor = True
Me.RibbonPageCategoryFile.Name = "RibbonPageCategoryFile"
Me.RibbonPageCategoryFile.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageActions1, Me.RibbonPageActions2})
resources.ApplyResources(Me.RibbonPageCategoryFile, "RibbonPageCategoryFile")
resources.ApplyResources(Me.BarEditItemGridFontSize, "BarEditItemGridFontSize")
Me.BarEditItemGridFontSize.Edit = Me.cmbGridFontSize
Me.BarEditItemGridFontSize.Id = 52
Me.BarEditItemGridFontSize.Name = "BarEditItemGridFontSize"
'
'RibbonPageActions1
'cmbGridFontSize
'
Me.RibbonPageActions1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroupFilesystem})
Me.RibbonPageActions1.Name = "RibbonPageActions1"
resources.ApplyResources(Me.RibbonPageActions1, "RibbonPageActions1")
'
'RibbonPageGroup3
'
Me.RibbonPageGroup3.ItemLinks.Add(Me.MenuItemFileOpen)
Me.RibbonPageGroup3.ItemLinks.Add(Me.MenuItemProperties)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
'
'RibbonPageGroupFilesystem
'
Me.RibbonPageGroupFilesystem.ItemLinks.Add(Me.MenuItemFolderOpen)
Me.RibbonPageGroupFilesystem.ItemLinks.Add(Me.MenuItemFilepathCopy)
Me.RibbonPageGroupFilesystem.ItemLinks.Add(Me.MenuItemFolderpathCopy)
Me.RibbonPageGroupFilesystem.Name = "RibbonPageGroupFilesystem"
resources.ApplyResources(Me.RibbonPageGroupFilesystem, "RibbonPageGroupFilesystem")
'
'RibbonPageActions2
'
Me.RibbonPageActions2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup4, Me.RibbonPageGroup8})
Me.RibbonPageActions2.Name = "RibbonPageActions2"
resources.ApplyResources(Me.RibbonPageActions2, "RibbonPageActions2")
'
'RibbonPageGroup4
'
Me.RibbonPageGroup4.ItemLinks.Add(Me.MenuItemStartAdhocWorkflow)
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
'
'RibbonPageGroup8
'
Me.RibbonPageGroup8.ItemLinks.Add(Me.MenuItemCheckOutFile)
Me.RibbonPageGroup8.ItemLinks.Add(Me.MenuItemCheckInFile)
Me.RibbonPageGroup8.ItemLinks.Add(Me.MenuItemVersionFile)
Me.RibbonPageGroup8.Name = "RibbonPageGroup8"
resources.ApplyResources(Me.RibbonPageGroup8, "RibbonPageGroup8")
'
'RibbonPageCategoryAttribute
'
Me.RibbonPageCategoryAttribute.Appearance.BackColor = System.Drawing.Color.DodgerBlue
Me.RibbonPageCategoryAttribute.Appearance.Options.UseBackColor = True
Me.RibbonPageCategoryAttribute.Name = "RibbonPageCategoryAttribute"
Me.RibbonPageCategoryAttribute.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageAttribute})
resources.ApplyResources(Me.RibbonPageCategoryAttribute, "RibbonPageCategoryAttribute")
'
'RibbonPageAttribute
'
Me.RibbonPageAttribute.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2})
Me.RibbonPageAttribute.Name = "RibbonPageAttribute"
resources.ApplyResources(Me.RibbonPageAttribute, "RibbonPageAttribute")
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.ItemLinks.Add(Me.MenuItemSaveProperties)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
resources.ApplyResources(Me.cmbGridFontSize, "cmbGridFontSize")
Me.cmbGridFontSize.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("cmbGridFontSize.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
Me.cmbGridFontSize.Name = "cmbGridFontSize"
'
'RibbonPageStart
'
Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Navigation, Me.RibbonPageGroupExport, Me.RibbonPageGroup5})
Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Navigation, Me.RibbonPageGroupExport, Me.RibbonPageGroup5, Me.RibbonPageGroupDocument, Me.RibbonPageGroupFilesystem, Me.RibbonPageGroupCheckInOut, Me.RibbonPageGroupWorkflow, Me.RibbonPageGroupAttribute})
Me.RibbonPageStart.Name = "RibbonPageStart"
resources.ApplyResources(Me.RibbonPageStart, "RibbonPageStart")
'
@ -581,9 +521,44 @@ Partial Class frmDocumentResultList
Me.RibbonPageGroup5.Name = "RibbonPageGroup5"
resources.ApplyResources(Me.RibbonPageGroup5, "RibbonPageGroup5")
'
'RibbonPageGroupDocument
'
Me.RibbonPageGroupDocument.ItemLinks.Add(Me.MenuItemFileOpen)
Me.RibbonPageGroupDocument.ItemLinks.Add(Me.MenuItemProperties)
Me.RibbonPageGroupDocument.Name = "RibbonPageGroupDocument"
resources.ApplyResources(Me.RibbonPageGroupDocument, "RibbonPageGroupDocument")
'
'RibbonPageGroupFilesystem
'
Me.RibbonPageGroupFilesystem.ItemLinks.Add(Me.MenuItemFolderOpen)
Me.RibbonPageGroupFilesystem.ItemLinks.Add(Me.MenuItemFilepathCopy)
Me.RibbonPageGroupFilesystem.ItemLinks.Add(Me.MenuItemFolderpathCopy)
Me.RibbonPageGroupFilesystem.Name = "RibbonPageGroupFilesystem"
resources.ApplyResources(Me.RibbonPageGroupFilesystem, "RibbonPageGroupFilesystem")
'
'RibbonPageGroupCheckInOut
'
Me.RibbonPageGroupCheckInOut.ItemLinks.Add(Me.MenuItemCheckOutFile)
Me.RibbonPageGroupCheckInOut.ItemLinks.Add(Me.MenuItemCheckInFile)
Me.RibbonPageGroupCheckInOut.ItemLinks.Add(Me.MenuItemVersionFile)
Me.RibbonPageGroupCheckInOut.Name = "RibbonPageGroupCheckInOut"
resources.ApplyResources(Me.RibbonPageGroupCheckInOut, "RibbonPageGroupCheckInOut")
'
'RibbonPageGroupWorkflow
'
Me.RibbonPageGroupWorkflow.ItemLinks.Add(Me.MenuItemStartAdhocWorkflow)
Me.RibbonPageGroupWorkflow.Name = "RibbonPageGroupWorkflow"
resources.ApplyResources(Me.RibbonPageGroupWorkflow, "RibbonPageGroupWorkflow")
'
'RibbonPageGroupAttribute
'
Me.RibbonPageGroupAttribute.ItemLinks.Add(Me.MenuItemSaveProperties)
Me.RibbonPageGroupAttribute.Name = "RibbonPageGroupAttribute"
resources.ApplyResources(Me.RibbonPageGroupAttribute, "RibbonPageGroupAttribute")
'
'RibbonPage2
'
Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup9, Me.RibbonPageGroup1, Me.RibbonPageGroup_Layout})
Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup9, Me.RibbonPageGroup1})
Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
'
@ -593,6 +568,9 @@ Partial Class frmDocumentResultList
Me.RibbonPageGroup9.ItemLinks.Add(Me.chkGridShowGrouping)
Me.RibbonPageGroup9.ItemLinks.Add(Me.chkGridShowTitle)
Me.RibbonPageGroup9.ItemLinks.Add(Me.BarButtonItem11)
Me.RibbonPageGroup9.ItemLinks.Add(Me.SwitchDetailContainerHorizontal)
Me.RibbonPageGroup9.ItemLinks.Add(Me.SwitchMainContainerHorizontal)
Me.RibbonPageGroup9.ItemLinks.Add(Me.BarEditItemGridFontSize)
Me.RibbonPageGroup9.Name = "RibbonPageGroup9"
resources.ApplyResources(Me.RibbonPageGroup9, "RibbonPageGroup9")
'
@ -604,13 +582,6 @@ Partial Class frmDocumentResultList
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
'
'RibbonPageGroup_Layout
'
Me.RibbonPageGroup_Layout.ItemLinks.Add(Me.SwitchMainContainerHorizontal)
Me.RibbonPageGroup_Layout.ItemLinks.Add(Me.SwitchDetailContainerHorizontal)
Me.RibbonPageGroup_Layout.Name = "RibbonPageGroup_Layout"
resources.ApplyResources(Me.RibbonPageGroup_Layout, "RibbonPageGroup_Layout")
'
'RepositoryItemTextEdit1
'
resources.ApplyResources(Me.RepositoryItemTextEdit1, "RepositoryItemTextEdit1")
@ -829,7 +800,7 @@ Partial Class frmDocumentResultList
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Size = New System.Drawing.Size(224, 24)
resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1")
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(137, 13)
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(126, 13)
'
'LayoutControlItem2
'
@ -838,7 +809,7 @@ Partial Class frmDocumentResultList
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Size = New System.Drawing.Size(224, 24)
resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2")
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(137, 13)
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(126, 13)
'
'EmptySpaceItem1
'
@ -913,6 +884,7 @@ Partial Class frmDocumentResultList
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cmbGridFontSize, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemSearchControl1, System.ComponentModel.ISupportInitialize).EndInit()
@ -954,7 +926,6 @@ Partial Class frmDocumentResultList
Friend WithEvents RibbonControl As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPageStart As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup_Layout As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents SwitchMainContainerHorizontal As DevExpress.XtraBars.BarToggleSwitchItem
Friend WithEvents SwitchDetailContainerHorizontal As DevExpress.XtraBars.BarToggleSwitchItem
@ -998,8 +969,7 @@ Partial Class frmDocumentResultList
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageActions1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroupDocument As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroupFilesystem As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup6 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
@ -1012,9 +982,7 @@ Partial Class frmDocumentResultList
Friend WithEvents DockPanel2_Container As DevExpress.XtraBars.Docking.ControlContainer
Friend WithEvents BarButtonResetWindowLayout As DevExpress.XtraBars.BarButtonItem
Friend WithEvents CtrlObjectPropertyDialog As ctrlObjectPropertyDialog
Friend WithEvents RibbonPageCategoryFile As DevExpress.XtraBars.Ribbon.RibbonPageCategory
Friend WithEvents RibbonPageActions2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroupWorkflow As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents MenuItemStartAdhocWorkflow As DevExpress.XtraBars.BarButtonItem
Friend WithEvents MenuItemCheckInFile As DevExpress.XtraBars.BarButtonItem
Friend WithEvents MenuItemCheckOutFile As DevExpress.XtraBars.BarButtonItem
@ -1023,15 +991,13 @@ Partial Class frmDocumentResultList
Friend WithEvents chkGridShowQuickfilter As DevExpress.XtraBars.BarCheckItem
Friend WithEvents chkGridShowGrouping As DevExpress.XtraBars.BarCheckItem
Friend WithEvents chkGridShowTitle As DevExpress.XtraBars.BarCheckItem
Friend WithEvents RibbonPageGroup8 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroupCheckInOut As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup9 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents MenuItemSaveProperties As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem11 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarWorkspaceMenuItem1 As DevExpress.XtraBars.BarWorkspaceMenuItem
Friend WithEvents WorkspaceManager1 As DevExpress.Utils.WorkspaceManager
Friend WithEvents RibbonPageCategoryAttribute As DevExpress.XtraBars.Ribbon.RibbonPageCategory
Friend WithEvents RibbonPageAttribute As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroupAttribute As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents DockPanelStatus As DevExpress.XtraBars.Docking.DockPanel
Friend WithEvents ControlContainer1 As DevExpress.XtraBars.Docking.ControlContainer
Friend WithEvents panelContainerStatus As DevExpress.XtraBars.Docking.DockPanel
@ -1044,4 +1010,6 @@ Partial Class frmDocumentResultList
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents RepositoryItemSearchControl1 As DevExpress.XtraEditors.Repository.RepositoryItemSearchControl
Friend WithEvents BarEditItemGridFontSize As DevExpress.XtraBars.BarEditItem
Friend WithEvents cmbGridFontSize As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
End Class

View File

@ -253,9 +253,9 @@
</value>
</data>
<data name="BarButtonResetGridLayout.Caption" xml:space="preserve">
<value>Aktives Tabellen Layout zurücksetzen</value>
<value>Tabellenlayout zurücksetzen</value>
</data>
<data name="BarButtonResetLayout.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="BarButtonResetGridLayout.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@ -445,7 +445,7 @@
<value>BarButtonItem5</value>
</data>
<data name="BarButtonResetWindowLayout.Caption" xml:space="preserve">
<value>Fenster Layout zurücksetzen</value>
<value>Fensterlayout zurücksetzen</value>
</data>
<data name="MenuItemStartAdhocWorkflow.Caption" xml:space="preserve">
<value>Adhoc Workflow starten</value>
@ -503,7 +503,7 @@
<value>DocumentViewer1</value>
</data>
<data name="&gt;&gt;DocumentViewer1.Type" xml:space="preserve">
<value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.6.8.0, Culture=neutral, PublicKeyToken=null</value>
<value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.7.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;DocumentViewer1.Parent" xml:space="preserve">
<value>DockPanel1_Container</value>
@ -554,10 +554,10 @@
<value>0</value>
</data>
<data name="txtCheckedOutWho.Location" type="System.Drawing.Point, System.Drawing">
<value>173, 45</value>
<value>162, 45</value>
</data>
<data name="txtCheckedOutWho.Size" type="System.Drawing.Size, System.Drawing">
<value>71, 20</value>
<value>82, 20</value>
</data>
<data name="txtCheckedOutWho.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
@ -578,7 +578,7 @@
<value />
</data>
<data name="dateCheckedOutWhen.Location" type="System.Drawing.Point, System.Drawing">
<value>173, 69</value>
<value>162, 69</value>
</data>
<assembly alias="DevExpress.Utils.v21.2" name="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="dateCheckedOutWhen.Properties.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
@ -588,7 +588,7 @@
<value>Combo</value>
</data>
<data name="dateCheckedOutWhen.Size" type="System.Drawing.Size, System.Drawing">
<value>71, 20</value>
<value>82, 20</value>
</data>
<data name="dateCheckedOutWhen.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
@ -1135,65 +1135,17 @@
<data name="&gt;&gt;WorkspaceManager1.Type" xml:space="preserve">
<value>DevExpress.Utils.WorkspaceManager, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageCategoryFile.Name" xml:space="preserve">
<value>RibbonPageCategoryFile</value>
<data name="&gt;&gt;BarEditItemGridFontSize.Name" xml:space="preserve">
<value>BarEditItemGridFontSize</value>
</data>
<data name="&gt;&gt;RibbonPageCategoryFile.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageCategory, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="&gt;&gt;BarEditItemGridFontSize.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarEditItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageActions1.Name" xml:space="preserve">
<value>RibbonPageActions1</value>
<data name="&gt;&gt;cmbGridFontSize.Name" xml:space="preserve">
<value>cmbGridFontSize</value>
</data>
<data name="&gt;&gt;RibbonPageActions1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup3.Name" xml:space="preserve">
<value>RibbonPageGroup3</value>
</data>
<data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupFilesystem.Name" xml:space="preserve">
<value>RibbonPageGroupFilesystem</value>
</data>
<data name="&gt;&gt;RibbonPageGroupFilesystem.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageActions2.Name" xml:space="preserve">
<value>RibbonPageActions2</value>
</data>
<data name="&gt;&gt;RibbonPageActions2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup4.Name" xml:space="preserve">
<value>RibbonPageGroup4</value>
</data>
<data name="&gt;&gt;RibbonPageGroup4.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup8.Name" xml:space="preserve">
<value>RibbonPageGroup8</value>
</data>
<data name="&gt;&gt;RibbonPageGroup8.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageCategoryAttribute.Name" xml:space="preserve">
<value>RibbonPageCategoryAttribute</value>
</data>
<data name="&gt;&gt;RibbonPageCategoryAttribute.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageCategory, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageAttribute.Name" xml:space="preserve">
<value>RibbonPageAttribute</value>
</data>
<data name="&gt;&gt;RibbonPageAttribute.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve">
<value>RibbonPageGroup2</value>
</data>
<data name="&gt;&gt;RibbonPageGroup2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="&gt;&gt;cmbGridFontSize.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageStart.Name" xml:space="preserve">
<value>RibbonPageStart</value>
@ -1219,6 +1171,36 @@
<data name="&gt;&gt;RibbonPageGroup5.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupDocument.Name" xml:space="preserve">
<value>RibbonPageGroupDocument</value>
</data>
<data name="&gt;&gt;RibbonPageGroupDocument.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupFilesystem.Name" xml:space="preserve">
<value>RibbonPageGroupFilesystem</value>
</data>
<data name="&gt;&gt;RibbonPageGroupFilesystem.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupCheckInOut.Name" xml:space="preserve">
<value>RibbonPageGroupCheckInOut</value>
</data>
<data name="&gt;&gt;RibbonPageGroupCheckInOut.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupWorkflow.Name" xml:space="preserve">
<value>RibbonPageGroupWorkflow</value>
</data>
<data name="&gt;&gt;RibbonPageGroupWorkflow.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupAttribute.Name" xml:space="preserve">
<value>RibbonPageGroupAttribute</value>
</data>
<data name="&gt;&gt;RibbonPageGroupAttribute.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage2.Name" xml:space="preserve">
<value>RibbonPage2</value>
</data>
@ -1237,12 +1219,6 @@
<data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup_Layout.Name" xml:space="preserve">
<value>RibbonPageGroup_Layout</value>
</data>
<data name="&gt;&gt;RibbonPageGroup_Layout.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RepositoryItemTextEdit1.Name" xml:space="preserve">
<value>RepositoryItemTextEdit1</value>
</data>
@ -1345,39 +1321,21 @@
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="BarEditItemGridFontSize.Caption" xml:space="preserve">
<value>Schriftgröße</value>
</data>
<data name="cmbGridFontSize.AutoHeight" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="cmbGridFontSize.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
<value>Combo</value>
</data>
<data name="BarEditItemGridFontSize.EditWidth" type="System.Int32, mscorlib">
<value>100</value>
</data>
<data name="RibbonControl.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Dokument</value>
</data>
<data name="RibbonPageGroupFilesystem.Text" xml:space="preserve">
<value>Dateien und Ordner</value>
</data>
<data name="RibbonPageActions1.Text" xml:space="preserve">
<value>Aktionen 1</value>
</data>
<data name="RibbonPageGroup4.Text" xml:space="preserve">
<value>Workflow</value>
</data>
<data name="RibbonPageGroup8.Text" xml:space="preserve">
<value>Bearbeiten</value>
</data>
<data name="RibbonPageActions2.Text" xml:space="preserve">
<value>Aktionen 2</value>
</data>
<data name="RibbonPageCategoryFile.Text" xml:space="preserve">
<value>Datei</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Attribute</value>
</data>
<data name="RibbonPageAttribute.Text" xml:space="preserve">
<value>Aktionen</value>
</data>
<data name="RibbonPageCategoryAttribute.Text" xml:space="preserve">
<value>Attribute</value>
</data>
<data name="RibbonPageGroup_Navigation.Text" xml:space="preserve">
<value>Navigation</value>
</data>
@ -1387,18 +1345,30 @@
<data name="RibbonPageGroup5.Text" xml:space="preserve">
<value>Aktualisieren</value>
</data>
<data name="RibbonPageGroupDocument.Text" xml:space="preserve">
<value>Dokument</value>
</data>
<data name="RibbonPageGroupFilesystem.Text" xml:space="preserve">
<value>Dateien und Ordner</value>
</data>
<data name="RibbonPageGroupCheckInOut.Text" xml:space="preserve">
<value>Bearbeiten</value>
</data>
<data name="RibbonPageGroupWorkflow.Text" xml:space="preserve">
<value>Workflow</value>
</data>
<data name="RibbonPageGroupAttribute.Text" xml:space="preserve">
<value>Attribute</value>
</data>
<data name="RibbonPageStart.Text" xml:space="preserve">
<value>Start</value>
</data>
<data name="RibbonPageGroup9.Text" xml:space="preserve">
<value>Tabellen Einstellungen</value>
<value>Tabelle</value>
</data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Zurücksetzen</value>
</data>
<data name="RibbonPageGroup_Layout.Text" xml:space="preserve">
<value>Layout</value>
</data>
<data name="RibbonPage2.Text" xml:space="preserve">
<value>Layout</value>
</data>

View File

@ -172,9 +172,26 @@ Public Class frmDocumentResultList
RibbonPageGroupFilesystem.Visible = False
End If
Dim oFontSizeDeltaList = New List(Of FontSetting) From {
New FontSetting With {.Title = "Normal", .Value = 0},
New FontSetting With {.Title = "Groß", .Value = 1},
New FontSetting With {.Title = "Größer", .Value = 2},
New FontSetting With {.Title = "Noch Größer", .Value = 3}
}
cmbGridFontSize.Items.Clear()
cmbGridFontSize.Items.AddRange(oFontSizeDeltaList)
BarEditItemGridFontSize.EditValue = oFontSizeDeltaList.
Where(Function(delta) delta.Value = Config.Config.GridFontSizeDelta).
FirstOrDefault()
If OperationMode = OperationMode.NoAppServer Then
RibbonPageCategoryAttribute.Visible = False
RibbonPageActions2.Visible = False
'RibbonPageCategoryAttribute.Visible = False
'RibbonPageActions2.Visible = False
RibbonPageGroupCheckInOut.Visible = False
RibbonPageGroupWorkflow.Visible = False
RibbonPageGroupAttribute.Visible = False
Else
RibbonPageGroupFilesystem.Visible = False
End If
If OperationMode = OperationMode.ZooFlow Or OperationMode = OperationMode.WithAppServer Then
@ -206,6 +223,16 @@ Public Class frmDocumentResultList
End Try
End Sub
Public Class FontSetting
Public Property Title As String
Public Property Value As Integer
Public Overrides Function ToString() As String
Return Title
End Function
End Class
Private Sub frmDocumentResultList_Closing(sender As Object, e As CancelEventArgs) Handles Me.FormClosing
Try
LayoutManager.GridView_SaveLayout(_ActiveGrid.MainView)
@ -231,12 +258,6 @@ Public Class frmDocumentResultList
Dim oFullPath = oRow.ItemEx(ColumnFilepath, "")
Dim oDocument As DocumentResultList.Document = Nothing
' Show Ribbon Category
If RibbonPageCategoryFile.Visible = False Then
RibbonPageCategoryFile.Visible = True
RibbonControl.SelectedPage = RibbonPageActions1
End If
' Load DocumentInfo
oDocument = Documentloader.Load(oObjectId, oFullPath)
@ -285,9 +306,18 @@ Public Class frmDocumentResultList
Private Function UpdateRibbonActions(pDocument As DocumentResultList.Document) As Boolean
Try
If pDocument Is Nothing Then
RibbonPageCategoryFile.Visible = False
RibbonControl.SelectedPage = RibbonPageStart
RibbonPageGroupFilesystem.Enabled = False
RibbonPageGroupDocument.Enabled = False
RibbonPageGroupCheckInOut.Enabled = False
RibbonPageGroupWorkflow.Enabled = False
RibbonPageGroupAttribute.Enabled = False
Return True
Else
RibbonPageGroupFilesystem.Enabled = True
RibbonPageGroupDocument.Enabled = True
RibbonPageGroupCheckInOut.Enabled = True
RibbonPageGroupWorkflow.Enabled = True
RibbonPageGroupAttribute.Enabled = True
End If
' Hide Export and filesystem options for view only right
@ -1052,12 +1082,11 @@ Public Class frmDocumentResultList
End Sub
Private Sub CtrlObjectPropertyDialog_Enter(sender As Object, e As EventArgs) Handles CtrlObjectPropertyDialog.Enter
RibbonPageCategoryAttribute.Visible = True
RibbonControl.SelectedPage = RibbonPageAttribute
RibbonPageGroupAttribute.Enabled = True
End Sub
Private Sub CtrlObjectPropertyDialog_Leave(sender As Object, e As EventArgs) Handles CtrlObjectPropertyDialog.Leave
RibbonPageCategoryAttribute.Visible = False
RibbonPageGroupAttribute.Enabled = True
End Sub
Private Sub GridView1_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView1.RowStyle
@ -1074,4 +1103,11 @@ Public Class frmDocumentResultList
End If
End Sub
Private Sub BarEditItemGridFontSize_EditValueChanged(sender As Object, e As EventArgs) Handles BarEditItemGridFontSize.EditValueChanged
Config.Config.GridFontSizeDelta = DirectCast(BarEditItemGridFontSize.EditValue, FontSetting).Value
Config.Save()
GridBuilder.WithFontSizeDelta(Config.Config.GridFontSizeDelta)
End Sub
End Class