paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 01:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: skip setbounds during wmmove while autosizing

Browse Source 
git-svn-id: trunk@24064 -
This commit is contained in:
mattias 2010-03-17 14:06:02 +00:00
parent cbbac5d4f9
commit a4d34f155f
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/wincontrol.inc
View File

@ -6616,9 +6616,22 @@ begin
NewWidth := FBoundsRealized.Right - FBoundsRealized.Left;
NewHeight := FBoundsRealized.Bottom - FBoundsRealized.Top;
// skip size update when window is minimized
if HandleAllocated and not IsIconic(Handle) then
if HandleAllocated and (not IsIconic(Handle)) then
GetWindowSize(Handle, NewWidth, NewHeight);
FBoundsRealized := Bounds(Message.XPos, Message.YPos, NewWidth, NewHeight);
{$IFNDEF OldAutoSize}
InvalidatePreferredChildSizes;
if AutoSizingAll then begin
// while the LCL is creating handles the widgetset may send default bounds
// we have not yet told the widgetset the final bounds
// => the InvalidatePreferredSize and the InvalidateClientRectCache
// (invoked by the widgetset) may trigger a further loop in the auto
// size algorithm to take care of the new bounds
// => do not call SetBounds, as this will set the Bounds to the widgetset
// default values.
exit;
end;
{$ENDIF}
end;
SetBoundsKeepBase(Message.XPos, Message.YPos, NewWidth, NewHeight, Parent <> nil);
end;