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

IDE: Fixed initial mainbar height for Windows. Issue #32277

Browse Source 
git-svn-id: trunk@55666 -
This commit is contained in:
michl 2017-08-15 22:10:33 +00:00
parent 81635180d3
commit 3109304e86
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/mainbar.pas
View File

@ -503,8 +503,8 @@ begin
Assert(Result >= 0, 'TMainIDEBar.CalcNonClientHeight: Result '+IntToStr(Result)+' is below zero.');
{$IFDEF LCLWin32}
//Win32 the constrained height has to be without SM_CYSIZEFRAME and SM_CYMENU
Result := Result - (LCLIntf.GetSystemMetrics(SM_CYSIZEFRAME) + LCLIntf.GetSystemMetrics(SM_CYMENU));
//Win32 the constrained height has to be without SM_CYSIZEFRAME and SM_CYCAPTION;
Result := Result - (LCLIntf.GetSystemMetrics(SM_CYSIZEFRAME) + LCLIntf.GetSystemMetrics(SM_CYCAPTION));
{$ENDIF LCLWin32}
{$ELSE}