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

jj: fix profil panel being collapsed on refresh

Browse Source
This commit is contained in:
Jonathan Jenne 2018-06-28 14:26:46 +02:00
parent 37d945f0b7
commit 4c45b66098
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -221,8 +221,11 @@ Public Class frmMain
Sub Load_Profile_items() Sub Load_Profile_items()
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
Dim profileGroupOpen As Boolean = False
Try Try
Dim CurrGroup As NavBarGroup = NavBarControl1.Groups(0) Dim CurrGroup As NavBarGroup = NavBarControl1.Groups(0)
profileGroupOpen = CurrGroup.Expanded
Try Try
CurrGroup.ItemLinks.Clear() CurrGroup.ItemLinks.Clear()
@ -253,9 +256,8 @@ Public Class frmMain
AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked
Next Next
If GRID_LOAD_TYPE = "OVERVIEW" Then
CurrGroup.Expanded = False CurrGroup.Expanded = profileGroupOpen
End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Load_Profile_items - Error: " & ex.Message) ClassLogger.Add("Load_Profile_items - Error: " & ex.Message)