Awkward's private repo sync

git-svn-id: http://svn.miranda-ng.org/main/trunk@11279 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 673 insertions, 0 deletions

diff --git a/plugins/Utils.pas/mircontacts.pas b/plugins/Utils.pas/mircontacts.pas
new file mode 100644
index 0000000000..50d700b802
--- /dev/null
+++ b/plugins/Utils.pas/mircontacts.pas
@@ -0,0 +1,673 @@
+{$INCLUDE compilers.inc}

+unit mircontacts;

+

+interface

+

+uses

+  Windows,

+  m_api;

+

+//----- Contact info -----

+

+function GetContactProtoAcc(hContact:TMCONTACT):PAnsiChar;

+function GetContactProto(hContact: TMCONTACT): pAnsiChar; overload;

+function GetContactProto(hContact: TMCONTACT; var SubContact: TMCONTACT; var SubProtocol: pAnsiChar): pAnsiChar; overload;

+function GetContactDisplayName(hContact: TMCONTACT; Proto: pAnsiChar = nil; Contact: boolean = false): PWideChar;

+function GetContactID(hContact: TMCONTACT; Proto: pAnsiChar = nil; Contact: boolean = false): PAnsiChar;

+

+function GetContactCodePage  (hContact: TMCONTACT; Proto: pAnsiChar; var UsedDefault: boolean): Cardinal; overload;

+function GetContactCodePage  (hContact: TMCONTACT; const Proto: pAnsiChar = nil): Cardinal; overload;

+function WriteContactCodePage(hContact: TMCONTACT; CodePage: Cardinal; Proto: pAnsiChar = nil): boolean;

+

+function GetContactStatus(hContact:TMCONTACT):integer;

+

+//----- Contact type check -----

+

+function IsChat(hContact:TMCONTACT):bool;

+function IsMirandaUser(hContact:TMCONTACT):integer; // >0=Miranda; 0=Not miranda; -1=unknown

+

+// -2 - deleted account, -1 - disabled account, 0 - hidden

+// 1 - metacontact, 2 - submetacontact, positive - active

+// proto - ASSIGNED buffer

+function IsContactActive(hContact:TMCONTACT;proto:pAnsiChar=nil):integer;

+

+//----- Save / Load contact -----

+

+function LoadContact(group,setting:PAnsiChar):TMCONTACT;

+function SaveContact(hContact:TMCONTACT;group,setting:PAnsiChar):integer;

+function FindContactHandle(proto:pAnsiChar;const dbv:TDBVARIANT;is_chat:boolean=false):TMCONTACT;

+

+//----- Another functions -----

+

+function SetCListSelContact(hContact:TMCONTACT):TMCONTACT;

+function GetCListSelContact:TMCONTACT;

+

+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) -----

+

+procedure FillContactList(list:HWND;filter:boolean=true;format:pWideChar=nil);

+function  FindContact    (list:HWND;contact:TMCONTACT):integer;

+

+

+implementation

+

+uses

+  messages,

+  common, syswin,

+  dbsettings;

+

+//----- Contact info -----

+

+function GetContactProtoAcc(hContact:TMCONTACT):PAnsiChar;

+begin

+  if ServiceExists(MS_PROTO_GETCONTACTBASEACCOUNT)<>0 then

+    result:=PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEACCOUNT,hContact,0))

+  else

+    result:=PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,hContact,0));

+end;

+

+function GetContactProto(hContact: TMCONTACT): pAnsiChar;

+{$IFDEF AllowInline}inline;{$ENDIF}

+begin

+  Result := PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO, hContact, 0));

+end;

+

+function GetContactProto(hContact: TMCONTACT; var SubContact: TMCONTACT; var SubProtocol: pAnsiChar): pAnsiChar;

+begin

+  Result := GetContactProto(hContact);

+  if StrCmp(Result, META_PROTO)=0 then

+  begin

+    SubContact  := CallService(MS_MC_GETMOSTONLINECONTACT, hContact, 0);

+    SubProtocol := PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO, SubContact, 0));

+  end

+  else

+  begin

+    SubContact  := hContact;

