paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Support checked menu items with associated icons. Issue #26970, patch from Andrey Zubarev.

Browse Source 
git-svn-id: trunk@46979 -
This commit is contained in:
juha 2014-11-24 10:29:29 +00:00
parent e5665c4317
commit b79fe8fe8d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -736,6 +736,11 @@ begin
end; end;
ImageRect.Right := IconSize.x; ImageRect.Right := IconSize.x;
ImageRect.Bottom := IconSize.y; ImageRect.Bottom := IconSize.y;
if AMenuItem.Checked then // draw checked rectangle around
begin
Tmp := ThemeServices.GetElementDetails(PopupCheckBgStates[AMenuItem.Enabled]);
ThemeDrawElement(AHDC, Tmp, CheckRect, nil);
end;
DrawMenuItemIcon(AMenuItem, AHDC, ImageRect, ASelected); DrawMenuItemIcon(AMenuItem, AHDC, ImageRect, ASelected);
if IsRightToLeft then if IsRightToLeft then
SetLayout(AHDC, LAYOUT_RTL); SetLayout(AHDC, LAYOUT_RTL);