AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Zooflow: Workspaces

Browse Source
This commit is contained in:
Jonathan Jenne
2022-05-30 15:46:26 +02:00
parent 6a1f8b77f7
commit fbffbc204e
16 changed files with 604 additions and 275 deletions
Download Patch File Download Diff File Expand all files Collapse all files

96
GUIs.Common/DocumentResultList/Layout.vb
View File

@@ -48,59 +48,59 @@ Namespace DocumentResultList
End Try
End Sub
Public Sub DockManager_SaveLayout(pDockManager As DockManager)
Try
Dim oFileName As String = GetDockmanager_LayoutName()
pDockManager.SaveLayoutToXml(oFileName)
Catch ex As Exception
Logger.Error(ex)
Logger.Info("Error while saving GridLayout: " & ex.Message)
End Try
End Sub
'Public Sub DockManager_SaveLayout(pDockManager As DockManager)
' Try
' Dim oFileName As String = GetDockmanager_LayoutName()
' pDockManager.SaveLayoutToXml(oFileName)
' Catch ex As Exception
' Logger.Error(ex)
' Logger.Info("Error while saving GridLayout: " & ex.Message)
' End Try
'End Sub
Public Async Function DockManager_SaveLayoutAsync(pDockManager As DockManager) As Task
Await Task.Run(Sub() DockManager_SaveLayout(pDockManager))
End Function
'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()
If IO.File.Exists(oFilename) Then
pDockManager.RestoreLayoutFromXml(oFilename)
End If
Catch ex As Exception
Logger.Error(ex)
Logger.Info("Error while restoring GridLayout: " & ex.Message)
End Try
End Sub
'Public Sub DockManager_RestoreLayout(pDockManager As DockManager)
' Try
' Dim oFilename As String = GetDockmanager_LayoutName()
' If IO.File.Exists(oFilename) Then
' pDockManager.RestoreLayoutFromXml(oFilename)
' End If
' Catch ex As Exception
' Logger.Error(ex)
' Logger.Info("Error while restoring GridLayout: " & ex.Message)
' End Try
'End Sub
Public Sub GridView_RestoreLayout(pGridView As GridView)
Try
Dim oLayoutFile As String = GetGrid_LayoutName(pGridView)
If IO.File.Exists(oLayoutFile) Then
pGridView.RestoreLayoutFromXml(oLayoutFile, OptionsLayoutBase.FullLayout)
End If
Catch ex As Exception
Logger.Error(ex)
Logger.Info("Error while restoring layout: " & ex.Message)
End Try
End Sub
'Public Sub GridView_RestoreLayout(pGridView As GridView)
' Try
' Dim oLayoutFile As String = GetGrid_LayoutName(pGridView)
' If IO.File.Exists(oLayoutFile) Then
' pGridView.RestoreLayoutFromXml(oLayoutFile, OptionsLayoutBase.FullLayout)
' End If
' Catch ex As Exception
' Logger.Error(ex)
' Logger.Info("Error while restoring layout: " & ex.Message)
' End Try
'End Sub
Public Sub GridView_SaveLayout(pGridView As GridView)
Try
Dim oFileName As String = GetGrid_LayoutName(pGridView)
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 Sub GridView_SaveLayout(pGridView As GridView)
' Try
' Dim oFileName As String = GetGrid_LayoutName(pGridView)
' 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 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"