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

menuiteminfo compatibility with win95 from Martin Smat

Browse Source 
git-svn-id: trunk@11518 -
This commit is contained in:
paul 2007-07-16 01:14:14 +00:00
parent ae7d12aa56
commit 21bc08ec17
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/win32/win32proc.pp
View File

@ -1123,9 +1123,16 @@ end;
procedure SetMenuFlag(const Menu:HMenu; Flag: Integer; Value: boolean); procedure SetMenuFlag(const Menu:HMenu; Flag: Integer; Value: boolean);
var var
MenuInfo: MENUITEMINFO; MenuInfo: MENUITEMINFO;
MenuItemInfoSize: DWORD;
const
W95_MENUITEMINFO_SIZE = 44;
begin begin
if (Win32MajorVersion = 4) and (Win32MinorVersion = 0) then
MenuItemInfoSize := W95_MENUITEMINFO_SIZE
else
MenuItemInfoSize := sizeof(MENUITEMINFO);
FillChar(MenuInfo, SizeOf(MenuInfo), 0); FillChar(MenuInfo, SizeOf(MenuInfo), 0);
MenuInfo.cbSize := SizeOf(MENUITEMINFO); MenuInfo.cbSize := MenuItemInfoSize;
MenuInfo.fMask := MIIM_TYPE; MenuInfo.fMask := MIIM_TYPE;
GetMenuItemInfo(Menu, 0, True, @MenuInfo); GetMenuItemInfo(Menu, 0, True, @MenuInfo);
if Value then if Value then