fixing #5373

Alexey-T · Jan 23, 2024 · 4d2bcfe · 4d2bcfe
1 parent a401480
commit 4d2bcfe
Showing 1 changed file with 16 additions and 2 deletions.
diff --git a/app/formmain.pas b/app/formmain.pas
@@ -6294,9 +6294,16 @@ procedure TfmMain.DoToggleSidePanel;
   with AppPanels[TAppPanelId.Side] do
   begin
     Visible:= not Visible;
-    if not Visible then
+    if Visible then
+    begin
+      if LastActivePanel='' then
+        UpdatePanels(msgPanelTree_Init, false, true);
+    end
+    else
+    begin
       if ActiveControl=nil then
         DoFocusEditor(CurrentEditor);
+    end;
   end;
 end;
 
@@ -6305,9 +6312,16 @@ procedure TfmMain.DoToggleBottomPanel;
   with AppPanels[TAppPanelId.Btm] do
   begin
     Visible:= not Visible;
-    if not Visible then
+    if Visible then
+    begin
+      if LastActivePanel='' then
+        UpdatePanels(msgPanelConsole_Init, false, true);
+    end
+    else
+    begin
       if ActiveControl=nil then
         DoFocusEditor(CurrentEditor);
+    end;
   end;
 end;