diff --git a/src/application/ljv.application.version.pas b/src/application/ljv.application.version.pas index b75cd7d..8bc5bac 100644 --- a/src/application/ljv.application.version.pas +++ b/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 diff --git a/src/forms/ljv.forms.main.lfm b/src/forms/ljv.forms.main.lfm index 5282627..d4ff68e 100644 --- a/src/forms/ljv.forms.main.lfm +++ b/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 diff --git a/src/forms/ljv.forms.main.pas b/src/forms/ljv.forms.main.pas index 0c64afb..4c0b2d4 100644 --- a/src/forms/ljv.forms.main.pas +++ b/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; diff --git a/src/lazJSONViewer.lpi b/src/lazJSONViewer.lpi index 822a577..fc4ad9d 100644 --- a/src/lazJSONViewer.lpi +++ b/src/lazJSONViewer.lpi @@ -23,8 +23,8 @@ - - + + diff --git a/src/lazJSONViewer.res b/src/lazJSONViewer.res index d85f244..f647638 100644 Binary files a/src/lazJSONViewer.res and b/src/lazJSONViewer.res differ