old good sound services became finally functions

1 files changed, 0 insertions, 21 deletions

diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc
index d5160da04c..f155f94866 100644
--- a/include/delphi/m_helpers.inc
+++ b/include/delphi/m_helpers.inc
@@ -33,9 +33,6 @@ function Langpack_Register:int_ptr;
 

 function CreateProtoServiceFunction(const szModule, szService: PAnsiChar; serviceProc: TMIRANDASERVICE): int_ptr;

 

-function SkinAddNewSound(const name, description, defaultFile: PAnsiChar): int_ptr;

-function SkinPlaySound  (const name: PAnsiChar): int_ptr;

-

 function Menu_AddContextFrameMenuItem(mi:PMO_MenuItem):HGENMENU;

 function Menu_AddMainMenuItem        (mi:PMO_MenuItem):HGENMENU;

 function Menu_AddContactMenuItem     (mi:PMO_MenuItem):HGENMENU;

@@ -276,24 +273,6 @@ begin
   Result := CreateServiceFunction(szStr, @serviceProc);

 end;

 

-function SkinAddNewSound(const name, description, defaultFile: PAnsiChar): int_ptr;

-var

-  ssd: TSKINSOUNDDESCEX;

-begin

-  FillChar(ssd,SizeOf(ssd),0);

-  ssd.cbSize         := sizeof(ssd);

-  ssd.pszName        := name;

-  ssd.pszDescription.a := description;

-  ssd.pszDefaultFile.a := defaultFile;

-  Result := CallService(MS_SKIN_ADDNEWSOUND, hLangpack, lParam(@ssd));

-end;

-

-function SkinPlaySound (const name: PAnsiChar): int_ptr;

-  {$IFDEF AllowInline}inline;{$ENDIF}

-begin

-  Result := CallService(MS_SKIN_PLAYSOUND, 0, lParam(name));

-end;

-

 

 function Menu_AddContextFrameMenuItem(mi:PMO_MenuItem):HGENMENU;

 begin