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

win32: menus: fix menu height calculation. Issue #31875

Browse Source 
git-svn-id: trunk@55016 -
This commit is contained in:
ondrej 2017-05-19 20:23:54 +00:00
parent 61beca02f9
commit 69ffbd67a5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32wsmenus.pp
View File

@ -474,7 +474,7 @@ begin
end
else
begin
Result.cy := Metrics.CheckSize.cy + Metrics.CheckMargins.cyTopHeight + Metrics.CheckMargins.cyBottomHeight;
Result.cy := Max(Metrics.TextSize.cy, Metrics.CheckSize.cy + Metrics.CheckMargins.cyTopHeight + Metrics.CheckMargins.cyBottomHeight);
if AMenuItem.HasIcon then
begin
IconSize := AMenuItem.GetIconSize;
@ -730,8 +730,9 @@ begin
IconWidth := MenuIconWidth(AMenuItem);
CheckRect.Right := Max(CheckRect.Right, CheckRect.Left+IconWidth);
CheckRect.Bottom := Max(CheckRect.Bottom, CheckRect.Top+IconWidth);
CheckRect.Offset(0, (ARect.Bottom-ARect.Top-CheckRect.Bottom+CheckRect.Top) div 2);
// draw gutter
GutterRect := CheckRect;
GutterRect := Rect(0, ARect.Top, CheckRect.Right, ARect.Bottom);
GutterRect.Left := GutterRect.Right + Metrics.CheckBgMargins.cxRightWidth - Metrics.CheckMargins.cxRightWidth;
GutterRect.Right := GutterRect.Left + Metrics.GutterSize.cx;
Tmp := ThemeServices.GetElementDetails(tmPopupGutter);