paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 10:50:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Debug messages when component palette is updated from MainIDE.

Browse Source 
git-svn-id: trunk@47082 -
This commit is contained in:
juha 2014-12-04 10:18:37 +00:00
parent 0f0e014df7
commit 7ff40bae71
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/main.pp
View File

@ -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;