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

win32: fix aero snap problems (issue #0013921)

Browse Source 
git-svn-id: trunk@20522 -
This commit is contained in:
paul 2009-06-08 15:22:03 +00:00
parent 670f0dd35e
commit f112be2363
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/win32/win32winapi.inc
View File

@ -2313,10 +2313,10 @@ var
end;
begin
WP.length := SizeOf(WP);
Result := Boolean(Windows.GetWindowPlacement(Handle, WP));
if (WP.showCmd=SW_MAXIMIZE) then begin
// if the form is maximized, you can't use the normal size
// if it is a top level window then you can't use the normal size:
// maximized or aero snap windows will have problems
if GetParent(Handle) = 0 then
begin
Result := Boolean(Windows.GetWindowRect(Handle,@R));
with R Do
begin
@ -2325,14 +2325,17 @@ begin
end;
end
else
begin
WP.length := SizeOf(WP);
Result := Boolean(Windows.GetWindowPlacement(Handle, WP));
with WP.rcNormalPosition do
begin
Width := Right - Left;
Height := Bottom - Top;
end;
WindowInfo := GetWindowInfo(Handle);
end;
//debugln('TWin32WidgetSet.GetWindowSize ',DbgSName(WindowInfo^.WinControl),' SW_MAXIMIZE=',dbgs(WP.showCmd=SW_MAXIMIZE),' ',dbgs(WP.rcNormalPosition));
WindowInfo := GetWindowInfo(Handle);
// convert top level lcl window coordinaties to win32 coord
Style := GetWindowLong(Handle, GWL_STYLE);