From 21cb2d4c68fe7d3961fe122cf524e13d01522d20 Mon Sep 17 00:00:00 2001 From: paul Date: Fri, 21 Aug 2009 04:33:22 +0000 Subject: [PATCH] ide: reduced verbosity git-svn-id: trunk@21374 - --- ide/main.pp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ide/main.pp b/ide/main.pp index 4001201502..02321cc0c4 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -6163,7 +6163,9 @@ var end; end; + {$ifdef VerboseFormEditor} debugln('TMainIDE.DoLoadComponentDependencyHidden ',AnUnitInfo.Filename,' Loading referenced form ',UnitFilename); + {$endif} // load unit source TheModalResult:=LoadCodeBuffer(UnitCode,UnitFilename,[lbfCheckIfText],true); if TheModalResult<>mrOk then begin @@ -6188,7 +6190,9 @@ var if (TheModalResult=mrOk) then begin ComponentUnitInfo:=CurUnitInfo; AComponentClass:=TComponentClass(ComponentUnitInfo.Component.ClassType); + {$ifdef VerboseFormEditor} debugln('TMainIDE.DoLoadComponentDependencyHidden Wanted=',AComponentClassName,' Class=',AComponentClass.ClassName); + {$endif} TheModalResult:=mrOk; end else begin debugln('TMainIDE.DoLoadComponentDependencyHidden Failed to load component ',AComponentClassName);