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

win32: menu item: fix wrong painting of icons bigger than text. Issue #31149

Browse Source 
git-svn-id: trunk@54212 -
This commit is contained in:
ondrej 2017-02-20 15:24:07 +00:00
parent 592b495a47
commit 48a215ee7e
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -461,6 +461,7 @@ end;
function VistaPopupMenuItemSize(AMenuItem: TMenuItem; ADC: HDC): TSize;
var
Metrics: TVistaPopupMenuMetrics;
IconSize: TPoint;
begin
Metrics := GetVistaPopupMenuMetrics(AMenuItem, ADC);
// count check
@ -475,8 +476,9 @@ begin
Result.cy := Metrics.CheckSize.cy + ScaleY(Metrics.CheckMargins.cyTopHeight + Metrics.CheckMargins.cyBottomHeight, 96);
if AMenuItem.HasIcon then
begin
Result.cy := Max(Result.cy, AMenuItem.GetIconSize.y);
Result.cx := Max(Result.cx, AMenuItem.GetIconSize.x);
IconSize := AMenuItem.GetIconSize;
Result.cy := Max(Result.cy, IconSize.y);
Result.cx := Max(Result.cx, IconSize.x);
end;
end;
// count gutter
@ -715,6 +717,12 @@ begin
CheckRect := ARect;
CheckRect.Right := CheckRect.Left + Metrics.CheckSize.cx + Metrics.CheckMargins.cxRightWidth + Metrics.CheckMargins.cxLeftWidth;
CheckRect.Bottom := CheckRect.Top + Metrics.CheckSize.cy + ScaleY(Metrics.CheckMargins.cyTopHeight + Metrics.CheckMargins.cyBottomHeight, 96);
if AMenuItem.HasIcon then
begin
IconSize := AMenuItem.GetIconSize;
CheckRect.Right := Max(CheckRect.Right, CheckRect.Left+MenuIconWidth(AMenuItem));
CheckRect.Bottom := Max(CheckRect.Bottom, CheckRect.Top+IconSize.y);
end;
// draw gutter
GutterRect := CheckRect;
GutterRect.Left := GutterRect.Right + Metrics.CheckBgMargins.cxRightWidth - Metrics.CheckMargins.cxRightWidth;
@ -752,7 +760,6 @@ begin
if AMenuItem.HasIcon then
begin
ImageRect := CheckRect;
IconSize := AMenuItem.GetIconSize;
if AMenuItem.Checked then // draw checked rectangle around
begin
Tmp := ThemeServices.GetElementDetails(PopupCheckBgStates[AMenuItem.Enabled]);