diff options
Diffstat (limited to 'include/delphi/m_helpers.inc')
| -rw-r--r-- | include/delphi/m_helpers.inc | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc index 2d1cdadeeb..3bad7b4ed7 100644 --- a/include/delphi/m_helpers.inc +++ b/include/delphi/m_helpers.inc @@ -93,6 +93,21 @@ function Crypto_GetProvider(pszName:PAnsiChar):PCRYPTO_PROVIDER; var
hLangpack:int = 0;
+function _AddMainMenuItem(mi:PMO_MenuItem) : HGENMENU; stdcall;
+ external AppDll name 'Menu_AddMainMenuItem';
+
+function _AddContactMenuItem(mi:PMO_MenuItem; pszProto:PAnsiChar) : HGENMENU; stdcall;
+ external AppDll name 'Menu_AddContactMenuItem';
+
+function _AddProtoMenuItem(mi:PMO_MenuItem; pszProto:PAnsiChar) : HGENMENU; stdcall;
+ external AppDll name 'Menu_AddProtoMenuItem';
+
+function _AddStatusMenuItem(mi:PMO_MenuItem; pszProto:PAnsiChar) : HGENMENU; stdcall;
+ external AppDll name 'Menu_AddStatusMenuItem';
+
+function _AddTrayMenuItem(mi:PMO_MenuItem) : HGENMENU; stdcall;
+ external AppDll name 'Menu_AddTrayMenuItem';
+
//----- CListint -----
function IsHContactGroup(h:TMCONTACT):bool;
@@ -417,7 +432,7 @@ end; function Menu_AddTrayMenuItem(mi:PMO_MenuItem):HGENMENU;
begin
mi^.hLangpack:=hLangpack;
- result:=CallService(MS_CLIST_ADDTRAYMENUITEM, 0,LPARAM(mi));
+ result:=_AddTrayMenuItem(mi);
end;
|