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

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

Browse Source 
git-svn-id: branches/fixes_1_8@55689 -
This commit is contained in:
mattias 2017-08-19 08:40:37 +00:00
parent fc06fd7b1d
commit b648a18860
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}