From d81144b51a77e231bf98aa33f31fb497f9ce9e36 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 6 Jul 2007 13:41:29 +0000
Subject: [PATCH] bug 1152: added debug code

git-svn-id: trunk@11437 -
---
 lcl/include/control.inc     | 4 +++-
 lcl/include/speedbutton.inc | 3 +++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 7670c6b763..6e65d41daf 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -2510,7 +2510,9 @@ begin
   and not (csNoDesignVisible in ControlStyle)))
   then begin
     Rect := BoundsRect;
-    //DebugLn(['TControl.InvalidateControl Rect=',dbgs(Rect)]);
+    {$IFDEF VerboseBug1152}
+    DebugLn(['TControl.InvalidateControl ',DbgSName(Self),' Rect=',dbgs(Rect)]);
+    {$ENDIF}
     InvalidateRect(Parent.Handle, @Rect, not (CtrlIsOpaque or
       (csOpaque in Parent.ControlStyle) or BackgroundClipped));
   end;
diff --git a/lcl/include/speedbutton.inc b/lcl/include/speedbutton.inc
index dd0fe930f7..29e6d36637 100644
--- a/lcl/include/speedbutton.inc
+++ b/lcl/include/speedbutton.inc
@@ -486,6 +486,9 @@ var
   SIndex : Longint;
   TMP : String;
 begin
+  {$IFDEF VerboseBug1152}
+  DebugLn(['TCustomSpeedButton.Paint ',DbgSName(Self)]);
+  {$ENDIF}
   UpdateState(false);
   if FGlyph=nil then exit;