From 91a382b14d293137fa3fd90d3f5d315491df9716 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Thu, 8 Sep 2016 12:08:57 +0000
Subject: Srmm_* wrappers for services converted into regular functions

git-svn-id: http://svn.miranda-ng.org/main/trunk@17274 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 include/delphi/m_helpers.inc | 29 -----------------------------
 1 file changed, 29 deletions(-)

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

diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc
index 0e51727d89..62bdd92c10 100644
--- a/include/delphi/m_helpers.inc
+++ b/include/delphi/m_helpers.inc
@@ -40,11 +40,6 @@ function Langpack_Register:int_ptr;
 
 function CreateProtoServiceFunction(const szModule, szService: PAnsiChar; serviceProc: TMIRANDASERVICE): int_ptr;
 
-function  Srmm_AddIcon   (sid: PStatusIconData):int_ptr;
-procedure Srmm_RemoveIcon(sid: PStatusIconData);
-procedure Srmm_ModifyIcon(hContact:TMCONTACT; sid:PStatusIconData);
-function  Srmm_GetNthIcon(hContact:TMCONTACT; index:int):pStatusIconData;
-
 function SkinAddNewSound(const name, description, defaultFile: PAnsiChar): int_ptr;
 function SkinPlaySound  (const name: PAnsiChar): int_ptr;
 
@@ -336,30 +331,6 @@ begin
   Result := CreateServiceFunction(szStr, @serviceProc);
 end;
 
-// Hidden variable hLangpack - do not use Inline style
-function Srmm_AddIcon(sid: PStatusIconData):int_ptr;
-begin
-  result:=CallService(MS_MSG_ADDICON, hLangpack, LPARAM(sid));
-end;
-
-procedure Srmm_RemoveIcon(sid: PStatusIconData);
-  {$IFDEF AllowInline}inline;{$ENDIF}
-begin
-  CallService(MS_MSG_REMOVEICON, 0, LPARAM(sid));
-end;
-
-procedure Srmm_ModifyIcon(hContact:TMCONTACT; sid:PStatusIconData);
-  {$IFDEF AllowInline}inline;{$ENDIF}
-begin
-  CallService(MS_MSG_GETNTHICON, hContact, LPARAM(sid));
-end;
-
-function Srmm_GetNthIcon(hContact:TMCONTACT; index:int):PStatusIconData;
-  {$IFDEF AllowInline}inline;{$ENDIF}
-begin
-  result:=PStatusIconData(CallService(MS_MSG_GETNTHICON, hContact, index));
-end;
-
 function SkinAddNewSound(const name, description, defaultFile: PAnsiChar): int_ptr;
 var
   ssd: TSKINSOUNDDESCEX;
-- 
cgit v1.2.3