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

LCL-Win32: Prevent a range error when assigning a menu handle. Issue #33102.

Browse Source 
git-svn-id: trunk@57200 -
This commit is contained in:
juha 2018-01-31 22:15:16 +00:00
parent 691e9239a3
commit 324b3ed0ad
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32callback.inc
View File

@ -458,7 +458,7 @@ begin
MenuInfo.fMask := MIIM_DATA;
if ByPosition then
Menu := LParam
Menu := HMENU(LParam)
else
Menu := GetMenu(Window);
if GetMenuItemInfo(Menu, LOWORD(Integer(WParam)), ByPosition, @MenuInfo) then