diff --git a/applications/json_packager/deploywin/json_packager.iss b/applications/json_packager/deploywin/json_packager.iss
index 333857230..49a951152 100644
--- a/applications/json_packager/deploywin/json_packager.iss
+++ b/applications/json_packager/deploywin/json_packager.iss
@@ -1,6 +1,6 @@
[Setup]
AppName=External OPM JSON package Editor
-AppVersion=0.1.12.0
+AppVersion=0.1.13.0
DefaultDirName={pf}\OPMUtilities
DefaultGroupName=OPM
UninstallDisplayIcon={app}\jsoneditor.exe
diff --git a/applications/json_packager/jsonpackage.lpi b/applications/json_packager/jsonpackage.lpi
index 498a0b968..7f5a7bcea 100644
--- a/applications/json_packager/jsonpackage.lpi
+++ b/applications/json_packager/jsonpackage.lpi
@@ -130,6 +130,11 @@
+
+
+
+
+
diff --git a/applications/json_packager/jsonpackage.lps b/applications/json_packager/jsonpackage.lps
index f37cd50ca..426111217 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/umain.pas b/applications/json_packager/umain.pas
index f61c4faac..c90f36c60 100644
--- a/applications/json_packager/umain.pas
+++ b/applications/json_packager/umain.pas
@@ -33,8 +33,8 @@ unit umain;
Comment out Self.AutoAdjustLayout line in Form.Create (GetMem)
Removed StrUtils from uses (minesadorada)
Fixed memory leaks with CFG and slErrorList (minesadorada)
- Moved inline procedure CreateUniqueINI to separate function
- Added Const C_DEBUGMESSAGES=TRUE/FALSE
+ Moved inline procedure CreateUniqueINI to separate function (minesadorada)
+ Added Const C_DEBUGMESSAGES=TRUE/FALSE (minesadorada)
}
{$mode objfpc}{$H+}
@@ -375,13 +375,16 @@ begin
begin
if MessageDlg(rsFileMayBeUns, mtConfirmation, [mbYes, mbNo], 0, mbNo) = mrNo then
CanClose := False;
+ end
+ else
+ begin
+ CFG.WriteBool('Options', 'Virgin', False);
+ CFG.WriteBool('Options', 'DiableWarnings', bDisableWarnings);
+ CFG.UpdateFile;
+ Application.ProcessMessages;
+ CFG.Free;
+ slErrorList.Free;
end;
- CFG.WriteBool('Options', 'Virgin', False);
- CFG.WriteBool('Options', 'DiableWarnings', bDisableWarnings);
- CFG.UpdateFile;
- Application.ProcessMessages;
- CFG.Free;
- slErrorList.Free;
end;
function TfrmMain.CreateUniqueINI(var aCount: integer):Boolean;
// Recursively loop until correct INI found, or new one created