2 files changed, 10 insertions, 6 deletions
diff --git a/plugins/Watrack/proto/i_proto_dlg.inc b/plugins/Watrack/proto/i_proto_dlg.inc
index ebfd6d31c9..5d3b6e2bb4 100644
--- a/plugins/Watrack/proto/i_proto_dlg.inc
+++ b/plugins/Watrack/proto/i_proto_dlg.inc
@@ -2,7 +2,8 @@
 
 procedure SetAllContactStat(hwndList:HWND);
 var
-  hContact,hItem:THANDLE;
+  hContact:TMCONTACT;
+  hItem:THANDLE;
 begin
   hContact:=db_find_first();
   while hContact<>0 do
@@ -19,7 +20,8 @@ end;
 
 procedure SaveAllContactStat(hwndList:HWND);
 var
-  hContact,hItem:THANDLE;
+  hContact:TMCONTACT;
+  hItem:THANDLE;
 begin
   hContact:=db_find_first();
   while hContact<>0 do
@@ -75,7 +77,7 @@ begin
   if IsDlgButtonChecked(Dlg,IDC_ISEND      )<>BST_UNCHECKED then HistMask:=HistMask or hmISend;
 end;
 
-function DlgProcOptions(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;
+function DlgProcOptions(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;
 const
   Changed:integer=0;
 //  hItemAll:THANDLE=0;
diff --git a/plugins/Watrack/proto/proto.pas b/plugins/Watrack/proto/proto.pas
index b26c6dba04..d2b2d8b4d4 100644
--- a/plugins/Watrack/proto/proto.pas
+++ b/plugins/Watrack/proto/proto.pas
@@ -57,7 +57,7 @@ var
 {$include i_proto_opt.inc}
 {$include i_proto_dlg.inc}
 
-procedure AddEvent(hContact:MCONTACT;atype,flag:integer;data:pointer;size:integer;time:dword=0);
+procedure AddEvent(hContact:TMCONTACT;atype,flag:integer;data:pointer;size:integer;time:dword=0);
 var
   dbeo:TDBEVENTINFO;
 begin
@@ -404,7 +404,7 @@ end;
 
 procedure RegisterContacts;
 var
-  hContact:MCONTACT;
+  hContact:TMCONTACT;
 begin
   hContact:=db_find_first();
   while hContact<>0 do
@@ -445,6 +445,8 @@ begin
   desc._type :=PROTOTYPE_TRANSLATION;
 
   CallService(MS_PROTO_REGISTERMODULE,0,lparam(@desc));
+//  CreateProtoServiceFunction(PluginShort,PSS_MESSAGE ,@SendMessageProcW);
+//  CreateProtoServiceFunction(PluginShort,PSS_MESSAGEW,@SendMessageProcW);
   hSRM:=CreateProtoServiceFunction(PluginShort,PSR_MESSAGE ,@ReceiveMessageProcW);
 //  CreateProtoServiceFunction(PluginShort,PSR_MESSAGEW,@ReceiveMessageProcW);
 end;
@@ -500,7 +502,6 @@ begin
   result:=1;
 
   ReadOptions;
-
   RegisterIcons;
 
   FillChar(mi, sizeof(mi), 0);
@@ -524,6 +525,7 @@ procedure DeInitProc(aSetDisable:boolean);
 begin
   if aSetDisable then
     SetModStatus(0);
+
   UnhookEvent(hAddUserHook);
   UnhookEvent(contexthook);
   UnhookEvent(icchangedhook);