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

IDE: less hints

Browse Source
This commit is contained in:
mattias 2022-01-06 13:08:50 +01:00
parent 2b5f37730f
commit 8f868ae0e9
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/designer.pp
View File

@ -43,7 +43,7 @@ uses
LCLProc, LCLType, LResources, LCLIntf, LMessages, InterfaceBase, LCLProc, LCLType, LResources, LCLIntf, LMessages, InterfaceBase,
Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus, ClipBrd, Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus, ClipBrd,
// LazUtils // LazUtils
GraphType, LazFileUtils, LazFileCache, LazLoggerBase, GraphType, LazFileUtils, LazFileCache, LazLoggerBase, LazUtilities,
// IDEIntf // IDEIntf
IDEDialogs, PropEdits, PropEditUtils, ComponentEditors, MenuIntf, IDEDialogs, PropEdits, PropEditUtils, ComponentEditors, MenuIntf,
IDEImagesIntf, FormEditingIntf, ComponentReg, IDECommands, LazIDEIntf, IDEImagesIntf, FormEditingIntf, ComponentReg, IDECommands, LazIDEIntf,
@ -734,7 +734,8 @@ begin
end; end;
// create component and component interface // 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; DisableAutoSize:=true;
NewComponent := TheFormEditor.CreateComponent( NewComponent := TheFormEditor.CreateComponent(
NewParent,NewComponentClass,'', NewParent,NewComponentClass,'',

2
ide/componentpalette.pas
View File

@ -408,6 +408,8 @@ var
begin begin
if Assigned(SelectButton) then Exit; if Assigned(SelectButton) then Exit;
Pal := TComponentPalette(Palette); Pal := TComponentPalette(Palette);
if Pal=nil then
debugln(['TComponentPage.CreateSelectionButton missing Palette']);
Btn := TSpeedButton.Create(nil); Btn := TSpeedButton.Create(nil);
SelectButton:=Btn; SelectButton:=Btn;
IDEImages.AssignImage(Btn, 'tmouse'); IDEImages.AssignImage(Btn, 'tmouse');

2
packager/pkgmanager.pas
View File

@ -4562,7 +4562,7 @@ begin
CurUnitName:=CurRegComp.ComponentClass.UnitName; CurUnitName:=CurRegComp.ComponentClass.UnitName;
CurCompReq:=GetComponentRequirements(CurRegComp.ComponentClass); CurCompReq:=GetComponentRequirements(CurRegComp.ComponentClass);
end; 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 if CurUnitName='' then
CurUnitName:=CurRegComp.GetUnitName; CurUnitName:=CurRegComp.GetUnitName;
//Assert(CurUnitNames.IndexOf(CurUnitName)<0, //Assert(CurUnitNames.IndexOf(CurUnitName)<0,