feat: Persistence of window size/sate saved

- JSON Prop Storage with Top, Left, Width, Height and WindowState
- Need to enquire about both PairSplitter.Pos

Closes: #8

src/application/ljv.application.version.pas

@@ -5,11 +5,11 @@
 interface
 
 const
-  cVersion = '0.1.4.26';
+  cVersion = '0.1.5.27';
   cVersionMajor = 0;
   cVersionMinor = 1;
-  cVersionRevision = 4;
-  cVersionBuild = 26;
+  cVersionRevision = 5;
+  cVersionBuild = 27;
 
 implementation
 

src/forms/ljv.forms.main.lfm

@@ -8,6 +8,7 @@ object frmMain: TfrmMain
   ClientWidth = 1017
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  SessionProperties = 'Top;Left;Height;Width;WindowState'
   object psMain: TPairSplitter
     Cursor = crDefault
     Left = 224
@@ -118,4 +119,11 @@ object frmMain: TfrmMain
     Top = 0
     Width = 5
   end
+  object JSONPropStorage: TJSONPropStorage
+    StoredValues = <>
+    Formatted = False
+    Active = False
+    Left = 768
+    Top = 400
+  end
 end

src/forms/ljv.forms.main.pas

@@ -35,7 +35,7 @@ interface
 , Dialogs
 , ExtCtrls
 , StdCtrls
-, PairSplitter
+, PairSplitter, JSONPropStorage
 , fpjson
 , VirtualTrees
 ;
@@ -45,6 +45,7 @@ interface
   { TfrmMain }
 
   TfrmMain = class(TForm)
+    JSONPropStorage: TJSONPropStorage;
     lblCount: TLabel;
     lblName: TLabel;
     lblType: TLabel;
@@ -70,6 +71,9 @@   TfrmMain = class(TForm)
 
     function FormatBytes(ABytes: Int64): String;
 
+    procedure SetupPropStorage;
+    procedure ShutdownPropStorage;
+
     procedure ClearLabels;
     procedure CorrectPSCursor;
     procedure ProcessParams;
@@ -150,6 +154,7 @@ implementation
 
 procedure TfrmMain.FormCreate(Sender: TObject);
 begin
+  SetupPropStorage;
   Caption:= Format(rsFormCaption, [cVersion]);
   ClearLabels;
   CorrectPSCursor;
@@ -171,6 +176,7 @@ procedure TfrmMain.FormDestroy(Sender: TObject);
   begin
     FJSON.Free;
   end;
+  ShutdownPropStorage;
 end;
 
 procedure TfrmMain.lbFilesSelectionChange(Sender: TObject; User: boolean);
@@ -493,6 +499,18 @@ function TfrmMain.FormatBytes(ABytes: Int64): String;
   end;
 end;
 
+procedure TfrmMain.SetupPropStorage;
+begin
+  JSONPropStorage.JSONFileName:= GetAppConfigFile(False);
+  JSONPropStorage.RootObjectPath:= 'Application';
+  JSONPropStorage.Active:= True;
+end;
+
+procedure TfrmMain.ShutdownPropStorage;
+begin
+  JSONPropStorage.Active:= False;
+end;
+
 procedure TfrmMain.CorrectPSCursor;
 begin
   psMain.Cursor:= crHSplit;

src/lazJSONViewer.lpi

@@ -23,8 +23,8 @@
     <VersionInfo>
       <UseVersionInfo Value="True"/>
       <MinorVersionNr Value="1"/>
-      <RevisionNr Value="4"/>
-      <BuildNr Value="26"/>
+      <RevisionNr Value="5"/>
+      <BuildNr Value="27"/>
       <Language Value="0809"/>
     </VersionInfo>
     <BuildModes Count="4">