partial code beautifier (through Pascal Analizer)

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

1 files changed, 6 insertions, 7 deletions

diff --git a/plugins/HistoryPlusPlus/hpp_contacts.pas b/plugins/HistoryPlusPlus/hpp_contacts.pas
index 32d938224e..6b40943ae1 100644
--- a/plugins/HistoryPlusPlus/hpp_contacts.pas
+++ b/plugins/HistoryPlusPlus/hpp_contacts.pas
@@ -48,15 +48,14 @@ interface
 uses

   Windows, SysUtils,

   Forms,

-  hpp_global,

-  hpp_database;

+  hpp_global;

 

 function GetContactDisplayName(hContact: THandle; Proto: AnsiString = ''; Contact: boolean = false): String;

 function GetContactProto(hContact: THandle): AnsiString; overload;

 function GetContactProto(hContact: THandle; var SubContact: THandle; var SubProtocol: AnsiString): AnsiString; overload;

 function GetContactID(hContact: THandle; Proto: AnsiString = ''; Contact: boolean = false): AnsiString;

-function GetContactCodePage(hContact: THandle; Proto: AnsiString = ''): Cardinal; overload;

-function GetContactCodePage(hContact: THandle; Proto: AnsiString; var UsedDefault: boolean): Cardinal; overload;

+function GetContactCodePage(hContact: THandle; const Proto: AnsiString = ''): Cardinal; overload;

+function GetContactCodePage(hContact: THandle; const Proto: AnsiString; var UsedDefault: boolean): Cardinal; overload;

 function WriteContactCodePage(hContact: THandle; CodePage: Cardinal; Proto: AnsiString = ''): boolean;

 function GetContactRTLMode(hContact: THandle; Proto: AnsiString = ''): boolean;

 function GetContactRTLModeTRTL(hContact: THandle; Proto: AnsiString = ''): TRTLMode;

@@ -64,7 +63,7 @@ function WriteContactRTLMode(hContact: THandle; RTLMode: TRTLMode; Proto: AnsiSt
 

 implementation

 

-uses hpp_options, m_api;

+uses hpp_database, hpp_options, m_api;

 

 function GetContactProto(hContact: THandle): AnsiString;

 begin

@@ -195,14 +194,14 @@ begin
   end;

 end;

 

-function GetContactCodePage(hContact: THandle; Proto: AnsiString = ''): Cardinal;

+function GetContactCodePage(hContact: THandle; const Proto: AnsiString = ''): Cardinal;

 var

   def: boolean;

 begin

   Result := _GetContactCodePage(hContact, Proto, def);

 end;

 

-function GetContactCodePage(hContact: THandle; Proto: AnsiString; var UsedDefault: boolean): Cardinal; overload;

+function GetContactCodePage(hContact: THandle; const Proto: AnsiString; var UsedDefault: boolean): Cardinal; overload;

 begin

   Result := _GetContactCodePage(hContact, Proto, UsedDefault);

 end;