summaryrefslogtreecommitdiff
path: root/plugins/Utils.pas/mircontacts.pas
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/Utils.pas/mircontacts.pas')
-rw-r--r--plugins/Utils.pas/mircontacts.pas7
1 files changed, 2 insertions, 5 deletions
diff --git a/plugins/Utils.pas/mircontacts.pas b/plugins/Utils.pas/mircontacts.pas
index 293b954174..92dc6074e0 100644
--- a/plugins/Utils.pas/mircontacts.pas
+++ b/plugins/Utils.pas/mircontacts.pas
@@ -409,21 +409,18 @@ end;
function WndToContact(wnd:HWND):TMCONTACT;
var
hContact:TMCONTACT;
- mwid:TMessageWindowInputData;
mwod:TMessageWindowOutputData;
begin
wnd:=GetParent(wnd); //!!
hContact:=db_find_first();
- mwid.uFlags:=MSG_WINDOW_UFLAG_MSG_BOTH;
while hContact<>0 do
begin
- mwid.hContact:=hContact;
- if CallService(MS_MSG_GETWINDOWDATA,wparam(@mwid),lparam(@mwod))=0 then
+ if CallService(MS_MSG_GETWINDOWDATA,hContact,lparam(@mwod))=0 then
begin
if mwod.hwndWindow=wnd then
begin
- result:=mwid.hContact;
+ result:=hContact;
exit;
end
end;