From 57a87314827d6bb19d5b9857e8948d40e340fe0d Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Sat, 20 May 2017 05:21:35 +0000
Subject: [PATCH] win32: menus: fix menu height calculation. Issue #31875

git-svn-id: trunk@55019 -
---
 lcl/interfaces/win32/win32wsmenus.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32wsmenus.pp b/lcl/interfaces/win32/win32wsmenus.pp
index 12f7d5186f..8311cca0dc 100644
--- a/lcl/interfaces/win32/win32wsmenus.pp
+++ b/lcl/interfaces/win32/win32wsmenus.pp
@@ -474,7 +474,7 @@ begin
   end
   else
   begin
-    Result.cy := Max(Metrics.TextSize.cy, Metrics.CheckSize.cy + Metrics.CheckMargins.cyTopHeight + Metrics.CheckMargins.cyBottomHeight);
+    Result.cy := Max(Metrics.TextSize.cy + 1, Metrics.CheckSize.cy + Metrics.CheckMargins.cyTopHeight + Metrics.CheckMargins.cyBottomHeight);
     if AMenuItem.HasIcon then
     begin
       IconSize := AMenuItem.GetIconSize;