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);