From d01fbfbee39925d79512b8b829824cffc6d0698d Mon Sep 17 00:00:00 2001
From: George Hazan <ghazan@miranda.im>
Date: Mon, 9 Oct 2017 21:06:30 +0300
Subject: Actman: crutch for Clist_SetStatusMode

---
 include/delphi/m_clist.inc | 2 ++
 plugins/Actman/actman.dpr  | 7 +++++++
 2 files changed, 9 insertions(+)

diff --git a/include/delphi/m_clist.inc b/include/delphi/m_clist.inc
index 32906e9ba2..58094ef97a 100644
--- a/include/delphi/m_clist.inc
+++ b/include/delphi/m_clist.inc
@@ -26,6 +26,8 @@ const
   }
   MS_CLIST_GETSTATUSMODE:PAnsiChar = 'CList/GetStatusMode';
 
+function Clist_SetStatusMode(status:int) : int; stdcall; external AppDll;
+
 function Menu_BuildContactMenu(hContact:TMCONTACT) : HMENU; stdcall; external AppDll;
 
 {
diff --git a/plugins/Actman/actman.dpr b/plugins/Actman/actman.dpr
index c54f7fbfef..3608e7d906 100644
--- a/plugins/Actman/actman.dpr
+++ b/plugins/Actman/actman.dpr
@@ -200,6 +200,12 @@ begin
   result := 0;
 end;
 
+function DoSetStatus(wParam:WPARAM;lParam:LPARAM):int;cdecl;
+begin
+  Clist_SetStatusMode(wParam);
+  result := 0;
+end;
+
 function OnModulesLoaded(wParam:WPARAM;lParam:LPARAM):int;cdecl;
 var
   ptr:pActionLink;
@@ -248,6 +254,7 @@ begin
   CreateServiceFunction('Utils/OpenURL',@DoOpenUrl);
   CreateServiceFunction('Proto/CallContactService', @DoCallContactService);
   CreateServiceFunction('Actman/ButtonsBar/AddButton', @DoAddButton);
+  CreateServiceFunction('CList/SetStatusMode', @DoSetStatus);
 
   HookEvent(ME_SYSTEM_MODULESLOADED,@OnModulesLoaded);
 end;
-- 
cgit v1.2.3