Pascal-style type correction

Letter case correction
small fixes
Actman UA part dialog slightly changed

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

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);