diff options
| author | George Hazan <ghazan@miranda.im> | 2021-02-20 12:24:24 +0300 |
|---|---|---|
| committer | George Hazan <ghazan@miranda.im> | 2021-02-20 12:24:24 +0300 |
| commit | 0902cdc3a5413dae6146e4079ec6f76efd96f14f (patch) | |
| tree | bec5525b2b39c195d3b710104bd134ab109b1d20 /plugins/Utils.pas | |
| parent | 6eae86b1637f5f2c4601250aa731d6cef0b72260 (diff) | |
unused pascal code cleaned
Diffstat (limited to 'plugins/Utils.pas')
| -rw-r--r-- | plugins/Utils.pas/mircontacts.pas | 131 |
1 files changed, 0 insertions, 131 deletions
diff --git a/plugins/Utils.pas/mircontacts.pas b/plugins/Utils.pas/mircontacts.pas index a88a972b70..93e0b0b057 100644 --- a/plugins/Utils.pas/mircontacts.pas +++ b/plugins/Utils.pas/mircontacts.pas @@ -9,14 +9,6 @@ uses //----- Contact info -----
-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 -----
@@ -59,129 +51,6 @@ uses //----- Contact info -----
-function GetContactProto(hContact: TMCONTACT; var SubContact: TMCONTACT; var SubProtocol: PAnsiChar): PAnsiChar;
-begin
- Result := Proto_GetBaseAccountName(hContact);
- if StrCmp(Result, META_PROTO)=0 then
- begin
- SubContact := db_mc_getMostOnline(hContact);
- SubProtocol := Proto_GetBaseAccountName(SubContact);
- end
- else
- begin
- SubContact := hContact;
- SubProtocol := Result;
- end;
-end;
-
-function GetContactDisplayName(hContact: TMCONTACT; Proto: PAnsiChar = nil; Contact: boolean = false): PWideChar;
-var
- pName, pUnk:PWideChar;
-begin
- if (hContact = 0) and Contact then
- StrDupW(Result, TranslateW('Server'))
- else
- begin
- if Proto = nil then
- Proto := Proto_GetBaseAccountName(hContact);
- pUnk := TranslateW('''(Unknown Contact)''');
- if Proto = nil then
- StrDupW(Result, pUnk)
- else
- begin
- pName := Contact_GetInfo(CNF_DISPLAY, hContact, Proto);
- if pName <> nil then
- begin
- if StrCmpW(pName, pUnk)=0 then
- AnsiToWide(GetContactID(hContact, Proto), Result, CP_ACP)
- else
- StrDupW(Result, pName);
- mir_free(pName);
- end
- else
- AnsiToWide(GetContactID(hContact, Proto), Result);
-
- if (Result = nil) or (Result^ = #0) then
- AnsiToWide(Translate(Proto), Result, Langpack_GetDefaultCodePage);
- 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 := Proto_GetBaseAccountName(hContact);
- uid := Proto_GetUniqueId(Proto);
- if (uid <> nil) then
- begin
- // db_get_s comparing to DBGetContactSetting don't translate strings
- // when uType=0 (DBVT_ASIS)
- if db_get_s(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 := Langpack_GetDefaultCodePage;
- 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
- db_free(@dbv);
- end;
- end;
- end;
-end;
-
-function GetContactCodePage(hContact: TMCONTACT; Proto: PAnsiChar; var UsedDefault: boolean) : Cardinal;
-begin
- if Proto = nil then
- Proto := Proto_GetBaseAccountName(hContact);
- if Proto = nil then
- Result := Langpack_GetDefaultCodePage
- 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 := Proto_GetBaseAccountName(hContact);
- if Proto = nil then
- exit;
- DBWriteWord(hContact, Proto, 'AnsiCodePage', CodePage);
- Result := True;
-end;
-
function GetContactStatus(hContact:TMCONTACT):integer;
var
szProto:PAnsiChar;
|