ADD: Save window size and state for "File association" and "Multi rename" dialogs

ffileassoc.lfm

@@ -9,6 +9,7 @@ object frmFileAssoc: TfrmFileAssoc
   ClientWidth = 554
   OnCreate = FormCreate
   Position = poScreenCenter
+  SessionProperties = 'Height;Width;WindowState'
   LCLVersion = '0.9.27'
   object gbFileTypes: TGroupBox
     AnchorSideLeft.Control = Owner

ffileassoc.pas

@@ -151,6 +151,10 @@ begin
   if iCount > 0 then
     lbFileTypes.ItemIndex:= 0;
   UpdateEnabledButtons;
+  // Initialize property storage
+  InitPropStorage(Self);
+  // Resize window for screen size if need
+  ResizeToScreen(Self);
 end;
 
 procedure TfrmFileAssoc.UpdateEnabledButtons;

fmultirename.lfm

@@ -7,12 +7,12 @@ object frmMultiRename: TfrmMultiRename
   Caption = 'MultiRename'
   ClientHeight = 400
   ClientWidth = 740
-  OnCreate = FormCreate
   OnClose = FormClose
-  ParentFont = False
+  OnCreate = FormCreate
   Position = poScreenCenter
+  SessionProperties = 'Height;Width;WindowState'
   ShowInTaskBar = stAlways
-  LCLVersion = '0.9.26'
+  LCLVersion = '0.9.27'
   object gbMaska: TGroupBox
     AnchorSideLeft.Control = Owner
     AnchorSideRight.Side = asrBottom

fmultirename.pas

@@ -117,7 +117,7 @@ type
 implementation
 
 uses
-  LCLProc, uLng, uFileProcs, uDCUtils, uOSUtils;
+  LCLProc, uLng, uGlobs, uFileProcs, uDCUtils, uOSUtils;
 
 function ShowMultiRenameForm(Var lsInFiles: TStringList):Boolean;
 var
@@ -147,6 +147,10 @@ procedure TfrmMultiRename.FormCreate(Sender: TObject);
 begin
   // Localize File name style ComboBox
   ParseLineToList(rsMulRenFileNameStyleList, cmbxFont.Items);
+  // Initialize property storage
+  InitPropStorage(Self);
+  // Resize window for screen size if need
+  ResizeToScreen(Self);
 end;
 
 procedure TfrmMultiRename.FormClose(Sender: TObject; var CloseAction: TCloseAction);