From 7b321b0a5a1d7f47625436331c41d540a396b5bd Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 3 May 2003 09:53:33 +0000
Subject: [PATCH] fixed popupmenu for component palette

git-svn-id: trunk@4125 -
---
 ide/componentpalette.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ide/componentpalette.pas b/ide/componentpalette.pas
index 9d158fa24a..9ec4d54abc 100644
--- a/ide/componentpalette.pas
+++ b/ide/componentpalette.pas
@@ -39,7 +39,7 @@ interface
 
 uses
   Classes, SysUtils, Dialogs, Graphics, ExtCtrls, Buttons, Menus, LResources,
-  AVL_Tree, ComponentReg, PackageDefs, LazarusIDEStrConsts;
+  AVL_Tree, ComponentReg, IDEProcs, PackageDefs, LazarusIDEStrConsts;
 
 const
   ComponentPaletteBtnWidth  = 25;
@@ -251,6 +251,8 @@ begin
     fUnregisteredIcon.Free;
     fUnregisteredIcon:=nil;
   end;
+  PopupMenu.Free;
+  PopupMenu:=nil;
   inherited Destroy;
 end;
 
@@ -350,6 +352,7 @@ begin
     CurPage:=Pages[i];
     if not CurPage.Visible then continue;
     CurNoteBookPage:=TPage(CurPage.PageComponent);
+    if not (CurNoteBookPage is TPage) then RaiseException('CurNoteBookPage');
     ButtonX:=0;
     // create selection button
     if CurPage.SelectButton=nil then begin
@@ -389,7 +392,7 @@ begin
             Hint := CurComponent.ComponentClass.ClassName;
             SetBounds(ButtonX,0,ComponentPaletteBtnWidth,ComponentPaletteBtnHeight);
             inc(ButtonX,ComponentPaletteBtnWidth+2);
-            PopupMenu:=Self.PopupMenu;
+            CurBtn.PopupMenu:=Self.PopupMenu;
           end;
         end;
       end else if CurComponent.Button<>nil then begin