From dd14bccb30a959a2b209a7d3c09ffbe9e810c744 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 5 Mar 2012 11:20:32 +0000
Subject: [PATCH] codetools: less verbosity

git-svn-id: trunk@35727 -
---
 components/codetools/eventcodetool.pas       | 22 ++++++++++----------
 components/codetools/finddeclarationtool.pas |  2 +-
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/components/codetools/eventcodetool.pas b/components/codetools/eventcodetool.pas
index ea0f1566d3..41ff7477f7 100644
--- a/components/codetools/eventcodetool.pas
+++ b/components/codetools/eventcodetool.pas
@@ -885,9 +885,9 @@ begin
   try
     if (ClassNode=nil) or (ClassNode.Desc<>ctnClass) or (AMethodName='')
     or (ATypeInfo=nil) or (SourceChangeCache=nil) or (Scanner=nil) then exit;
-    { $IFDEF CTDEBUG}
+    {$IFDEF CTDEBUG}
     DebugLn(['[TEventsCodeTool.CreateMethod] A AMethodName="',AMethodName,'" in "',MainFilename,'" UseTypeInfoForParameters=',UseTypeInfoForParameters]);
-    { $ENDIF}
+    {$ENDIF}
     // initialize class for code completion
     CodeCompleteClassNode:=ClassNode;
     CodeCompleteSrcChgCache:=SourceChangeCache;
@@ -908,9 +908,9 @@ begin
                          [phpWithoutClassName, phpWithoutName, phpInUpperCase]);
     end;
     if not ProcExistsInCodeCompleteClass(CleanMethodDefinition) then begin
-      { $IFDEF CTDEBUG}
+      {$IFDEF CTDEBUG}
       DebugLn('[TEventsCodeTool.CreateMethod] insert method definition to class');
-      { $ENDIF}
+      {$ENDIF}
       // insert method definition into class
       InsertCall:='';
       if UseTypeInfoForParameters then begin
@@ -939,9 +939,9 @@ begin
                      phpWithoutParamTypes]));
         end;
       end;
-      { $IFDEF CTDEBUG}
+      {$IFDEF CTDEBUG}
       DebugLn('[TEventsCodeTool.CreateMethod] MethodDefinition="',MethodDefinition,'"');
-      { $ENDIF}
+      {$ENDIF}
       if Section in [pcsPublished,pcsPublic] then
         NewSection:=ncpPublishedProcs
       else
@@ -966,9 +966,9 @@ begin
       AddClassInsertion(CleanMethodDefinition, MethodDefinition, AMethodName,
                         NewSection,nil,ProcBody);
     end;
-    { $IFDEF CTDEBUG}
+    {$IFDEF CTDEBUG}
     DebugLn('[TEventsCodeTool.CreateMethod] invoke class completion');
-    { $ENDIF}
+    {$ENDIF}
     if not InsertAllNewClassParts then
       RaiseException(ctsErrorDuringInsertingNewClassParts);
     if not CreateMissingProcBodies then
@@ -979,9 +979,9 @@ begin
     // apply the changes
     if not SourceChangeCache.Apply then
       RaiseException(ctsUnableToApplyChanges);
-    { $IFDEF CTDEBUG}
+    {$IFDEF CTDEBUG}
     DebugLn('[TEventsCodeTool.CreateMethod] END');
-    { $ENDIF}
+    {$ENDIF}
     Result:=true;
   finally
     FreeClassInsertionList;
@@ -1111,7 +1111,7 @@ begin
     end;
     // search base type of property
     TypeContext:=Params.NewCodeTool.FindBaseTypeOfNode(Params,PropNode);
-    debugln(['TEventsCodeTool.FindTypeOfPropertyInfo ',FindContextToString(TypeContext)]);
+    //debugln(['TEventsCodeTool.FindTypeOfPropertyInfo ',FindContextToString(TypeContext)]);
     Result:=true;
   finally
     Params.Free;
diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index 60a82a10af..0db6936150 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -1643,7 +1643,7 @@ var
 begin
   Result:=false;
   NewContext:=CleanFindContext;
-  DebugLn('TFindDeclarationTool.FindDeclarationOfPropertyPath ',MainFilename,' PropertyPath="',PropertyPath,'"');
+  //DebugLn('TFindDeclarationTool.FindDeclarationOfPropertyPath ',MainFilename,' PropertyPath="',PropertyPath,'"');
   if PropertyPath='' then exit;
   ActivateGlobalWriteLock;
   Params:=TFindDeclarationParams.Create;