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

win32: always call GetWindowSize in WM_SIZE handler - it already takes iconic windows into account (fixes a bug with minimizing/restoring windows and their size growing)

Browse Source 
git-svn-id: trunk@29756 -
This commit is contained in:
paul 2011-03-09 04:04:31 +00:00
parent 66766609c8
commit 786385251f
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/win32/win32callback.inc
View File

@ -2318,17 +2318,7 @@ begin
Window := Application.MainFormHandle; Window := Application.MainFormHandle;
end; end;
end; end;
WindowPlacement.length := SizeOf(WindowPlacement); GetWindowSize(Window, NewWidth, NewHeight);
if IsIconic(Window) and GetWindowPlacement(Window, @WindowPlacement) then
begin
with WindowPlacement.rcNormalPosition do
begin
NewWidth := Right - Left;
NewHeight := Bottom - Top;
end;
end
else
GetWindowSize(Window, NewWidth, NewHeight);
Width := NewWidth; Width := NewWidth;
Height := NewHeight; Height := NewHeight;
if Assigned(lWinControl) then if Assigned(lWinControl) then