From 22b7128760cff3939099b45e8e84202ba9b4dfed Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 3 Nov 2007 10:46:54 +0000
Subject: [PATCH] LCL: fixing endless loop in win32:
 TWinControl.IsControlMouseMsg recognizes overlapping TWinControl, but will
 ignore them

git-svn-id: trunk@12713 -
---
 lcl/include/wincontrol.inc    | 6 ++++++
 packager/installpkgsetdlg.pas | 2 --
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 99b1896f05..22e43ac33e 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -4063,6 +4063,12 @@ begin
     // do query wincontrol childs, in case they overlap
     Control := ControlAtPos(SmallPointToPoint(TheMessage.Pos),
                             [capfAllowWinControls]);
+    if Control is TWinControl then begin
+      // there is a TWinControl child at this position
+      // TWinControl childs get their own messages
+      // => ignore here
+      Control:=nil;
+    end;
   end;
 
   //DebugLn('TWinControl.IsControlMouseMsg B ',DbgSName(Self),' Control=',DbgSName(Control));
diff --git a/packager/installpkgsetdlg.pas b/packager/installpkgsetdlg.pas
index c4d1cf6cf7..b33f19a1d2 100644
--- a/packager/installpkgsetdlg.pas
+++ b/packager/installpkgsetdlg.pas
@@ -308,8 +308,6 @@ begin
   w := (ClientWidth - 3 * x) div 2;
   InstallPkgGroupBox.SetBounds(x, x, w, Height - 150);
   AvailablePkgGroupBox.SetBounds(2 * x + w, x, w, Height - 150);
-
-  SaveAndRebuildButton.Left := (Width - SaveAndRebuildButton.Width) div 2 ;
 end;
 
 procedure TInstallPkgSetDialog.SaveAndExitButtonClick(Sender: TObject);