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 -----------------------------
 include/delphi/m_message.inc | 30 ------------------------------
 2 files changed, 59 deletions(-)

(limited to 'include/delphi')

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;
diff --git a/include/delphi/m_message.inc b/include/delphi/m_message.inc
index a6cddc4cdc..1a50da7c6f 100644
--- a/include/delphi/m_message.inc
+++ b/include/delphi/m_message.inc
@@ -210,36 +210,6 @@ type
   end;
 
 const
-{
-  wParam = hLangpack
-  lParam = (StatusIconData *)&StatusIconData
-}
-  MS_MSG_ADDICON:PAnsiChar = 'MessageAPI/AddIcon';
-
-{
-  wParam = 0
-  lParam = (StatusIconData *)&StatusIconData
-  only szModule and szId are used
-}
-  MS_MSG_REMOVEICON:PAnsiChar = 'MessageAPI/RemoveIcon';
-
-{
-  wParam = (HANDLE)hContact
-  lParam = (int)zero-based index of a visible icon
-  returns (StatusIconData*)icon description filled for the required contact
-  don't free this memory.
-}
-  MS_MSG_GETNTHICON:PAnsiChar = 'MessageAPI/GetNthIcon';
-
-{
- wParam = (HANDLE)hContact
- lParam = (StatusIconData *)&StatusIconData
- if hContact is null, icon is modified for all contacts
- otherwise, only the flags field is valid
- if either hIcon, hIconDisabled or szTooltip is null, they will not be modified
-}
-  MS_MSG_MODIFYICON:PAnsiChar = 'MessageAPI/ModifyIcon';
-
 {
  wParam = (HANDLE)hContact;
  lParam = (StatusIconClickData *)&StatusIconClickData;
-- 
cgit v1.2.3