From 6c4c81c02298ba6ab34c85c58f96da92c835f20d Mon Sep 17 00:00:00 2001 From: George Hazan Date: Fri, 2 Dec 2016 16:52:47 +0300 Subject: toolbar services removed from pascal --- include/delphi/m_helpers.inc | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'include/delphi') diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc index 88feb436ff..3e9d70b32f 100644 --- a/include/delphi/m_helpers.inc +++ b/include/delphi/m_helpers.inc @@ -50,6 +50,8 @@ function Menu_AddStatusMenuItem (mi:PMO_MenuItem):HGENMENU; function Menu_AddProtoMenuItem (mi:PMO_MenuItem):HGENMENU; function Menu_AddTrayMenuItem (mi:PMO_MenuItem):HGENMENU; +procedure Srmm_AddButton(bbdi:pBBButton); + procedure SET_UID(pmi:PMO_MenuItem; strguid:PAnsiChar); function Options_AddPage (wParam:WPARAM; odp:POPTIONSDIALOGPAGE):int_ptr; @@ -78,6 +80,9 @@ function Crypto_GetProvider(pszName:PAnsiChar):PCRYPTO_PROVIDER; var hLangpack:int = 0; +function _Srmm_AddButton(bbdi:pBBButton;_hLang:int) : integer; stdcall; + external AppDll name 'Srmm_AddButton'; + function _AddMainMenuItem(mi:PMO_MenuItem) : HGENMENU; stdcall; external AppDll name 'Menu_AddMainMenuItem'; @@ -451,6 +456,10 @@ begin SendMessage(hwnd, ITCM_ADDITEM, WPARAM(@mit), 0); end; +procedure Srmm_AddButton(bbdi:pBBButton); +begin + _Srmm_AddButton(bbdi,hLangpack); +end; function Crypto_RegisterEngine(pProvider:PCRYPTO_PROVIDER):THANDLE; begin -- cgit v1.2.3