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

Win32: implement TMenuItem.Default. Part of Issue #0027242.

Browse Source 
git-svn-id: trunk@52252 -
This commit is contained in:
bart 2016-04-25 21:13:10 +00:00
parent 8b1d8e7295
commit 2f6d4c8b70
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1438,6 +1438,8 @@ begin
else
if AMenuItem.RightJustify then
fType := fType or MFT_RIGHTJUSTIFY;
if AMenuItem.Default then
fState := fState or MFS_DEFAULT;
end;
CallMenuRes := InsertMenuItemW(ParentMenuHandle, AMenuItem.Parent.VisibleIndexOf(AMenuItem), True, @MenuInfo);
if not CallMenuRes then