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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
{
Miranda IM: the free IM client for Microsoft Windows
Copyright © 2004 Universite Louis PASTEUR, STRASBOURG.
Copyright © 2004 Scott Ellis (www.scottellis.com.au mail@scottellis.com.au)
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
{$IFNDEF M_METACONTACTS}
{$DEFINE M_METACONTACTS}
const
// standard module for all mc-related information
META_PROTO = 'MetaContacts';
const
{ gets the handle for the 'most online' contact
wParam=(HANDLE)hMetaContact
lParam=0
returns a handle to the 'most online' contact }
MS_MC_GETMOSTONLINECONTACT = 'MetaContacts/GetMostOnline';
{ forces the metacontact to send using a specific subcontact, using the subcontact's contact number
wParam=(HANDLE)hMetaContact
lParam=(dword)contact number
returns 0 on success }
MS_MC_FORCESENDCONTACTNUM = 'MetaContacts/ForceSendContact';
{ forces the metacontact to send using a specific subcontact, using the subcontact's handle
wParam=(HANDLE)hMetaContact
lParam=(HANDLE)hSubcontact
returns 0 on success (will fail if 'force default' is in effect) }
MS_MC_FORCESENDCONTACT = 'MetaContacts/ForceSendContactByHandle';
{ 'unforces' the metacontact to send using a specific subcontact
wParam=(HANDLE)hMetaContact
lParam=0
returns 0 on success (will fail if 'force default' is in effect) }
MS_MC_UNFORCESENDCONTACT = 'MetaContacts/UnforceSendContact';
{ 'forces' or 'unforces' (i.e. toggles) the metacontact to send using it's default contact
overrides (and clears) 'force send' above, and will even force use of offline contacts
will send ME_MC_FORCESEND or ME_MC_UNFORCESEND event
wParam=(HANDLE)hMetaContact
lParam=0
returns 1(true) or 0(false) representing new state of 'force default' }
MS_MC_FORCEDEFAULT = 'MetaContacts/ForceSendDefault';
{ method to get state of 'force' for a metacontact
wParam=(HANDLE)hMetaContact
lParam= (dword)&contact_number or NULL
if lparam supplied, the contact_number of the contatct 'in force' will be copied to the address it points to,
or if none is in force, the value INVALID_CONTACT_ID will be copied
(v0.8.0.8+ returns 1 if 'force default' is true with *lParam == default contact number, else returns 0 with *lParam as above) }
MS_MC_GETFORCESTATE = 'MetaContacts/GetForceState';
{ fired when a metacontact's default contact changes (fired upon creation of metacontact also, when default is initially set)
wParam=(HANDLE)hMetaContact
lParam=(HANDLE)hDefaultContact }
ME_MC_DEFAULTTCHANGED = 'MetaContacts/DefaultChanged';
{ fired when a metacontact's subcontacts change (fired upon creation of
metacontact, when contacts are added or removed, and when contacts are
reordered) - a signal to re-read metacontact data
wParam=(HANDLE)hMetaContact
lParam=0 }
ME_MC_SUBCONTACTSCHANGED = 'MetaContacts/SubcontactsChanged';
{ fired when a metacontact is forced to send using a specific subcontact
wParam=(HANDLE)hMetaContact
lParam=(HANDLE)hForceContact }
ME_MC_FORCESEND = 'MetaContacts/ForceSend';
{ fired when a metacontact is 'unforced' to send using a specific subcontact
wParam=(HANDLE)hMetaContact
lParam=0 }
ME_MC_UNFORCESEND = 'MetaContacts/UnforceSend';
{ wParam=(HANDLE)hContact
lParam=0
convert a given contact into a metacontact
}
MS_MC_CONVERTTOMETA = 'MetaContacts/ConvertToMetacontact';
{ wParam=(HANDLE)hContact
lParam=(HANDLE)hMeta
add an existing contact to a metacontact
}
MS_MC_ADDTOMETA = 'MetaContacts/AddToMetacontact';
{ wParam=0
lParam=(HANDLE)hContact
remove a contact from a metacontact
}
MS_MC_REMOVEFROMMETA = 'MetaContacts/RemoveFromMetacontact';
/////////////////////////////////////////////////////////////////////////////////////////
// binary interface to MC
{ returns true if metacontacts are enabled or false otherwise }
function db_mc_isEnabled():bool; stdcall;
external CoreDLL name 'db_mc_isEnabled';
{ returns true if a contact is a metacontact or false otherwise }
procedure db_mc_enable(bEnabled:bool); stdcall;
external CoreDLL name 'db_mc_enable';
{ returns true if a contact is a metacontact or false otherwise }
function db_mc_isMeta(hContact:TMCONTACT):LongBool; stdcall;
external CoreDLL name 'db_mc_isMeta';
{ returns true if a contact is a subcontact or false otherwise }
function db_mc_isSub(hContact:TMCONTACT):LongBool; stdcall;
external CoreDLL name 'db_mc_isSub';
{ gets the handle for the default contact or 0 on error }
function db_mc_getDefault(hContact:TMCONTACT):TMCONTACT; stdcall;
external CoreDLL name 'db_mc_getDefault';
{ gets the contact number for the default contact or -1 on error }
function db_mc_getDefaultNum(hContact:TMCONTACT):int; stdcall;
external CoreDLL name 'db_mc_getDefaultNum';
{ returns a meta contact for a subcontact or 0 otherwise }
function db_mc_getMeta(hContact:TMCONTACT):TMCONTACT; stdcall;
external CoreDLL name 'db_mc_getMeta';
{ returns a subcontact with the given index or 0 }
function db_mc_getSub(hContact:TMCONTACT; idx:int):TMCONTACT; stdcall;
external CoreDLL name 'db_mc_getSub';
{ gets the number of subcontacts for a metacontact or -1 on error }
function db_mc_getSubCount(hContact:TMCONTACT):int; stdcall;
external CoreDLL name 'db_mc_getSubCount';
{ sets the default contact, using the subcontact's handle }
function db_mc_setDefault(hContact,hSub:TMCONTACT):int; stdcall;
external CoreDLL name 'db_mc_setDefault';
{ sets the default contact, using the subcontact's number }
function db_mc_setDefaultNum(hContact:TMCONTACT; idx:int):int; stdcall;
external CoreDLL name 'db_mc_setDefaultNum';
{$ENDIF}
|
