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

ide: reduce debug output

Browse Source 
git-svn-id: trunk@21346 -
This commit is contained in:
paul 2009-08-20 13:27:49 +00:00
parent 8300860867
commit b7d6bca23d
4 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/checklfmdlg.pas
View File

@ -184,7 +184,7 @@ var
end;
begin
DebugLn(['QuickCheckLFMBuffer LFMBuffer=',LFMBuffer.Filename]);
//DebugLn(['QuickCheckLFMBuffer LFMBuffer=',LFMBuffer.Filename]);
LCLVersion:='';
MissingClasses:=nil;

4
ide/customformeditor.pp
View File

@ -1831,7 +1831,9 @@ begin
Ancestor:=AnUnitInfo.Component;
RootAncestor:=AnUnitInfo.Component;
end;
{$IFDEF VerboseFormEditor}
DebugLn(['TCustomFormEditor.WriterFindAncestor Component=',DbgSName(Component),' Ancestor=',DbgSName(Ancestor),' RootAncestor=',DbgSName(RootAncestor)]);
{$ENDIF}
end;
end;
@ -2356,7 +2358,9 @@ begin
//DebugLn(['TCustomFormEditor.JITListFindAncestors Class=',DbgSName(AClass)]);
AnUnitInfo:=Project1.UnitWithComponentClass(TComponentClass(AClass));
while AnUnitInfo<>nil do begin
{$IFDEF VerboseFormEditor}
DebugLn(['TCustomFormEditor.JITListFindAncestors FOUND ancestor ',DbgSName(AnUnitInfo.Component),', streaming ...']);
{$ENDIF}
Ancestor:=AnUnitInfo.Component;
BinStream:=nil;
if SaveUnitComponentToBinStream(AnUnitInfo,BinStream)<>mrOk then begin

5
ide/main.pp
View File

@ -5540,7 +5540,9 @@ var
NestedClass: TComponentClass;
NestedUnitInfo: TUnitInfo;
begin
{$IFDEF IDE_DEBUG}
debugln('TMainIDE.DoLoadLFM A ',AnUnitInfo.Filename,' IsPartOfProject=',dbgs(AnUnitInfo.IsPartOfProject),' ');
{$ENDIF}
ReferencesLocked:=false;
MissingClasses:=nil;
@ -6236,8 +6238,9 @@ begin
AnUnitInfo.LoadingComponent:=true;
try
// search component lfm
{$ifdef VerboseFormEditor}
debugln('TMainIDE.DoLoadComponentDependencyHidden ',AnUnitInfo.Filename,' AComponentClassName=',AComponentClassName,' AComponentClass=',dbgsName(AComponentClass));
{$endif}
// first search the resource of ComponentUnitInfo
if ComponentUnitInfo<>nil then begin
if TryUnit(ComponentUnitInfo.Filename,Result,false) then exit;

2
ide/project.pp
View File

@ -3729,7 +3729,9 @@ procedure TProject.UpdateUnitComponentDependencies;
begin
if AComponent<>AnUnitInfo.Component then begin
ReferenceUnit:=UnitWithComponentClass(TComponentClass(AComponent.ClassType));
{$ifdef VerboseFormEditor}
DebugLn(['Search UnitComponent=',DbgSName(AnUnitInfo.Component),' AComponent=',DbgSName(AComponent),' ReferenceUnit=',ReferenceUnit<>nil]);
{$endif}
if (ReferenceUnit<>nil) then begin
// component class references another unit
{$IFDEF VerboseIDEMultiForm}