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

fix for resizing window with a menu from Martin Smat

Browse Source 
git-svn-id: trunk@1368 -
This commit is contained in:
mattias 2002-02-09 01:48:20 +00:00
parent bda9104ee5
commit 060d6eba35
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32object.inc
View File

@ -543,7 +543,8 @@ activate_time : the time at which the activation event occurred.
begin
R.Right:=Left + Right;
R.Bottom:=Top + Bottom;
Windows.AdjustWindowRect(@R,WS_OVERLAPPEDWINDOW,false);
if (Sender is TCustomForm) and ((Sender as TCustomForm).Menu<>nil) then Windows.AdjustWindowRect(@R,WS_OVERLAPPEDWINDOW,true)
else Windows.AdjustWindowRect(@R,WS_OVERLAPPEDWINDOW,false);
R.Right:=R.Right - R.Left;
R.Bottom:=R.Bottom - R.Top;
end;
@ -2623,6 +2624,9 @@ End;
{
$Log$
Revision 1.29 2002/12/04 19:25:10 mattias
fix for resizing window with a menu from Martin Smat
Revision 1.28 2002/11/26 20:51:05 mattias
applied clipbrd patch from Vincent