From 8f868ae0e982da4858fba3f8642a35a613724b8e Mon Sep 17 00:00:00 2001 From: mattias Date: Thu, 6 Jan 2022 13:08:50 +0100 Subject: [PATCH] IDE: less hints --- designer/designer.pp | 5 +++-- ide/componentpalette.pas | 2 ++ packager/pkgmanager.pas | 2 +- 3 files changed, 6 insertions(+), 3 deletions(-) diff --git a/designer/designer.pp b/designer/designer.pp index ca5c5777c5..e97e452a85 100644 --- a/designer/designer.pp +++ b/designer/designer.pp @@ -43,7 +43,7 @@ uses LCLProc, LCLType, LResources, LCLIntf, LMessages, InterfaceBase, Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus, ClipBrd, // LazUtils - GraphType, LazFileUtils, LazFileCache, LazLoggerBase, + GraphType, LazFileUtils, LazFileCache, LazLoggerBase, LazUtilities, // IDEIntf IDEDialogs, PropEdits, PropEditUtils, ComponentEditors, MenuIntf, IDEImagesIntf, FormEditingIntf, ComponentReg, IDECommands, LazIDEIntf, @@ -734,7 +734,8 @@ begin end; // create component and component interface - DebugLn(['AddComponent ',DbgSName(NewComponentClass),' Parent=',DbgSName(NewParent),' ',NewLeft,',',NewTop,',',NewWidth,',',NewHeight]); + if ConsoleVerbosity>0 then + DebugLn(['AddComponent ',DbgSName(NewComponentClass),' Parent=',DbgSName(NewParent),' ',NewLeft,',',NewTop,',',NewWidth,',',NewHeight]); DisableAutoSize:=true; NewComponent := TheFormEditor.CreateComponent( NewParent,NewComponentClass,'', diff --git a/ide/componentpalette.pas b/ide/componentpalette.pas index 9692ad123a..a745e4a3d4 100644 --- a/ide/componentpalette.pas +++ b/ide/componentpalette.pas @@ -408,6 +408,8 @@ var begin if Assigned(SelectButton) then Exit; Pal := TComponentPalette(Palette); + if Pal=nil then + debugln(['TComponentPage.CreateSelectionButton missing Palette']); Btn := TSpeedButton.Create(nil); SelectButton:=Btn; IDEImages.AssignImage(Btn, 'tmouse'); diff --git a/packager/pkgmanager.pas b/packager/pkgmanager.pas index 3b5d6f9d5e..708d40db6d 100644 --- a/packager/pkgmanager.pas +++ b/packager/pkgmanager.pas @@ -4562,7 +4562,7 @@ begin CurUnitName:=CurRegComp.ComponentClass.UnitName; CurCompReq:=GetComponentRequirements(CurRegComp.ComponentClass); end; - DebugLn(['TPkgManager.GetUnitsAndDepsForComps: CurCompClass=',DbgSName(CurCompClass),' CurUnitName=',CurUnitName,' CurCompReq=',DbgSName(CurCompReq)]); + //DebugLn(['TPkgManager.GetUnitsAndDepsForComps: CurCompClass=',DbgSName(CurCompClass),' CurUnitName=',CurUnitName,' CurCompReq=',DbgSName(CurCompReq)]); if CurUnitName='' then CurUnitName:=CurRegComp.GetUnitName; //Assert(CurUnitNames.IndexOf(CurUnitName)<0,