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

* Applied patch from Martin Smat

Browse Source 
git-svn-id: trunk@4811 -
This commit is contained in:
marc 2003-11-16 17:13:20 +00:00
parent ab0ed38efd
commit 3f3d0e3574
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/win32/win32object.inc
View File

@ -2770,10 +2770,12 @@ Begin
wID:=TMenuItem(Sender).Command; {value may only be 16 bit wide!}
hSubmenu:=MenuHandle;
dwItemData:=integer(Sender);
if assigned(TmenuItem(Sender).Graphic) then {adds the menuitem icon}
if TmenuItem(Sender).HasIcon then {adds the menuitem icon}
begin
fMask:=fMask or MIIM_CHECKMARKS;
hbmpUnchecked:=(TMenuItem(Sender).Graphic as TBitmap).Handle;
hbmpUnchecked:=TMenuItem(Sender).Bitmap.Handle;
{TODO: add support for getting icon from SubmenuImages as it will be
implemented in LCL}
end;
end;
InsertMenuItem(ParentMenuHandle, High(UINT), true, @MenuInfo);
@ -2808,6 +2810,9 @@ End;
{
$Log$
Revision 1.129 2003/11/16 17:13:20 marc
* Applied patch from Martin Smat
Revision 1.128 2003/11/16 16:59:02 marc
* Fixed DrawOwnerButton