From 380fa81917ef62198bf34963d256b8c7fcc07ff3 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Mon, 20 Mar 2006 19:13:16 +0000
Subject: [PATCH] finished implementation of TWinControl.Repaint (fixes issue
 #1890)

git-svn-id: trunk@8968 -
---
 lcl/include/wincontrol.inc | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 275a752ce4..c2835a261b 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -3981,11 +3981,8 @@ Begin
   if csDesigning in ComponentState then
     DebugLn('TWinControl.Repaint A ',Name,':',ClassName);
   {$ENDIF}
-  { TODO: check what to do with LM_PAINT message, neither gtk nor win32
-    interface responded to it }
-  //CNSendMessage(LM_PAINT, Self, nil);
-  // Invalidate;
-  // Update;
+  Invalidate;
+  Update;
 end;
 
 {------------------------------------------------------------------------------}
@@ -5629,7 +5626,7 @@ begin
       ' Cur='+dbgs(Width)+'x'+dbgs(Height)+
       ' Client='+dbgs(OldClientRect.Right)+'x'+dbgs(OldClientRect.Bottom),
       ' Adjusted='+dbgs(OldAdjustedClientRect),
-      ' NewWidth='+dbgs(NewWidth)+' NewHeight=',+dbgs(NewHeight));
+      ' NewWidth='+dbgs(NewWidth)+' NewHeight=',dbgs(NewHeight));
     {$ENDIF}
     PreferredWidth:=Max(PreferredWidth,NewWidth);
     PreferredHeight:=Max(PreferredHeight,NewHeight);