From 3109304e86ab7759d2b4156377ba5b284660b07d Mon Sep 17 00:00:00 2001
From: michl <michl@lazarus-ide.org>
Date: Tue, 15 Aug 2017 22:10:33 +0000
Subject: [PATCH] IDE: Fixed initial mainbar height for Windows. Issue #32277

git-svn-id: trunk@55666 -
---
 ide/mainbar.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/mainbar.pas b/ide/mainbar.pas
index 30a0a86b11..18b89c81c4 100644
--- a/ide/mainbar.pas
+++ b/ide/mainbar.pas
@@ -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}