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

LCL-Win32: Draw check-marks in menus accurately also in high DPI modes. Issue #17793, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@53234 -
This commit is contained in:
juha 2016-10-26 21:01:30 +00:00
parent 70c199c0da
commit 2714f600d1
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -778,6 +778,10 @@ begin
begin
Tmp := ThemeServices.GetElementDetails(PopupCheckBgStates[AMenuItem.Enabled]);
ThemeDrawElement(AHDC, Tmp, CheckRect, nil);
CheckRect.Left := CheckRect.Left + Metrics.CheckMargins.cxLeftWidth;
CheckRect.Top := CheckRect.Top + Metrics.CheckMargins.cyTopHeight;
CheckRect.Right := CheckRect.Left + Metrics.CheckSize.cx;
CheckRect.Bottom := CheckRect.Top + Metrics.CheckSize.cy;
Tmp := ThemeServices.GetElementDetails(PopupCheckStates[AMenuItem.Enabled, AMenuItem.RadioItem]);
ThemeDrawElement(AHDC, Tmp, CheckRect, nil);
end;