diff --git a/applications/json_packager/jsonpackage.lps b/applications/json_packager/jsonpackage.lps
index e58533290..32278e95b 100644
--- a/applications/json_packager/jsonpackage.lps
+++ b/applications/json_packager/jsonpackage.lps
@@ -10,7 +10,7 @@
-
+
@@ -20,9 +20,9 @@
-
-
-
+
+
+
@@ -34,7 +34,7 @@
-
+
@@ -42,7 +42,7 @@
-
+
@@ -366,123 +366,123 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
diff --git a/applications/json_packager/umain.pas b/applications/json_packager/umain.pas
index 6bb9cca59..a3941bdef 100644
--- a/applications/json_packager/umain.pas
+++ b/applications/json_packager/umain.pas
@@ -821,7 +821,6 @@ end;
procedure TfrmMain.LoadItemClick(Sender: TObject);
var
i: integer;
- sVersionString:String;
Quad: TVersionQuad;
begin
FileOpen1.Dialog.InitialDir :=
@@ -842,8 +841,7 @@ begin
begin
If (i > 0) then AddPackageFileToList;
ArrayEdtPackageFileName[i].Text:=JSONPackage.UpdatePackageFiles.Items[i].Name;
- sVersionString:=JSONPackage.UpdatePackageFiles.Items[i].Version;
- If fileinfo.TryStrToVersionQuad(sVersionString,Quad) then
+ If fileinfo.TryStrToVersionQuad(JSONPackage.UpdatePackageFiles.Items[i].Version,Quad) then
begin
ArraySpinEditV1[i].Value:=Quad[1];
ArraySpinEditV2[i].Value:=Quad[2];
@@ -887,6 +885,14 @@ begin
// stringPackageFiles.RowCount := 1;
sJSONFilePath := '';
sZipDirectory := '';
+ ResetPackageFileControlsToOne;
+ ArrayEdtPackageFileName[0].Text:=rsMypackagenam;
+ ArraySpinEditV1[0].Value:=0;
+ ArraySpinEditV2[0].Value:=0;
+ ArraySpinEditV3[0].Value:=0;
+ ArraySpinEditV4[0].Value:=0;
+ ArrayChkBoxForceNotify[0].Checked:=False;
+ ArraySpinEditInternalVersion[0].Value:=0;
end;
procedure TfrmMain.mnu_fileSaveClick(Sender: TObject);