From 0c41e6c4566fdb2d99b8a6ca1fb48859fd4a0e34 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Fri, 16 Sep 2016 19:43:24 +0000
Subject: - chats services replaces with functions; - chat calls switched from
 CallServiceSync to direct calls everywhere

git-svn-id: http://svn.miranda-ng.org/main/trunk@17305 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Utils.pas/mircontacts.pas | 45 ---------------------------------------
 1 file changed, 45 deletions(-)

(limited to 'plugins/Utils.pas')

diff --git a/plugins/Utils.pas/mircontacts.pas b/plugins/Utils.pas/mircontacts.pas
index d9e2e2bf7e..7e5337c8c8 100644
--- a/plugins/Utils.pas/mircontacts.pas
+++ b/plugins/Utils.pas/mircontacts.pas
@@ -45,7 +45,6 @@ function WndToContact(wnd:HWND):TMCONTACT; overload;
 function WndToContact:TMCONTACT; overload;
 
 procedure ShowContactDialog(hContact:TMCONTACT;DblClk:boolean=true;anystatus:boolean=true);
-procedure SendToChat(hContact:TMCONTACT;pszText:PWideChar);
 
 //----- List of contacts (combobox) -----
 
@@ -486,50 +485,6 @@ CallService(MS_CLIST_CONTACTDOUBLECLICKED,hContact,0);
   end;
 end;
 
-procedure SendChatText(pszID:pointer;pszModule:PAnsiChar;pszText:pointer);
-var
-  gcd:TGCDEST;
-  gce:TGCEVENT;
-begin
-  gcd.pszModule:=pszModule;
-  gcd.iType    :=GC_EVENT_SENDMESSAGE;
-  gcd.szID.w   :=pszID;
-
-  FillChar(gce,SizeOf(TGCEVENT),0);
-  gce.cbSize  :=SizeOf(TGCEVENT);
-  gce.pDest   :=@gcd;
-  gce.bIsMe   :=true;
-  gce.szText.w:=pszText;
-  gce.dwFlags :=GCEF_ADDTOLOG;
-  gce.time    :=GetCurrentTimeStamp;
-
-  CallServiceSync(MS_GC_EVENT,0,lparam(@gce));
-end;
-
-procedure SendToChat(hContact:TMCONTACT;pszText:PWideChar);
-var
-  gci:TGC_INFO;
-  pszModule:PAnsiChar;
-  i,cnt:integer;
-begin
-  pszModule:=GetContactProto(hContact);
-  cnt:=CallService(MS_GC_GETSESSIONCOUNT,0,lparam(pszModule));
-  i:=0;
-  gci.pszModule:=pszModule;
-  while i<cnt do
-  begin
-    gci.iItem:=i;
-    gci.Flags:=GCF_BYINDEX+GCF_HCONTACT+GCF_ID;
-    CallService(MS_GC_GETINFO,0,lparam(@gci));
-    if gci.hContact=hContact then
-    begin
-      SendChatText(gci.pszID.w,pszModule,pszText);
-      break;
-    end;
-    inc(i);
-  end;
-end;
-
 //----- List of contacts -----
 
 const
-- 
cgit v1.2.3