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

LCL: TWinControl.WMSize: fixed clientrect change check, bug #17053

Browse Source 
git-svn-id: trunk@26880 -
This commit is contained in:
mattias 2010-07-28 22:04:38 +00:00
parent d07aa812f5
commit 59a81fd8a5
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/include/wincontrol.inc
View File

@ -6703,15 +6703,15 @@ begin
GetWindowRelativePosition(Handle, NewLeft, NewTop);
//DebugLn('TWinControl.WMSize B ',Name,':',ClassName,' ',NewLeft,',',NewTop);
NewBoundsRealized := Bounds(NewLeft, NewTop, Message.Width, Message.Height);
OldClientSize:=Size(0,0);
NewClientSize:=Size(0,0);
if CompareRect(@NewBoundsRealized,@FBoundsRealized) then begin
OldClientSize:=Size(FClientWidth,FClientHeight);
if not (wcfClientRectNeedsUpdate in FWinControlFlags) then exit;
NewClientSize:=Size(ClientWidth,ClientHeight);
if (OldClientSize.cx=NewClientSize.cx)
and (OldClientSize.cy=NewClientSize.cy) then exit;
end else begin
OldClientSize:=Size(0,0);
NewClientSize:=Size(0,0);
if not (wcfClientRectNeedsUpdate in FWinControlFlags) then begin
OldClientSize:=Size(FClientWidth,FClientHeight);
NewClientSize:=Size(ClientWidth,ClientHeight);
if (OldClientSize.cx=NewClientSize.cx)
and (OldClientSize.cy=NewClientSize.cy) then exit;
end;
end;
{$IFDEF VerboseAllAutoSize}
DebugLn(['TWinControl.WMSize Changed From Intf ',dbgsname(Self),' Message=',Message.Width,',',Message.Height,