pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

File/New done

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5470 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-12-13 12:40:20 +00:00
parent 7f66fa00d3
commit 271c7c5145
2 changed files with 45 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
applications/json_packager/jsonpackage.lps
View File

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

12
applications/json_packager/umain.pas
View File

@ -821,7 +821,6 @@ end;
procedure TfrmMain.LoadItemClick(Sender: TObject); procedure TfrmMain.LoadItemClick(Sender: TObject);
var var
i: integer; i: integer;
sVersionString:String;
Quad: TVersionQuad; Quad: TVersionQuad;
begin begin
FileOpen1.Dialog.InitialDir := FileOpen1.Dialog.InitialDir :=
@ -842,8 +841,7 @@ begin
begin begin
If (i > 0) then AddPackageFileToList; If (i > 0) then AddPackageFileToList;
ArrayEdtPackageFileName[i].Text:=JSONPackage.UpdatePackageFiles.Items[i].Name; ArrayEdtPackageFileName[i].Text:=JSONPackage.UpdatePackageFiles.Items[i].Name;
sVersionString:=JSONPackage.UpdatePackageFiles.Items[i].Version; If fileinfo.TryStrToVersionQuad(JSONPackage.UpdatePackageFiles.Items[i].Version,Quad) then
If fileinfo.TryStrToVersionQuad(sVersionString,Quad) then
begin begin
ArraySpinEditV1[i].Value:=Quad[1]; ArraySpinEditV1[i].Value:=Quad[1];
ArraySpinEditV2[i].Value:=Quad[2]; ArraySpinEditV2[i].Value:=Quad[2];
@ -887,6 +885,14 @@ begin
// stringPackageFiles.RowCount := 1; // stringPackageFiles.RowCount := 1;
sJSONFilePath := ''; sJSONFilePath := '';
sZipDirectory := ''; 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; end;
procedure TfrmMain.mnu_fileSaveClick(Sender: TObject); procedure TfrmMain.mnu_fileSaveClick(Sender: TObject);