Common: Rework Ribbon controls and layout, add Fontsize Setting
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user