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, 5 deletions

diff --git a/plugins/HistoryPlusPlus/hpp_forms.pas b/plugins/HistoryPlusPlus/hpp_forms.pas
index 12c23c879a..8d4803c984 100644
--- a/plugins/HistoryPlusPlus/hpp_forms.pas
+++ b/plugins/HistoryPlusPlus/hpp_forms.pas
@@ -51,12 +51,13 @@ procedure TranslateToolbar(const tb: TToolBar);
 function ShiftStateToKeyData(ShiftState :TShiftState):Longint;

 function IsFormShortCut(List: Array of TComponent; Key: Word; ShiftState: TShiftState): Boolean;

 

-function Utils_RestoreFormPosition(Form: TForm; hContact: THandle; Module,Prefix: AnsiString): Boolean;

-function Utils_SaveFormPosition(Form: TForm; hContact: THandle; Module,Prefix: AnsiString): Boolean;

+function Utils_RestoreFormPosition(Form: TForm; hContact: THandle; const Module,Prefix: AnsiString): Boolean;

+function Utils_SaveFormPosition(Form: TForm; hContact: THandle; const Module,Prefix: AnsiString): Boolean;

 

 implementation

 

-uses hpp_global, hpp_services, hpp_opt_dialog, hpp_database, hpp_mescatcher,

+uses

+  hpp_services, hpp_opt_dialog, hpp_database, hpp_mescatcher,

   HistoryForm, GlobalSearch, m_api,

   {$IFNDEF NO_EXTERNALGRID}hpp_external,{$ENDIF}

   CustomizeFiltersForm, CustomizeToolbar;

@@ -138,7 +139,7 @@ begin
   if ssAlt in ShiftState   then Result := Result or AltMask;

 end;

 

-function Utils_RestoreFormPosition(Form: TForm; hContact: THandle; Module,Prefix: AnsiString): Boolean;

+function Utils_RestoreFormPosition(Form: TForm; hContact: THandle; const Module,Prefix: AnsiString): Boolean;

 var

   w,h,l,t,mon: Integer;

   maximized: Boolean;

@@ -164,7 +165,7 @@ begin
   if maximized then Form.WindowState := wsMaximized;

 end;

 

-function Utils_SaveFormPosition(Form: TForm; hContact: THandle; Module,Prefix: AnsiString): Boolean;

+function Utils_SaveFormPosition(Form: TForm; hContact: THandle; const Module,Prefix: AnsiString): Boolean;

 var

   w,h,l,t: Integer;

   wp: TWindowPlacement;