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

@@ -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)