Miranda API sync with small compilation fixes

git-svn-id: http://svn.miranda-ng.org/main/trunk@8083 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

2 files changed, 7 insertions, 7 deletions

diff --git a/plugins/Watrack/proto/proto.pas b/plugins/Watrack/proto/proto.pas
index f1c6eff06b..9509c706e1 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:THANDLE;atype,flag:integer;data:pointer;size:integer;time:dword=0);

+procedure AddEvent(hContact:HCONTACT;atype,flag:integer;data:pointer;size:integer;time:dword=0);

 var

   dbeo:TDBEVENTINFO;

 begin

@@ -206,7 +206,7 @@ begin
 end;

 *)

 

-function ReceiveMessageProcW(wParam:WPARAM; lParam:LPARAM):integer; cdecl;

+function ReceiveMessageProcW(wParam:WPARAM; lParam:LPARAM):int_ptr; cdecl;

 const

   bufsize = 4096*SizeOf(WideChar);

 var

@@ -390,7 +390,7 @@ begin
   mFreeMem(buf);

 end;

 

-function SendRequest(hContact:WPARAM;lParam:LPARAM):integer; cdecl;

+function SendRequest(hContact:WPARAM;lParam:LPARAM):int_ptr; cdecl;

 var

   buf:array [0..2047] of AnsiChar;

 begin

@@ -404,7 +404,7 @@ end;
 

 procedure RegisterContacts;

 var

-  hContact:integer;

+  hContact:THCONTACT;

 begin

   hContact:=db_find_first();

   while hContact<>0 do

@@ -415,7 +415,7 @@ begin
   end;

 end;

 

-function HookAddUser(hContact:WPARAM;lParam:LPARAM):integer; cdecl;

+function HookAddUser(hContact:WPARAM;lParam:LPARAM):int; cdecl;

 begin

   result:=0;

   if not IsChat(hContact) then

diff --git a/plugins/Watrack/watrack.dpr b/plugins/Watrack/watrack.dpr
index 0664dfa8f2..ca63bb7fa8 100644
--- a/plugins/Watrack/watrack.dpr
+++ b/plugins/Watrack/watrack.dpr
@@ -113,7 +113,7 @@ begin
   result:=int_ptr(ReturnInfo(wParam,lParam));

 end;

 

-function WATGetFileInfo(wParam:WPARAM;lParam:LPARAM):int;cdecl;

+function WATGetFileInfo(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;

 var

 //  si:TSongInfo;

   dst:pSongInfo;

@@ -163,7 +163,7 @@ begin
   end;

 end;

 

-function WATGetMusicInfo(wParam:WPARAM;lParam:LPARAM):int;cdecl;

+function WATGetMusicInfo(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;

 type

   ppointer = ^pointer;

 const