pascal code: reformat, small fixes

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

1 files changed, 4 insertions, 4 deletions

diff --git a/plugins/Utils.pas/mircontacts.pas b/plugins/Utils.pas/mircontacts.pas
index a1465b32fb..ed570ead7f 100644
--- a/plugins/Utils.pas/mircontacts.pas
+++ b/plugins/Utils.pas/mircontacts.pas
@@ -50,7 +50,7 @@ procedure SendToChat(hContact:TMCONTACT;pszText:PWideChar);
 

 //----- List of contacts (combobox) -----

 

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

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

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

 

 

@@ -283,7 +283,7 @@ var
   uid:PAnsiChar;

   ldbv:TDBVARIANT;

   hContact:TMCONTACT;

-  pw:pWideChar;

+  pw:PWideChar;

 begin

   result:=0;

   uid:=nil;

@@ -367,7 +367,7 @@ var
   p,Proto,uid:PAnsiChar;

   cws:TDBVARIANT;

   section:array [0..63] of AnsiChar;

-  pw:pWideChar;

+  pw:PWideChar;

   is_chat:boolean;

 begin

   result:=0;

@@ -550,7 +550,7 @@ end;
 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:TMCONTACT;

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