paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 12:59:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixing endless loop in win32: TWinControl.IsControlMouseMsg recognizes overlapping TWinControl, but will ignore them

Browse Source 
git-svn-id: trunk@12713 -
This commit is contained in:
mattias 2007-11-03 10:46:54 +00:00
parent c6c16d5bbd
commit 22b7128760
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/wincontrol.inc
View File

@ -4063,6 +4063,12 @@ begin
// do query wincontrol childs, in case they overlap // do query wincontrol childs, in case they overlap
Control := ControlAtPos(SmallPointToPoint(TheMessage.Pos), Control := ControlAtPos(SmallPointToPoint(TheMessage.Pos),
[capfAllowWinControls]); [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; end;
//DebugLn('TWinControl.IsControlMouseMsg B ',DbgSName(Self),' Control=',DbgSName(Control)); //DebugLn('TWinControl.IsControlMouseMsg B ',DbgSName(Self),' Control=',DbgSName(Control));

2
packager/installpkgsetdlg.pas
View File

@ -308,8 +308,6 @@ begin
w := (ClientWidth - 3 * x) div 2; w := (ClientWidth - 3 * x) div 2;
InstallPkgGroupBox.SetBounds(x, x, w, Height - 150); InstallPkgGroupBox.SetBounds(x, x, w, Height - 150);
AvailablePkgGroupBox.SetBounds(2 * x + w, x, w, Height - 150); AvailablePkgGroupBox.SetBounds(2 * x + w, x, w, Height - 150);
SaveAndRebuildButton.Left := (Width - SaveAndRebuildButton.Width) div 2 ;
end; end;
procedure TInstallPkgSetDialog.SaveAndExitButtonClick(Sender: TObject); procedure TInstallPkgSetDialog.SaveAndExitButtonClick(Sender: TObject);