From ab4abbb7a60f941acab8f0566c6b619f68f1b489 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Sat, 27 Jun 2015 11:09:19 +0000 Subject: - CLISTMENUITEM::pszContactOwner removed, because it's supported only by contact's menu; - Menu_AddContactMenuItem now receives parameter szProto; - Menu_Add* helpers are converted into real functions; git-svn-id: http://svn.miranda-ng.org/main/trunk@14409 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- include/delphi/m_helpers.inc | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'include/delphi/m_helpers.inc') diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc index 1cf14f32b0..72a0b66103 100644 --- a/include/delphi/m_helpers.inc +++ b/include/delphi/m_helpers.inc @@ -392,26 +392,22 @@ end; function Menu_AddMainMenuItem(mi:PCLISTMENUITEM):HGENMENU; begin - mi^.hLangpack:=hLangpack; - result:=CallService(MS_CLIST_ADDMAINMENUITEM, 0,LPARAM(mi)); + result:=_AddMainMenuItem(mi, hLangpack); end; function Menu_AddContactMenuItem(mi:PCLISTMENUITEM):HGENMENU; begin - mi^.hLangpack:=hLangpack; - result:=CallService(MS_CLIST_ADDCONTACTMENUITEM, 0,LPARAM(mi)); + result:=_AddContactMenuItem(mi, nil, hLangpack); end; function Menu_AddStatusMenuItem(mi:PCLISTMENUITEM):HGENMENU; begin - mi^.hLangpack:=hLangpack; - result:=CallService(MS_CLIST_ADDSTATUSMENUITEM, 0,LPARAM(mi)); + result:=_AddStatusMenuItem(mi, nil, hLangpack); end; function Menu_AddProtoMenuItem(mi:PCLISTMENUITEM):HGENMENU; begin - mi^.hLangpack:=hLangpack; - result:=CallService(MS_CLIST_ADDPROTOMENUITEM, 0,LPARAM(mi)); + result:=_AddProtoMenuItem(mi, nil, hLangpack); end; function Menu_AddTrayMenuItem(mi:PCLISTMENUITEM):HGENMENU; -- cgit v1.2.3