+    SubProtocol := Result;

+  end;

+end;

+

+function GetContactDisplayName(hContact: TMCONTACT; Proto: pAnsiChar = nil; Contact: boolean = false): PWideChar;

+var

+  ci: TContactInfo;

+  pUnk:PWideChar;

+begin

+  if (hContact = 0) and Contact then

+    StrDupW(Result, TranslateW('Server'))

+  else

+  begin

+    if Proto = nil then

+      Proto := GetContactProto(hContact);

+    pUnk := TranslateW('''(Unknown Contact)''');

+    if Proto = nil then

+      StrDupW(Result, pUnk)

+    else

+    begin

+      ci.cbSize   := SizeOf(ci);

+      ci.hContact := hContact;

+      ci.szProto  := Proto;

+      ci.dwFlag   := CNF_DISPLAY + CNF_UNICODE;

+      if CallService(MS_CONTACT_GETCONTACTINFO, 0, LPARAM(@ci)) = 0 then

+      begin

+        if StrCmpW(ci.retval.szVal.w, pUnk)=0 then

+          AnsiToWide(GetContactID(hContact, Proto), Result, CP_ACP)

+        else

+          StrDupW(Result, ci.retval.szVal.w);

+        mir_free(ci.retval.szVal.w);

+      end

+      else

+        AnsiToWide(GetContactID(hContact, Proto), Result);

+

