From 4c45b66098ffef51806f5c7061471b03dea5b410 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@didalog.de>
Date: Thu, 28 Jun 2018 14:26:46 +0200
Subject: [PATCH] jj: fix profil panel being collapsed on refresh

---
 app/DD_PM_WINDREAM/frmMain.vb | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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