1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
{Contact list in combo}
unit contact;
interface
uses windows;
procedure FillContactList(list:hwnd; filter:boolean=true;format:pWideChar=nil);
function FindContact(list:hwnd;contact:THANDLE):integer;
implementation
uses messages, common, m_api, dbsettings, mirutils;
const
defformat = '%name% - %uid% (%account%:%group%)';
procedure FillContactList(list:hwnd; filter:boolean=true;format:pWideChar=nil);
var
hContact:THANDLE;
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:=CallService(MS_DB_CONTACT_FINDFIRST,0,0);
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,MirandaCP);
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:=CallService(MS_DB_CONTACT_FINDNEXT,hContact,0);
end;
end;
function FindContact(list:hwnd;contact:THANDLE):integer;
var
j:integer;
begin
result:=0;
j:=SendMessage(list,CB_GETCOUNT,0,0);
while j>0 do
begin
dec(j);
if THANDLE(SendMessage(list,CB_GETITEMDATA,j,0))=contact then
begin
result:=j;
break;
end;
end;
end;
end.
|
