AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Common/DocumentResultList: Show current workspace

Browse Source
This commit is contained in:
Jonathan Jenne
2022-06-29 16:26:33 +02:00
parent 01767669c9
commit df4a0f5bc5
9 changed files with 115 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
GUIs.Common/frmDocumentResultList.vb
View File

@@ -220,15 +220,20 @@ Public Class frmDocumentResultList
'Load window settings
LayoutManager.LoadWindowLocationAndSize(Me)
' Load the workspaces from file, maybe do this earlier and get the available workspaces through params
Workspace.LoadWorkspaces()
' Add an event when new workspace is loaded
AddHandler Workspace.WorkspaceLoaded, AddressOf Workspace_WorkspaceLoaded
' This loads the available workspaces into the ribbon
Workspace.GetWorkspaceButtons(RibbonControl, RibbonPageGroupWorkspace)
' This loads the default workspace, for now
Workspace.LoadWorkspace(Config.Config.SelectedWorkspace)
' This needs to done be after loading the grid
' so we can set the row handle and start loading the (only) file
If Params.ShowFileList = False Then
@@ -263,6 +268,10 @@ Public Class frmDocumentResultList
End Try
End Sub
Private Sub Workspace_WorkspaceLoaded(sender As Object, e As String)
lblCurrentWorkspace.Caption = String.Format(lblCurrentWorkspace.Tag, e)
End Sub
Private Sub frmDocumentResultList_Closing(sender As Object, e As CancelEventArgs) Handles Me.FormClosing
Try
LayoutManager.SaveWindowLocationAndSize(Me)