From 88790eed4ffd9ca555c8f9b73cb014a93b57a34f Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Mon, 22 Jun 2015 20:38:56 +0000
Subject: Menu_ModifyItem unbound from CLISTMENUITEM structure

git-svn-id: http://svn.miranda-ng.org/main/trunk@14334 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 include/delphi/m_clist.inc | 39 +++++++++++++--------------------------
 1 file changed, 13 insertions(+), 26 deletions(-)

(limited to 'include/delphi/m_clist.inc')

diff --git a/include/delphi/m_clist.inc b/include/delphi/m_clist.inc
index ccd53cca61..cf5df8da4b 100644
--- a/include/delphi/m_clist.inc
+++ b/include/delphi/m_clist.inc
@@ -121,36 +121,22 @@ const
   }
   MS_CLIST_ADDCONTACTMENUITEM:PAnsiChar = 'CList/AddContactMenuItem';
   MS_CLIST_ADDSTATUSMENUITEM :PAnsiChar = 'CList/AddStatusMenuItem';
-//adds a protocol menu item        v0.9+
   MS_CLIST_ADDPROTOMENUITEM  :PAnsiChar = 'CList/AddProtoMenuItem';
 
-  CMIM_NAME   = $80000000;
-  CMIM_FLAGS  = $40000000;
-  CMIM_ICON   = $20000000;
-  CMIM_HOTKEY = $10000000;
-  CMIM_ALL    = $F0000000;
+{
+  Affect : Modify an existing menu item, see notes
+  Returns: 0 on success, [non zero] on failure
+}
 
-  {
-    wParam : HMENUITEM
-    lParam : Pointer to a initalised TCLISTMENUITEM
-    Affect : Modify an existing menu item, see notes
-    Returns: 0 on success, [non zero] on failure
-    Notes  : hMenuItem will have been returned by MS_CLIST_ADD[MAIN]MENUITEM
-             TCLISTMENUITEM.flags should contain CMIM_* constants (see above)
-             to mark which fields should be updated, if it's not present, they
-             can't be updated -- if flags do not exist for a field it can not
-             be updated.
-    Version: v0.1.0.1+
-  }
-  MS_CLIST_MODIFYMENUITEM:PAnsiChar = 'CList/ModifyMenuItem';
+function Menu_ModifyItem(hMenu:HGENMENU; const name:PWideChar; icon:THANDLE=INVALID_HANDLE_VALUE; flags:int=-1) : int; stdcall;
+             external AppDll name 'Menu_ModifyItem';
 
-  {
-    wParam : (HGENMENU)hMenuItem
-    lParam : (bool) enable = TRUE, disable = FALSE
-    Notes  : changes menu item's visibility
-    Version: v0.94.2+
-  }
-  MS_CLIST_SHOWHIDEMENUITEM:PAnsiChar = 'CList/ShowHideMenuItem';
+{
+  Notes  : changes menu item's visibility
+}
+
+procedure Menu_ShowItem(hMenu:HGENMENU; bShow:BYTE); stdcall;
+             external AppDll name 'Menu_ShowItem';
 
   {
     wParam : TMCONTACT
@@ -160,6 +146,7 @@ const
              to the contact that has them
     Version: v0.1.0.1+
   }
+const
   ME_CLIST_PREBUILDCONTACTMENU:PAnsiChar = 'CList/PreBuildContactMenu';
 
 type
-- 
cgit v1.2.3