From 2d1eaa0ddff106d9cd170baef3230e7dfecf272b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Apr 2010 13:17:07 +0000
Subject: [PATCH] LCL: added debugging for bug #16184

git-svn-id: trunk@24663 -
---
 lcl/include/wincontrol.inc | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 26561763a6..00fae3c27a 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -6668,6 +6668,13 @@ begin
     ',',FBoundsRealized.Right-FBoundsRealized.Left,
     'x',FBoundsRealized.Bottom-FBoundsRealized.Top]);
   {$ENDIF}
+  {$IFDEF VerboseBug16184}
+  DebugLn(['TWinControl.WMMove A ',DbgSName(Self),' Message=',Message.XPos,',',Message.YPos,
+    ' BoundsRealized=',FBoundsRealized.Left,',',FBoundsRealized.Top,
+    ' FromIntf=',Message.MoveType=Move_SourceIsInterface,
+    ',',FBoundsRealized.Right-FBoundsRealized.Left,
+    'x',FBoundsRealized.Bottom-FBoundsRealized.Top]);
+  {$ENDIF}
   NewWidth := Width;
   NewHeight := Height;
   if Message.MoveType = Move_SourceIsInterface then
@@ -6726,6 +6733,10 @@ begin
   DebugLn(['TWinControl.WMSize A ',Name,':',ClassName,' Message=',Message.Width,',',Message.Height,
     ' BoundsRealized=',dbgs(FBoundsRealized),' FromIntf=',(Message.SizeType and Size_SourceIsInterface)>0]);
   {$ENDIF}
+  {$IFDEF VerboseBug16184}
+  DebugLn(['TWinControl.WMSize A ',Name,':',ClassName,' Message=',Message.Width,',',Message.Height,
+    ' BoundsRealized=',dbgs(FBoundsRealized),' FromIntf=',(Message.SizeType and Size_SourceIsInterface)>0]);
+  {$ENDIF}
 
   NewLeft:=Left;
   NewTop:=Top;
@@ -7990,6 +8001,9 @@ begin
     {$IFDEF VerboseNewAutoSize}
     DebugLn(['TWinControl.DoSendShowHideToInterface ',DbgSName(Self),' FBoundsRealized=',dbgs(FBoundsRealized),' New=',HandleObjectShouldBeVisible]);
     {$ENDIF}
+    {$IFDEF VerboseBug16184}
+    DebugLn(['TWinControl.DoSendShowHideToInterface ',DbgSName(Self),' FBoundsRealized=',dbgs(FBoundsRealized),' New=',HandleObjectShouldBeVisible]);
+    {$ENDIF}
     TWSWinControlClass(WidgetSetClass).ShowHide(Self);
   end;
 end;
@@ -8030,6 +8044,11 @@ begin
     ' OldRelBounds=',dbgs(FBoundsRealized),
     ' -> NewBounds=',dbgs(NewBounds));
   {$ENDIF}
+  {$IFDEF VerboseBug16184}
+    DebugLn('[TWinControl.DoSendBoundsToInterface] A ',DbgSName(Self),
+    ' OldRelBounds=',dbgs(FBoundsRealized),
+    ' -> NewBounds=',dbgs(NewBounds));
+  {$ENDIF}
   FBoundsRealized:=NewBounds;
   Include(FWinControlFlags,wcfBoundsRealized); // Note: set before calling widgetset, because used in WMSize
   //if Parent=nil then DebugLn(['TWinControl.DoSendBoundsToInterface ',DbgSName(Self),' ',dbgs(BoundsRect)]);