From a79fa86ed589c3d843baa932230ef08bc7468296 Mon Sep 17 00:00:00 2001 From: Alexey Kulakov Date: Fri, 13 Jul 2012 12:05:09 +0000 Subject: partial code beautifier (through Pascal Analizer) git-svn-id: http://svn.miranda-ng.org/main/trunk@947 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/HistoryPlusPlus/hpp_contacts.pas | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'plugins/HistoryPlusPlus/hpp_contacts.pas') 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; -- cgit v1.2.3