- 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

1 files changed, 0 insertions, 45 deletions

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