+      if (Result = nil) or (Result^ = #0) then

+        AnsiToWide(Translate(Proto), Result, CallService(MS_LANGPACK_GETCODEPAGE, 0, 0));

+    end;

+  end;

+end;

+

+function GetContactID(hContact: TMCONTACT; Proto: pAnsiChar = nil; Contact: boolean = false): PAnsiChar;

+var

+  uid: PAnsiChar;

+  dbv: TDBVARIANT;

+  buf: array [0..15] of AnsiChar;

+  cp: Cardinal;

+begin

+  Result := nil;

+  if not((hContact = 0) and Contact) then

+  begin

+    if Proto = nil then

+      Proto := GetContactProto(hContact);

+    uid := PAnsiChar(CallProtoService(Proto, PS_GETCAPS, PFLAG_UNIQUEIDSETTING, 0));

+    if (int_ptr(uid) <> CALLSERVICE_NOTFOUND) and (uid <> nil) then

+    begin

+      // DBGetContactSettingStr comparing to DBGetContactSetting don't translate strings

+      // when uType=0 (DBVT_ASIS)

+      if DBGetContactSettingStr(hContact, Proto, uid, @dbv, DBVT_ASIS) = 0 then

+      begin

+        case dbv._type of

+          DBVT_BYTE:   StrDup(Result, IntToStr(buf,dbv.bVal));

+          DBVT_WORD:   StrDup(Result, IntToStr(buf,dbv.wVal));

+          DBVT_DWORD:  StrDup(Result, IntToStr(buf,dbv.dVal));

+          DBVT_ASCIIZ: StrDup(Result, dbv.szVal.a);

+          DBVT_UTF8,

+          DBVT_WCHAR:  begin

+            cp := CallService(MS_LANGPACK_GETCODEPAGE, 0, 0);

+            if dbv._type = DBVT_UTF8 then

+              UTF8ToAnsi(dbv.szVal.a, Result, cp)

+            else // dbv._type = DBVT_WCHAR then

+              WideToAnsi(dbv.szVal.w, Result, cp);

+          end;

+        end;

+        // free variant

+        DBFreeVariant(@dbv);

+      end;

+    end;

+  end;

+end;

+

+function GetContactCodePage(hContact: TMCONTACT; Proto: pAnsiChar; var UsedDefault: boolean) : Cardinal;

+begin

+  if Proto = nil then

+    Proto := GetContactProto(hContact);

+  if Proto = nil then

+    Result := CallService(MS_LANGPACK_GETCODEPAGE, 0, 0)

+  else

+  begin

+    Result := DBReadWord(hContact, Proto, 'AnsiCodePage', $FFFF);

+    If Result = $FFFF then

+      Result := DBReadWord(0, Proto, 'AnsiCodePage', CP_ACP);

+  end;

+  UsedDefault := (Result = CP_ACP);

+  if UsedDefault then

+    Result := GetACP();

+end;

+

+function GetContactCodePage(hContact: TMCONTACT; const Proto: pAnsiChar = nil): Cardinal;

+var

+  def: boolean;

+begin

+  Result := GetContactCodePage(hContact, Proto, def);

+end;

+

+function WriteContactCodePage(hContact: TMCONTACT; CodePage: Cardinal; Proto: pAnsiChar = nil): boolean;

+begin

+  Result := false;

+  if Proto = nil then

+    Proto := GetContactProto(hContact);

+  if Proto = nil then

+    exit;

+  DBWriteWord(hContact, Proto, 'AnsiCodePage', CodePage);

+  Result := True;

+end;

+

+function GetContactStatus(hContact:TMCONTACT):integer;

+var

+  szProto:PAnsiChar;

+begin

+  szProto:=GetContactProto(hContact);

+  if szProto=nil then

+    result:=ID_STATUS_OFFLINE

+  else

+    result:=DBReadWord(hContact,szProto,'Status',ID_STATUS_OFFLINE);

+end;

+

+//----- Contact type check -----

+

+function IsChat(hContact:TMCONTACT):bool;

+begin

+  result:=DBReadByte(hContact,GetContactProto(hContact),'ChatRoom',0)=1;

+end;

+

+function IsMirandaUser(hContact:TMCONTACT):integer; // >0=Miranda; 0=Not miranda; -1=unknown

+var

+  sz:PAnsiChar;

+begin

+  sz:=DBReadString(hContact,GetContactProto(hContact),'MirVer');

+  if sz<>nil then

+  begin

+    result:=int_ptr(StrPos(sz,'Miranda'));

+    mFreeMem(sz);

+  end

+  else

+    result:=-1;

+end;

+

+function IsContactActive(hContact:TMCONTACT;proto:pAnsiChar=nil):integer;

+var

+  p:PPROTOACCOUNT;

+  name: array [0..31] of AnsiChar;

+begin

+

+  if db_get_static(hContact,'Protocol','p',@name,SizeOf(name))=0 then

+  begin

+    result:=0;

+

+    if ServiceExists(MS_PROTO_GETACCOUNT)<>0 then

+    begin

+      p:=PPROTOACCOUNT(CallService(MS_PROTO_GETACCOUNT,0,lparam(@name)));

+      if p=nil then

+        result:=-2 // deleted

+      else if (not p^.bIsEnabled) or p^.bDynDisabled then

+        result:=-1; // disabled

+    end

+    else

+    begin

+      if CallService(MS_PROTO_ISPROTOCOLLOADED,0,lparam(@name))=0 then

+        result:=-1;

+    end;

+

+    if (result=0) and (DBReadByte(hContact,strCList,'Hidden',0)=0) then

+    begin

+      result:=255;

+      if db_mc_getMeta(hContact)<>0 then

+        result:=2;

+      if StrCmp(GetContactProto(hContact),META_PROTO)=0 then

+        result:=1;

+    end;

+    if proto<>nil then

+      StrCopy(proto,@name);

+  end

+  else

+  begin

+    result:=-2;

+    if proto<>nil then

+      proto^:=#0;

+  end;

+end;

+

+//----- Save / Load contact -----

+

+const

+  opt_cproto = 'cproto';

+  opt_cuid   = 'cuid';

+  opt_ischat = 'ischat';

+

+function FindContactHandle(proto:pAnsiChar;const dbv:TDBVARIANT;is_chat:boolean=false):TMCONTACT;

+var

+  uid:pAnsiChar;

+  ldbv:TDBVARIANT;

+  hContact:TMCONTACT;

+  pw:pWideChar;

+begin

+  result:=0;

+  uid:=nil;

+  if not is_chat then

+  begin

+    uid:=pAnsiChar(CallProtoService(proto,PS_GETCAPS,PFLAG_UNIQUEIDSETTING,0));

+    if uid=pAnsiChar(CALLSERVICE_NOTFOUND) then exit;

+  end;

+

+  hContact:=db_find_first();

+  while hContact<>0 do

+  begin

+    if is_chat then

+    begin

+      if IsChat(hContact) then

+      begin

+        pw:=DBReadUnicode(hContact,proto,'ChatRoomID');

+        if StrCmpW(pw,dbv.szVal.W)=0 then result:=hContact;

+        mFreeMem(pw);

+      end

+    end

+    else

+    begin

+      if DBReadSetting(hContact,proto,uid,@ldbv)=0 then

+      begin

+        if dbv._type=ldbv._type then

+        begin

+          case dbv._type of

+//            DBVT_DELETED: ;

+            DBVT_BYTE   : if dbv.bVal=ldbv.bVal then result:=hContact;

+            DBVT_WORD   : if dbv.wVal=ldbv.wVal then result:=hContact;

+            DBVT_DWORD  : if dbv.dVal=ldbv.dVal then result:=hContact;

+            DBVT_UTF8,

+            DBVT_ASCIIZ : if StrCmp (dbv.szVal.A,ldbv.szVal.A)=0 then result:=hContact;

+            DBVT_WCHAR  : if StrCmpW(dbv.szVal.W,ldbv.szVal.W)=0 then result:=hContact;

+            DBVT_BLOB   : begin

+              if dbv.cpbVal = ldbv.cpbVal then

+              begin

+                if CompareMem(dbv.pbVal,ldbv.pbVal,dbv.cpbVal) then

+                  result:=hContact;

+              end;

+            end;

+          end;

+        end;

+        DBFreeVariant(@ldbv);

+      end;

+    end;

+    // added 2011.04.20

+    if result<>0 then break;

+    hContact:=db_find_next(hContact);

+  end;

+end;

+

+function LoadContact(group,setting:PAnsiChar):TMCONTACT;

+var

+  p,proto:pAnsiChar;

+  section:array [0..63] of AnsiChar;

+  dbv:TDBVARIANT;

+  is_chat:boolean;

+begin

+  p:=StrCopyE(section,setting);

+  StrCopy(p,opt_cproto); proto  :=DBReadString(0,group,section);

+  StrCopy(p,opt_ischat); is_chat:=DBReadByte  (0,group,section,0)<>0;

+  StrCopy(p,opt_cuid  );

+  if is_chat then

+    dbv.szVal.W:=DBReadUnicode(0,group,section,@dbv)

+  else

+    DBReadSetting(0,group,section,@dbv);

+

+  result:=FindContactHandle(proto,dbv,is_chat);

+

+  mFreeMem(proto);

+  if not is_chat then

+    DBFreeVariant(@dbv)

+  else

+    mFreeMem(dbv.szVal.W);

+end;

+

+function SaveContact(hContact:TMCONTACT;group,setting:PAnsiChar):integer;

+var

+  p,proto,uid:pAnsiChar;

+  cws:TDBVARIANT;

+  section:array [0..63] of AnsiChar;

+  pw:pWideChar;

+  is_chat:boolean;

+begin

+  result:=0;

+  proto:=GetContactProtoAcc(hContact);

+  if proto<>nil then

+  begin

+    p:=StrCopyE(section,setting);

+    is_chat:=IsChat(hContact);

+    if is_chat then

+    begin

+      pw:=DBReadUnicode(hContact,proto,'ChatRoomID');

+      StrCopy(p,opt_cuid); DBWriteUnicode(0,group,section,pw);

+      mFreeMem(pw);

+      result:=1;

+    end

+    else

+    begin

+      uid:=pAnsiChar(CallProtoService(proto,PS_GETCAPS,PFLAG_UNIQUEIDSETTING,0));

+      if uid<>pAnsiChar(CALLSERVICE_NOTFOUND) then

+      begin

+        if DBReadSetting(hContact,proto,uid,@cws)=0 then

+        begin

+          StrCopy(p,opt_cuid); DBWriteSetting(0,group,section,@cws);

+          DBFreeVariant(@cws);

+          result:=1;

+        end;

+      end;

+    end;

+    if result<>0 then

+    begin

+      StrCopy(p,opt_cproto); DBWriteString(0,group,section,proto);

+      StrCopy(p,opt_ischat); DBWriteByte  (0,group,section,ord(is_chat));

+    end;

+  end;

+end;

+

+//----- Another functions -----

+

+function SetCListSelContact(hContact:TMCONTACT):TMCONTACT;

+var

+  wnd:HWND;

+begin

+  wnd:=CallService(MS_CLUI_GETHWNDTREE,0,0);

+  result:=hContact;

+//  hContact:=SendMessage(wnd,CLM_FINDCONTACT  ,hContact,0);

+  SendMessage(wnd,CLM_SELECTITEM   ,hContact,0);

+//  SendMessage(wnd,CLM_ENSUREVISIBLE,hContact,0);

+end;

+

+function GetCListSelContact:TMCONTACT;

+begin

+  result:=SendMessageW(CallService(MS_CLUI_GETHWNDTREE,0,0),CLM_GETSELECTION,0,0);

+end;

+

+function WndToContact(wnd:HWND):TMCONTACT;

+var

+  hContact:TMCONTACT;

+  mwid:TMessageWindowInputData;

+  mwod:TMessageWindowOutputData;

+begin

+  wnd:=GetParent(wnd); //!!

+  hContact:=db_find_first();

+  with mwid do

+  begin

+    cbSize:=SizeOf(mwid);

+    uFlags:=MSG_WINDOW_UFLAG_MSG_BOTH;

+  end;

+  mwod.cbSize:=SizeOf(mwod);

+  while hContact<>0 do

+  begin

+    mwid.hContact:=hContact;

+    if CallService(MS_MSG_GETWINDOWDATA,wparam(@mwid),lparam(@mwod))=0 then

+    begin

+      if {((mwod.uState and MSG_WINDOW_STATE_FOCUS)<>0) and} (mwod.hwndWindow=wnd) then

+      begin

+        result:=mwid.hContact;

+        exit;

+      end

+    end;

+    hContact:=db_find_next(hContact);

+  end;

+  result:=0;

+end;

+

+function WndToContact:TMCONTACT; overload;

+var

+  wnd:HWND;

+begin

+  wnd:=GetFocus;

+  if wnd=0 then

+    wnd:=WaitFocusedWndChild(GetForegroundWindow);

+  if wnd<>0 then

+    result:=WndToContact(wnd)

+  else

+    result:=0;

+  if result=0 then

+    result:=GetCListSelContact;

+end;

+

+procedure ShowContactDialog(hContact:TMCONTACT;DblClk:boolean=true;anystatus:boolean=true);

+var

+  pc:array [0..127] of AnsiChar;

+begin

+{

+CallService(MS_CLIST_CONTACTDOUBLECLICKED,hContact,0);

+}

+  if (hContact<>0) and (CallService(MS_DB_CONTACT_IS,hContact,0)<>0) then

+  begin

+    if StrCopy(pc,GetContactProto(hContact))<>nil then

+      if DblClk or (DBReadByte(hContact,pc,'ChatRoom',0)=1) then // chat room

+      begin

+        if not anystatus then

+        begin

+          StrCat(pc,PS_GETSTATUS);

+          anystatus:=(CallService(pc,0,0)<>ID_STATUS_OFFLINE);

+        end;

+        if anystatus then

+        begin

+          CallService(MS_CLIST_CONTACTDOUBLECLICKED,hContact,0); //??

+        // if chat exist, open chat

+        // else create new session

+        end;

+      end

+      else

+      begin

+        if ServiceExists(MS_MSG_CONVERS)<>0 then // Convers compat.

+          CallService(MS_MSG_CONVERS,hContact,0)

+        else

+          CallService(MS_MSG_SENDMESSAGE,hContact,0)

+      end;

+  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    :=GetCurrentTime;

+

+  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

+  defformat = '%name% - %uid% (%account%:%group%)';

+

+procedure FillContactList(list:HWND; filter:boolean=true;format:pWideChar=nil);

+var

+  hContact:TMCONTACT;

+  buf:array [0..511] of WideChar;

+  buf1:array [0..63] of WideChar;

+  p:PWideChar;

+  uid:pAnsiChar;

+  ldbv:TDBVARIANT;

+  acc:pAnsiChar;

+  lName,

+  lGroup,

+  lAccount,

+  lUID:boolean;

+begin

+  if format=nil then format:=defformat;

+

+  SendMessage(list,CB_RESETCONTENT,0,0);

+  hContact:=db_find_first();

+

+  lName   :=StrPosW(format,'%name%')<>nil;

+  lGroup  :=StrPosW(format,'%group%')<>nil;

+  lAccount:=StrPosW(format,'%account%')<>nil;

+  lUID    :=StrPosW(format,'%uid%')<>nil;

+

+  while hContact<>0 do

+  begin

+    if ((not filter) and ((IsContactActive(hContact)+1)>=0)) or // + disabled (not deleted)

+            (filter  and  (IsContactActive(hContact)   >=0)) then

+    begin

+      StrCopyW(buf,format);

+      if lName then

+        StrReplaceW(buf,'%name%',

+          PWideChar(CallService(MS_CLIST_GETCONTACTDISPLAYNAME,hContact,GCDNF_UNICODE)));

+

+      if lGroup then

+      begin

+        p:=DBReadUnicode(hContact,strCList,'Group',nil);

+        StrReplaceW(buf,'%group%',p);

+        mFreeMem(p);

+      end;

+

+      if lAccount then

+      begin

+        acc:=GetContactProtoAcc(hContact);

+        StrReplaceW(buf,'%account%',FastAnsiToWideBuf(acc,buf1));

+      end

+      else

+        acc:=nil;

+

+      if lUID then

+      begin

+        if acc=nil then

+          acc:=GetContactProtoAcc(hContact);

+        if IsChat(hContact) then

+        begin

+          p:=DBReadUnicode(hContact,acc,'ChatRoomID');

+          StrReplaceW(buf,'%uid%',p);

+          mFreeMem(p);

+        end

+        else

+        begin

+          uid:=pAnsiChar(CallProtoService(acc,PS_GETCAPS,PFLAG_UNIQUEIDSETTING,0));

+          if uid<>pAnsiChar(CALLSERVICE_NOTFOUND) then

+          begin

+            if DBReadSetting(hContact,acc,uid,@ldbv)=0 then

+            begin

+              case ldbv._type of

+                DBVT_DELETED: p:='[deleted]';

+                DBVT_BYTE   : p:=IntToStr(buf1,ldbv.bVal);

+                DBVT_WORD   : p:=IntToStr(buf1,ldbv.wVal);

+                DBVT_DWORD  : p:=IntToStr(buf1,ldbv.dVal);

+                DBVT_UTF8   : UTF8ToWide(ldbv.szVal.A,p);

+                DBVT_ASCIIZ : AnsiToWide(ldbv.szVal.A,p,CallService(MS_LANGPACK_GETCODEPAGE,0,0));

+                DBVT_WCHAR  : p:=ldbv.szVal.W;

+                DBVT_BLOB   : p:='blob';

+              end;

+              StrReplaceW(buf,'%uid%',p);

+              if ldbv._type in [DBVT_UTF8,DBVT_ASCIIZ] then

+                mFreeMem(p);

+              DBFreeVariant(@ldbv);

+            end;

+          end;

+          StrReplaceW(buf,'%uid%',nil);

+        end;

+      end;

+

+      SendMessage(list,CB_SETITEMDATA,

+          SendMessageW(list,CB_ADDSTRING,0,tlparam(@buf)),

+          hContact);

+    end;

+    hContact:=db_find_next(hContact);

+  end;

+end;

+

+function FindContact(list:HWND;contact:TMCONTACT):integer;

+var

+  j:integer;

+begin

+  result:=0;

+  j:=SendMessage(list,CB_GETCOUNT,0,0);

+  while j>0 do

+  begin

+    dec(j);

+    if TMCONTACT(SendMessage(list,CB_GETITEMDATA,j,0))=contact then

+    begin

+      result:=j;

+      break;

+    end;

+  end;

+end;

+

+

+end.