File/New done

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5470 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/json_packager/jsonpackage.lps

@@ -10,7 +10,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="3"/>
         <CursorPos X="15" Y="19"/>
-        <UsageCount Value="128"/>
+        <UsageCount Value="129"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
@@ -20,9 +20,9 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="40"/>
-        <CursorPos X="26" Y="65"/>
-        <UsageCount Value="128"/>
+        <TopLine Value="30"/>
+        <CursorPos Y="66"/>
+        <UsageCount Value="129"/>
         <Bookmarks Count="3">
           <Item0 Y="819" ID="1"/>
           <Item1 X="44" Y="765"/>
@@ -34,7 +34,7 @@
       <Unit2>
         <Filename Value="ugenericcollection.pas"/>
         <IsPartOfProject Value="True"/>
-        <UsageCount Value="128"/>
+        <UsageCount Value="129"/>
       </Unit2>
       <Unit3>
         <Filename Value="C:\NewPascal\projects\MDSUM\CryptINI\lockini.pas"/>
@@ -42,7 +42,7 @@
         <UnitName Value="LockIni"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="40" Y="9"/>
-        <UsageCount Value="46"/>
+        <UsageCount Value="47"/>
       </Unit3>
       <Unit4>
         <Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.pas"/>
@@ -366,123 +366,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="umain.pas"/>
-        <Caret Line="612" Column="25" TopLine="589"/>
+        <Caret Line="495" Column="35" TopLine="483"/>
       </Position1>
       <Position2>
         <Filename Value="umain.pas"/>
-        <Caret Line="503" TopLine="478"/>
+        <Caret Line="510" Column="21" TopLine="486"/>
       </Position2>
       <Position3>
         <Filename Value="umain.pas"/>
-        <Caret Line="495" Column="35" TopLine="483"/>
+        <Caret Line="480" Column="27" TopLine="471"/>
       </Position3>
       <Position4>
         <Filename Value="umain.pas"/>
-        <Caret Line="510" Column="21" TopLine="486"/>
+        <Caret Line="482" TopLine="455"/>
       </Position4>
       <Position5>
         <Filename Value="umain.pas"/>
-        <Caret Line="480" Column="27" TopLine="471"/>
+        <Caret Line="414" Column="47" TopLine="402"/>
       </Position5>
       <Position6>
         <Filename Value="umain.pas"/>
-        <Caret Line="482" TopLine="455"/>
+        <Caret Line="478" Column="56" TopLine="452"/>
       </Position6>
       <Position7>
         <Filename Value="umain.pas"/>
-        <Caret Line="414" Column="47" TopLine="402"/>
+        <Caret Line="496" Column="23" TopLine="465"/>
       </Position7>
       <Position8>
         <Filename Value="umain.pas"/>
-        <Caret Line="478" Column="56" TopLine="452"/>
+        <Caret Line="558" Column="22" TopLine="532"/>
       </Position8>
       <Position9>
         <Filename Value="umain.pas"/>
-        <Caret Line="496" Column="23" TopLine="465"/>
+        <Caret Line="552" Column="56" TopLine="533"/>
       </Position9>
       <Position10>
         <Filename Value="umain.pas"/>
-        <Caret Line="558" Column="22" TopLine="532"/>
+        <Caret Line="551" TopLine="516"/>
       </Position10>
       <Position11>
         <Filename Value="umain.pas"/>
-        <Caret Line="552" Column="56" TopLine="533"/>
+        <Caret Line="826" Column="9" TopLine="806"/>
       </Position11>
       <Position12>
         <Filename Value="umain.pas"/>
-        <Caret Line="551" TopLine="516"/>
+        <Caret Line="209" Column="44" TopLine="199"/>
       </Position12>
       <Position13>
         <Filename Value="umain.pas"/>
-        <Caret Line="826" Column="9" TopLine="806"/>
+        <Caret Line="206" Column="24" TopLine="193"/>
       </Position13>
       <Position14>
         <Filename Value="umain.pas"/>
-        <Caret Line="209" Column="44" TopLine="199"/>
+        <Caret Line="878" Column="3" TopLine="876"/>
       </Position14>
       <Position15>
         <Filename Value="umain.pas"/>
-        <Caret Line="206" Column="24" TopLine="193"/>
+        <Caret Line="841" Column="25" TopLine="817"/>
       </Position15>
       <Position16>
         <Filename Value="umain.pas"/>
-        <Caret Line="878" Column="3" TopLine="876"/>
+        <Caret Line="814" TopLine="811"/>
       </Position16>
       <Position17>
         <Filename Value="umain.pas"/>
-        <Caret Line="841" Column="25" TopLine="817"/>
+        <Caret Line="454" TopLine="436"/>
       </Position17>
       <Position18>
         <Filename Value="umain.pas"/>
-        <Caret Line="814" TopLine="811"/>
+        <Caret Line="70" Column="54" TopLine="43"/>
       </Position18>
       <Position19>
         <Filename Value="umain.pas"/>
-        <Caret Line="454" TopLine="436"/>
+        <Caret Line="909" TopLine="906"/>
       </Position19>
       <Position20>
         <Filename Value="umain.pas"/>
-        <Caret Line="70" Column="54" TopLine="43"/>
+        <Caret Line="846" Column="11" TopLine="827"/>
       </Position20>
       <Position21>
         <Filename Value="umain.pas"/>
-        <Caret Line="909" TopLine="906"/>
+        <Caret Line="919" Column="40" TopLine="910"/>
       </Position21>
       <Position22>
         <Filename Value="umain.pas"/>
-        <Caret Line="846" Column="11" TopLine="827"/>
+        <Caret Line="850" Column="25" TopLine="824"/>
       </Position22>
       <Position23>
         <Filename Value="umain.pas"/>
-        <Caret Line="919" Column="40" TopLine="910"/>
+        <Caret Line="844" Column="42" TopLine="825"/>
       </Position23>
       <Position24>
         <Filename Value="umain.pas"/>
-        <Caret Line="850" Column="25" TopLine="824"/>
+        <Caret Line="852" TopLine="833"/>
       </Position24>
       <Position25>
         <Filename Value="umain.pas"/>
-        <Caret Line="844" Column="42" TopLine="825"/>
+        <Caret Line="1165" Column="49" TopLine="1153"/>
       </Position25>
       <Position26>
         <Filename Value="umain.pas"/>
-        <Caret Line="852" TopLine="833"/>
+        <Caret Line="1113" Column="8" TopLine="1112"/>
       </Position26>
       <Position27>
         <Filename Value="umain.pas"/>
-        <Caret Line="1165" Column="49" TopLine="1153"/>
+        <Caret Line="850" TopLine="817"/>
       </Position27>
       <Position28>
         <Filename Value="umain.pas"/>
-        <Caret Line="1113" Column="8" TopLine="1112"/>
+        <Caret Line="458" Column="25" TopLine="451"/>
       </Position28>
       <Position29>
         <Filename Value="umain.pas"/>
-        <Caret Line="850" TopLine="817"/>
+        <Caret Line="53" Column="42" TopLine="40"/>
       </Position29>
       <Position30>
         <Filename Value="umain.pas"/>
-        <Caret Line="458" Column="25" TopLine="451"/>
+        <Caret Line="255" Column="12" TopLine="234"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>

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