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, 9 insertions, 8 deletions

diff --git a/plugins/HistoryPlusPlus/PassForm.pas b/plugins/HistoryPlusPlus/PassForm.pas
index 299a5a6959..9de9e6ef63 100644
--- a/plugins/HistoryPlusPlus/PassForm.pas
+++ b/plugins/HistoryPlusPlus/PassForm.pas
@@ -25,9 +25,8 @@ interface
 

 uses

   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

-  ComCtrls, Menus, Checksum, ExtCtrls, StdCtrls,

-  m_api,

-  hpp_global, hpp_contacts, hpp_database, hpp_forms;

+  ComCtrls, Menus, ExtCtrls, StdCtrls,

+  m_api;

 

 type

   TfmPass = class(TForm)

@@ -77,15 +76,17 @@ const
 function ReadPassModeFromDB: Byte;

 function GetPassMode: Byte;

 function GetPassword: AnsiString;

-function IsPasswordBlank(Password: AnsiString): Boolean;

+function IsPasswordBlank(const Password: AnsiString): Boolean;

 function IsUserProtected(hContact: THandle): Boolean;

-function CheckPassword(Pass: AnsiString): Boolean;

+function CheckPassword(const Pass: AnsiString): Boolean;

 

 procedure RunPassForm;

 

 implementation

 

-uses PassNewForm, hpp_options, hpp_services, PassCheckForm;

+uses

+  PassNewForm, hpp_options, hpp_services, PassCheckForm,

+  Checksum, hpp_global, hpp_contacts, hpp_database, hpp_forms;

 

 {$R *.DFM}

 

@@ -116,7 +117,7 @@ begin
   end;

 end;

 

-function CheckPassword(Pass: AnsiString): Boolean;

+function CheckPassword(const Pass: AnsiString): Boolean;

 begin

   Result := (DigToBase(HashString(Pass)) = GetPassword);

 end;

@@ -133,7 +134,7 @@ begin
   if IsPasswordBlank(GetPassword) then;

 end;

 

-function IsPasswordBlank(Password: AnsiString): Boolean;

+function IsPasswordBlank(const Password: AnsiString): Boolean;

 begin

   Result := (Password = DigToBase(HashString('')));

 end;