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

IDE: less verbosity

Browse Source 
git-svn-id: trunk@64912 -
This commit is contained in:
mattias 2021-04-03 12:06:26 +00:00
parent 691f8578fc
commit 14676d7a8e
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/componentlist.pas
View File

@ -502,7 +502,7 @@ end;
procedure TComponentListForm.PageControlChange(Sender: TObject);
begin
DebugLn(['TComponentListForm.PageControlChange: Start']);
//DebugLn(['TComponentListForm.PageControlChange: Start']);
FPageControlChange := True;
case PageControl.PageIndex of
0: begin

6
ide/project.pp
View File

@ -6655,7 +6655,7 @@ begin
// add directory
FSrcDirectories.AddChild(SrcDirDefTempl);
end;
DebugLn('TProjectDefineTemplates.UpdateSourceDirectories: Calling CodeToolBoss.DefineTree.ClearCache');
//DebugLn('TProjectDefineTemplates.UpdateSourceDirectories: Calling CodeToolBoss.DefineTree.ClearCache');
CodeToolBoss.DefineTree.ClearCache;
finally
NewSourceDirs.Free;
@ -6680,13 +6680,13 @@ begin
// no custom options -> delete old template
if (FSrcDirIf<>nil) and FSrcDirIf.DeleteChild('Custom Options') then
begin
DebugLn('TProjectDefineTemplates.UpdateDefinesForCustomDefines: Calling CodeToolBoss.DefineTree.ClearCache');
//DebugLn('TProjectDefineTemplates.UpdateDefinesForCustomDefines: Calling CodeToolBoss.DefineTree.ClearCache');
CodeToolBoss.DefineTree.ClearCache;
end;
end else begin
UpdateSrcDirIfDef;
FSrcDirIf.ReplaceChild(OptionsDefTempl);
DebugLn('TProjectDefineTemplates.UpdateDefinesForCustomDefines: Calling CodeToolBoss.DefineTree.ClearCache');
//DebugLn('TProjectDefineTemplates.UpdateDefinesForCustomDefines: Calling CodeToolBoss.DefineTree.ClearCache');
CodeToolBoss.DefineTree.ClearCache;
end;
end;

2
ide/projectinspector.pas
View File

@ -1431,7 +1431,7 @@ end;
procedure TProjectInspectorForm.PackageListAvailable(Sender: TObject);
begin
DebugLn(['TProjectInspectorForm.PackageListAvailable: ', LazProject.Title]);
//DebugLn(['TProjectInspectorForm.PackageListAvailable: ', LazProject.Title]);
UpdateRequiredPackages;
end;