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

1 files changed, 6 insertions, 6 deletions

diff --git a/plugins/Utils.pas/contact.pas b/plugins/Utils.pas/contact.pas
index 3d0289cb34..128d4fa6a7 100644
--- a/plugins/Utils.pas/contact.pas
+++ b/plugins/Utils.pas/contact.pas
@@ -5,8 +5,8 @@ interface
 

 uses windows, m_api;

 

-procedure FillContactList(list:hwnd; filter:boolean=true;format:pWideChar=nil);

-function FindContact(list:hwnd;contact:MCONTACT):integer;

+procedure FillContactList(list:HWND; filter:boolean=true;format:pWideChar=nil);

+function FindContact(list:HWND;contact:TMCONTACT):integer;

 

 implementation

 

@@ -15,9 +15,9 @@ uses messages, common, dbsettings, mirutils;
 const

   defformat = '%name% - %uid% (%account%:%group%)';

 

-procedure FillContactList(list:hwnd; filter:boolean=true;format:pWideChar=nil);

+procedure FillContactList(list:HWND; filter:boolean=true;format:pWideChar=nil);

 var

-  hContact:MCONTACT;

+  hContact:TMCONTACT;

   buf:array [0..511] of WideChar;

   buf1:array [0..63] of WideChar;

   p:PWideChar;

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

 end;

 

-function FindContact(list:hwnd;contact:MCONTACT):integer;

+function FindContact(list:HWND;contact:TMCONTACT):integer;

 var

   j:integer;

 begin

@@ -118,7 +118,7 @@ begin
   while j>0 do

   begin

     dec(j);

-    if THANDLE(SendMessage(list,CB_GETITEMDATA,j,0))=contact then

+    if TMCONTACT(SendMessage(list,CB_GETITEMDATA,j,0))=contact then

     begin

       result:=j;

       break;