From f2922981e5b9510d9ffadb6303b0e40354629cfa Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 18 Oct 2014 09:46:55 +0000
Subject: [PATCH] IDE: component list: update buttons

git-svn-id: trunk@46590 -
---
 ide/componentlist.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/ide/componentlist.pas b/ide/componentlist.pas
index 99fa7cd309..97b57e78a0 100644
--- a/ide/componentlist.pas
+++ b/ide/componentlist.pas
@@ -141,8 +141,10 @@ begin
     ParentParent := Parent.Parent;
   //DebugLn(['*** TComponentListForm.FormShow, Parent=', Parent, ', Parent.Parent=', ParentParent]);
   ButtonPanel.Visible := ParentParent=Nil;
-  if ButtonPanel.Visible then
-    PageControl.AnchorSideBottom.Side := asrTop
+  if ButtonPanel.Visible then begin
+    PageControl.AnchorSideBottom.Side := asrTop;
+    UpdateButtonState;
+  end
   else
     PageControl.AnchorSideBottom.Side := asrBottom;
 end;
@@ -210,7 +212,7 @@ end;
 
 procedure TComponentListForm.UpdateShowing;
 begin
-  if ButtonPanel.Visible then
+  if (ButtonPanel<>nil) and ButtonPanel.Visible then
     UpdateButtonState;
   inherited UpdateShowing;
 end;