diff options
| author | George Hazan <ghazan@miranda.im> | 2017-09-12 12:14:57 +0300 |
|---|---|---|
| committer | George Hazan <ghazan@miranda.im> | 2017-09-12 12:14:57 +0300 |
| commit | 69409021aced78b31da0c9f2def7332a4c4b973e (patch) | |
| tree | 3d9a6607f042acb8d44ece5f3fb08a4125a94e45 /include/delphi/m_helpers.inc | |
| parent | e09448dd03e3647717166e92ee818e395041993a (diff) | |
Revert "Merge branch 'master' of https://github.com/miranda-ng/miranda-ng"
This reverts commit e09448dd03e3647717166e92ee818e395041993a, reversing
changes made to b0f44b16bd1138de85a5d17bb42151742f9c8298.
Diffstat (limited to 'include/delphi/m_helpers.inc')
| -rw-r--r-- | include/delphi/m_helpers.inc | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc index f155f94866..d5160da04c 100644 --- a/include/delphi/m_helpers.inc +++ b/include/delphi/m_helpers.inc @@ -33,6 +33,9 @@ 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;
@@ -273,6 +276,24 @@ 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
|