diff --git a/applications/json_packager/jsonpackage.lpi b/applications/json_packager/jsonpackage.lpi
index 445447ed3..0e3ca3850 100644
--- a/applications/json_packager/jsonpackage.lpi
+++ b/applications/json_packager/jsonpackage.lpi
@@ -24,8 +24,7 @@
-
-
+
@@ -131,6 +130,11 @@
+
+
+
+
+
diff --git a/applications/json_packager/jsonpackage.lps b/applications/json_packager/jsonpackage.lps
index debf9743f..f00e5c88a 100644
--- a/applications/json_packager/jsonpackage.lps
+++ b/applications/json_packager/jsonpackage.lps
@@ -20,12 +20,12 @@
-
-
+
+
-
-
+
+
@@ -129,123 +129,123 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
diff --git a/applications/json_packager/jsonpackage.res b/applications/json_packager/jsonpackage.res
index 6d3d38a90..f3302118f 100644
Binary files a/applications/json_packager/jsonpackage.res and b/applications/json_packager/jsonpackage.res differ
diff --git a/applications/json_packager/umain.lfm b/applications/json_packager/umain.lfm
index 5ce32477f..1f825d599 100644
--- a/applications/json_packager/umain.lfm
+++ b/applications/json_packager/umain.lfm
@@ -13,6 +13,7 @@ object frmMain: TfrmMain
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
+ OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.7'
diff --git a/applications/json_packager/umain.pas b/applications/json_packager/umain.pas
index fc64a6a19..d873589a5 100644
--- a/applications/json_packager/umain.pas
+++ b/applications/json_packager/umain.pas
@@ -138,6 +138,7 @@ type
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject);
+ procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure LoadItemClick(Sender: TObject);
procedure mnu_fileNewClick(Sender: TObject);
@@ -384,9 +385,6 @@ begin
CFG.WriteBool('Options', 'Virgin', False);
CFG.WriteBool('Options', 'DiableWarnings', bDisableWarnings);
CFG.UpdateFile;
- Application.ProcessMessages;
- CFG.Free;
- slErrorList.Free;
end;
end;
function TfrmMain.CreateUniqueINI(var aCount: integer):Boolean;
@@ -465,6 +463,12 @@ begin
bDirty := False; // No effect :(
end;
+procedure TfrmMain.FormDestroy(Sender: TObject);
+begin
+ CFG.Free;
+ slErrorList.Free;
+end;
+
procedure TfrmMain.FormShow(Sender: TObject);
begin
bDirty := False;