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_forms.pas | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'plugins/HistoryPlusPlus/hpp_forms.pas') 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; -- cgit v1.2.3