diff options
| -rw-r--r-- | include/delphi/m_clist.inc | 2 | ||||
| -rw-r--r-- | plugins/Actman/actman.dpr | 7 |
2 files changed, 9 insertions, 0 deletions
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;
|