From 7ff40bae7166a9b1438fc803fc701d0bbb4e6ad2 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Thu, 4 Dec 2014 10:18:37 +0000
Subject: [PATCH] IDE: Debug messages when component palette is updated from
 MainIDE.

git-svn-id: trunk@47082 -
---
 ide/main.pp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/ide/main.pp b/ide/main.pp
index 9c6ab9340c..1955306e15 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -3680,6 +3680,10 @@ begin
     and (LastFormActivated.Designer<>nil)
     and (LastFormActivated.Designer.LookupRoot<>nil)
     and not (LastFormActivated.Designer.LookupRoot is TControl);
+  {$IFDEF VerboseComponentPalette}
+  DebugLn(['* TMainIDE.UpdateIDEComponentPalette: Updating palette *',
+           ', HideControls=', IDEComponentPalette.HideControls]);
+  {$ENDIF}
   IDEComponentPalette.Update;
   TComponentPalette(IDEComponentPalette).OnClassSelected := @ComponentPaletteClassSelected;
   SetupHints;
@@ -8583,6 +8587,10 @@ begin
     GlobalDesignHook.LookupRoot:=TheControlSelection.LookupRoot;
   if NewForm<>nil then
     NewForm.Invalidate;
+  {$IFDEF VerboseComponentPalette}
+  DebugLn('***');
+  DebugLn('** TMainIDE.OnControlSelectionFormChanged: Calling UpdateIDEComponentPalette(true) **');
+  {$ENDIF}
   UpdateIDEComponentPalette(true);
 end;
 
@@ -10518,6 +10526,10 @@ begin
   {$ENDIF}
   DisplayState:= dsForm;
   LastFormActivated := (Sender as TDesigner).Form;
+  {$IFDEF VerboseComponentPalette}
+  DebugLn('***');
+  DebugLn('** TMainIDE.OnDesignerActivated: Calling UpdateIDEComponentPalette(true) **');
+  {$ENDIF}
   UpdateIDEComponentPalette(true);
 end;
 
@@ -12020,6 +12032,10 @@ begin
       Format(lisACanNotHoldTControlsYouCanOnlyPutNonVisualComponen,
              [AParent.ClassName, LineEnding]),
       mtError,[mbCancel]);
+    {$IFDEF VerboseComponentPalette}
+    DebugLn('***');
+    DebugLn('** TMainIDE.OnPropHookBeforeAddPersistent: Calling UpdateIDEComponentPalette(false) **');
+    {$ENDIF}
     // make sure the component palette shows only the available components
     UpdateIDEComponentPalette(false);
     exit;