From f2656f118f63643151e53694bd223018c29b4a55 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Mon, 11 Sep 2017 22:27:34 +0300 Subject: old good sound services became finally functions --- include/delphi/m_helpers.inc | 21 --------------------- 1 file changed, 21 deletions(-) (limited to 'include/delphi/m_helpers.inc') 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 -- cgit v1.2.3