paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 11:38:04 +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,
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,'',

2
ide/componentpalette.pas
View File

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

2
packager/pkgmanager.pas
View File

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