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

0.1.12.0: Renamed DownloadURL to DownloadZipURL

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5415 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-12-05 08:41:51 +00:00
parent 8c2a4e8376
commit 6dac65ebd2
12 changed files with 134 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/json_packager/deploywin/json_packager.iss
View File

@ -1,6 +1,6 @@
[Setup] [Setup]
AppName=External OPM JSON package Editor AppName=External OPM JSON package Editor
AppVersion=0.1.8.0 AppVersion=0.1.11.0
DefaultDirName={pf}\OPMUtilities DefaultDirName={pf}\OPMUtilities
DefaultGroupName=OPM DefaultGroupName=OPM
UninstallDisplayIcon={app}\jsoneditor.exe UninstallDisplayIcon={app}\jsoneditor.exe

4
applications/json_packager/deploywin/locale/jsoneditor.en.po
View File

@ -303,6 +303,10 @@ msgstr "The .lpk entry #%d is is absent"
msgid "- There are no .lpk files in the list yet" msgid "- There are no .lpk files in the list yet"
msgstr "- There are no .lpk files in the list yet" msgstr "- There are no .lpk files in the list yet"
#: umain.rsthereareoneo
msgid "- There are one or more .lpk entries with the same name.%s- Every .lpk entry must have a unique name."
msgstr ""
#: umain.rsthisoptionsh #: umain.rsthisoptionsh
msgid "This option should only be used for crucial updates or bug-fixed packages. Are you OK with that?" msgid "This option should only be used for crucial updates or bug-fixed packages. Are you OK with that?"
msgstr "" msgstr ""

9
applications/json_packager/deploywin/locale/jsoneditor.es.po
View File

@ -122,6 +122,10 @@ msgstr "Archivos del Paquete"
msgid "Load..." msgid "Load..."
msgstr "Cargar..." msgstr "Cargar..."
#: tfrmmain.mnu_filenew.caption
msgid "New"
msgstr ""
#: tfrmmain.mnu_filesave.caption #: tfrmmain.mnu_filesave.caption
msgid "Save" msgid "Save"
msgstr "Guardar" msgstr "Guardar"
@ -291,6 +295,10 @@ msgstr "La entrada .lpk #%d está ausente"
msgid "- There are no .lpk files in the list yet" msgid "- There are no .lpk files in the list yet"
msgstr "- No hay ningún archivo .lpk en la lista todavía" msgstr "- No hay ningún archivo .lpk en la lista todavía"
#: umain.rsthereareoneo
msgid "- There are one or more .lpk entries with the same name.%s- Every .lpk entry must have a unique name."
msgstr ""
#: umain.rsthisoptionsh #: umain.rsthisoptionsh
msgid "This option should only be used for crucial updates or bug-fixed packages. Are you OK with that?" msgid "This option should only be used for crucial updates or bug-fixed packages. Are you OK with that?"
msgstr "Esta opción debe ser usada solamente para actualizaciones cruciales o paquetes con arreglos de bugs. ¿Estás de acuerdo con esto?" msgstr "Esta opción debe ser usada solamente para actualizaciones cruciales o paquetes con arreglos de bugs. ¿Estás de acuerdo con esto?"
@ -330,3 +338,4 @@ msgstr "¿Quieres copiar %s a la carpeta %s?"
#: umain.rsyoumayneedto #: umain.rsyoumayneedto
msgid "(You may need to restart the app to see the change)" msgid "(You may need to restart the app to see the change)"
msgstr "(Quizás necesites reiniciar la aplicación para ver los cambios)" msgstr "(Quizás necesites reiniciar la aplicación para ver los cambios)"

2
applications/json_packager/jsonpackage.lpi
View File

@ -24,7 +24,7 @@
<UseVersionInfo Value="True"/> <UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/> <AutoIncrementBuild Value="True"/>
<MinorVersionNr Value="1"/> <MinorVersionNr Value="1"/>
<RevisionNr Value="11"/> <RevisionNr Value="12"/>
<StringTable Comments="Buld configured for Win Linux and Darwin" FileDescription="An editor for OnlinePackageManager update JSON files" InternalName="jsoneditor" LegalCopyright="(c)2016 usernames lainz and minesadorada @ forum.lazarus.freepascal.org" LegalTrademarks="GPL code" OriginalFilename="jsoneditor" ProductName="Lazarus and Freepascal" ProductVersion="1.x and 3.x"/> <StringTable Comments="Buld configured for Win Linux and Darwin" FileDescription="An editor for OnlinePackageManager update JSON files" InternalName="jsoneditor" LegalCopyright="(c)2016 usernames lainz and minesadorada @ forum.lazarus.freepascal.org" LegalTrademarks="GPL code" OriginalFilename="jsoneditor" ProductName="Lazarus and Freepascal" ProductVersion="1.x and 3.x"/>
</VersionInfo> </VersionInfo>
<BuildModes Count="5"> <BuildModes Count="5">

78
applications/json_packager/jsonpackage.lps
View File

@ -20,12 +20,12 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="13"/> <TopLine Value="730"/>
<CursorPos X="44" Y="30"/> <CursorPos X="32" Y="770"/>
<UsageCount Value="57"/> <UsageCount Value="57"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 Y="457" ID="1"/> <Item0 Y="458" ID="1"/>
<Item1 Y="727"/> <Item1 Y="728"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -115,127 +115,123 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit12> </Unit12>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="29" HistoryIndex="28">
<Position1> <Position1>
<Filename Value="C:\NewPascalDarwin\lazarus\lcl\grids.pas"/> <Filename Value="umain.pas"/>
<Caret Line="745" Column="27" TopLine="709"/> <Caret Line="13" Column="50" TopLine="22"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="C:\NewPascalDarwin\lazarus\lcl\grids.pas"/> <Filename Value="umain.pas"/>
<Caret Line="114" Column="3" TopLine="76"/> <Caret Line="31" Column="50" TopLine="22"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="155" TopLine="134"/> <Caret Line="65" Column="20" TopLine="25"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="308" Column="3" TopLine="306"/> <Caret Line="73" Column="79" TopLine="33"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="796" Column="19" TopLine="766"/> <Caret Line="100" Column="23" TopLine="60"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="46" Column="40" TopLine="31"/> <Caret Line="105" Column="22" TopLine="65"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="C:\NewPascalDarwin\fpc\rtl\objpas\classes\classesh.inc"/> <Filename Value="umain.pas"/>
<Caret Line="498" Column="37" TopLine="465"/> <Caret Line="185" Column="19" TopLine="145"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="450" Column="47" TopLine="426"/> <Caret Line="188" Column="19" TopLine="148"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="298" Column="27" TopLine="285"/> <Caret Line="189" Column="19" TopLine="149"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="313" Column="46" TopLine="290"/> <Caret Line="190" Column="19" TopLine="150"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="316" Column="65" TopLine="293"/> <Caret Line="214" Column="18" TopLine="174"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="313" Column="46" TopLine="289"/> <Caret Line="397" Column="21" TopLine="357"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="320" TopLine="296"/> <Caret Line="403" Column="21" TopLine="363"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="310" Column="29" TopLine="295"/> <Caret Line="464" Column="70" TopLine="424"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="672" Column="56" TopLine="635"/> <Caret Line="486" Column="21" TopLine="446"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="810" Column="41" TopLine="787"/> <Caret Line="598" Column="32" TopLine="558"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="812" Column="36" TopLine="786"/> <Caret Line="600" Column="37" TopLine="560"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="813" Column="5" TopLine="790"/> <Caret Line="601" Column="23" TopLine="561"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="811" TopLine="787"/> <Caret Line="620" Column="77" TopLine="580"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="814" Column="5" TopLine="787"/> <Caret Line="623" Column="37" TopLine="583"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="812" Column="24" TopLine="784"/> <Caret Line="624" Column="23" TopLine="585"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="811" Column="11" TopLine="788"/> <Caret Line="628" Column="33" TopLine="589"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="813" Column="6" TopLine="789"/> <Caret Line="629" Column="42" TopLine="590"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="489" TopLine="481"/> <Caret Line="631" Column="37" TopLine="592"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="819" TopLine="789"/> <Caret Line="632" Column="23" TopLine="593"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="813" TopLine="789"/> <Caret Line="636" Column="65" TopLine="597"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="79" Column="26" TopLine="50"/> <Caret Line="638" Column="37" TopLine="599"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="812" TopLine="795"/> <Caret Line="639" Column="23" TopLine="600"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="735" Column="33" TopLine="720"/> <Caret Line="710" Column="61" TopLine="670"/>
</Position29> </Position29>
<Position30>
<Filename Value="umain.pas"/>
<Caret Line="683" TopLine="646"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>
</CONFIG> </CONFIG>

BIN
applications/json_packager/jsonpackage.res
View File

Binary file not shown.

24
applications/json_packager/locale/jsoneditor.en.po
View File

@ -67,7 +67,9 @@ msgstr ""
"Save the current configuration to disk\n" "Save the current configuration to disk\n"
"as a JSON update file\n" "as a JSON update file\n"
#: tfrmmain.editdownloadurl.hint #: tfrmmain.editdownloadzipurl.hint
#, fuzzy
msgctxt "tfrmmain.editdownloadzipurl.hint"
msgid "" msgid ""
"Download URL:\n" "Download URL:\n"
"Include the FULL url needed to download the package Zip file\n" "Include the FULL url needed to download the package Zip file\n"
@ -105,7 +107,9 @@ msgstr "&Save As ..."
msgid "Save As" msgid "Save As"
msgstr "Save As" msgstr "Save As"
#: tfrmmain.lbldownloadurl.caption #: tfrmmain.lbldownloadzipurl.caption
#, fuzzy
msgctxt "tfrmmain.lbldownloadzipurl.caption"
msgid "Download URL:" msgid "Download URL:"
msgstr "Download URL:" msgstr "Download URL:"
@ -215,19 +219,27 @@ msgstr "About"
msgid "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s" msgid "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s"
msgstr "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s" msgstr "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s"
#: umain.rsdownloadurld #: umain.rsdownloadzipurld
#, fuzzy
msgctxt "umain.rsdownloadzipurld"
msgid "- Download URL does not contain the zipfile name" msgid "- Download URL does not contain the zipfile name"
msgstr "- Download URL does not contain the zipfile name" msgstr "- Download URL does not contain the zipfile name"
#: umain.rsdownloadurli #: umain.rsdownloadzipurli
#, fuzzy
msgctxt "umain.rsdownloadzipurli"
msgid "- Download URL is too short or missing" msgid "- Download URL is too short or missing"
msgstr "- Download URL is too short or missing" msgstr "- Download URL is too short or missing"
#: umain.rsdownloadurli2 #: umain.rsdownloadzipurli2
#, fuzzy
msgctxt "umain.rsdownloadzipurli2"
msgid "- Download URL is incomplete" msgid "- Download URL is incomplete"
msgstr "- Download URL is incomplete" msgstr "- Download URL is incomplete"
#: umain.rsdownloadurls #: umain.rsdownloadzipurls
#, fuzzy
msgctxt "umain.rsdownloadzipurls"
msgid "- Download URL should start with \"http\"" msgid "- Download URL should start with \"http\""
msgstr "- Download URL should start with \"http\"" msgstr "- Download URL should start with \"http\""

24
applications/json_packager/locale/jsoneditor.es.po
View File

@ -68,7 +68,9 @@ msgstr ""
"Guardar la configuración actual al disco\n" "Guardar la configuración actual al disco\n"
"como un archivo JSON de actualización\n" "como un archivo JSON de actualización\n"
#: tfrmmain.editdownloadurl.hint #: tfrmmain.editdownloadzipurl.hint
#, fuzzy
msgctxt "tfrmmain.editdownloadzipurl.hint"
msgid "" msgid ""
"Download URL:\n" "Download URL:\n"
"Include the FULL url needed to download the package Zip file\n" "Include the FULL url needed to download the package Zip file\n"
@ -106,7 +108,9 @@ msgstr "&Guardar Como ..."
msgid "Save As" msgid "Save As"
msgstr "Guardar Como" msgstr "Guardar Como"
#: tfrmmain.lbldownloadurl.caption #: tfrmmain.lbldownloadzipurl.caption
#, fuzzy
msgctxt "tfrmmain.lbldownloadzipurl.caption"
msgid "Download URL:" msgid "Download URL:"
msgstr "URL de Descarga" msgstr "URL de Descarga"
@ -206,19 +210,27 @@ msgstr "Acerca de"
msgid "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s" msgid "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s"
msgstr "Compilado con FPC V:%s y Lazarus V:%d.%d%s para la plataforma %s - %s %s%s" msgstr "Compilado con FPC V:%s y Lazarus V:%d.%d%s para la plataforma %s - %s %s%s"
#: umain.rsdownloadurld #: umain.rsdownloadzipurld
#, fuzzy
msgctxt "umain.rsdownloadzipurld"
msgid "- Download URL does not contain the zipfile name" msgid "- Download URL does not contain the zipfile name"
msgstr "- URL de descarga no contiene el nombre del zip" msgstr "- URL de descarga no contiene el nombre del zip"
#: umain.rsdownloadurli #: umain.rsdownloadzipurli
#, fuzzy
msgctxt "umain.rsdownloadzipurli"
msgid "- Download URL is too short or missing" msgid "- Download URL is too short or missing"
msgstr "- URL de descarga es muy corta o está vacía" msgstr "- URL de descarga es muy corta o está vacía"
#: umain.rsdownloadurli2 #: umain.rsdownloadzipurli2
#, fuzzy
msgctxt "umain.rsdownloadzipurli2"
msgid "- Download URL is incomplete" msgid "- Download URL is incomplete"
msgstr "- URL de descarga incompleta" msgstr "- URL de descarga incompleta"
#: umain.rsdownloadurls #: umain.rsdownloadzipurls
#, fuzzy
msgctxt "umain.rsdownloadzipurls"
msgid "- Download URL should start with \"http\"" msgid "- Download URL should start with \"http\""
msgstr "- URL de descarga debe empezar con \"http\"" msgstr "- URL de descarga debe empezar con \"http\""

18
applications/json_packager/locale/jsoneditor.po
View File

@ -47,7 +47,8 @@ msgid ""
"as a JSON update file\n" "as a JSON update file\n"
msgstr "" msgstr ""
#: tfrmmain.editdownloadurl.hint #: tfrmmain.editdownloadzipurl.hint
msgctxt "tfrmmain.editdownloadzipurl.hint"
msgid "" msgid ""
"Download URL:\n" "Download URL:\n"
"Include the FULL url needed to download the package Zip file\n" "Include the FULL url needed to download the package Zip file\n"
@ -80,7 +81,8 @@ msgstr ""
msgid "Save As" msgid "Save As"
msgstr "" msgstr ""
#: tfrmmain.lbldownloadurl.caption #: tfrmmain.lbldownloadzipurl.caption
msgctxt "tfrmmain.lbldownloadzipurl.caption"
msgid "Download URL:" msgid "Download URL:"
msgstr "" msgstr ""
@ -172,19 +174,23 @@ msgstr ""
msgid "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s" msgid "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s"
msgstr "" msgstr ""
#: umain.rsdownloadurld #: umain.rsdownloadzipurld
msgctxt "umain.rsdownloadzipurld"
msgid "- Download URL does not contain the zipfile name" msgid "- Download URL does not contain the zipfile name"
msgstr "" msgstr ""
#: umain.rsdownloadurli #: umain.rsdownloadzipurli
msgctxt "umain.rsdownloadzipurli"
msgid "- Download URL is too short or missing" msgid "- Download URL is too short or missing"
msgstr "" msgstr ""
#: umain.rsdownloadurli2 #: umain.rsdownloadzipurli2
msgctxt "umain.rsdownloadzipurli2"
msgid "- Download URL is incomplete" msgid "- Download URL is incomplete"
msgstr "" msgstr ""
#: umain.rsdownloadurls #: umain.rsdownloadzipurls
msgctxt "umain.rsdownloadzipurls"
msgid "- Download URL should start with \"http\"" msgid "- Download URL should start with \"http\""
msgstr "" msgstr ""

4
applications/json_packager/umain.lfm
View File

@ -46,7 +46,7 @@ object frmMain: TfrmMain
ParentColor = False ParentColor = False
TabOrder = 1 TabOrder = 1
end end
object lblDownloadURL: TLabel object lblDownloadZipURL: TLabel
Left = 8 Left = 8
Height = 15 Height = 15
Top = 104 Top = 104
@ -54,7 +54,7 @@ object frmMain: TfrmMain
Caption = 'Download URL:' Caption = 'Download URL:'
ParentColor = False ParentColor = False
end end
object editDownloadURL: TEdit object editDownloadZipURL: TEdit
Left = 8 Left = 8
Height = 28 Height = 28
Hint = 'Download URL:'#13#10'Include the FULL url needed to download the package Zip file' Hint = 'Download URL:'#13#10'Include the FULL url needed to download the package Zip file'

4
applications/json_packager/umain.lrj
View File

@ -3,8 +3,8 @@
{"hash":260482813,"name":"tfrmmain.editname.hint","sourcebytes":[85,112,100,97,116,101,32,90,105,112,32,78,97,109,101,58,13,10,84,104,105,115,32,105,115,32,106,117,115,116,32,116,104,101,32,102,105,108,101,110,97,109,101,32,40,110,111,116,32,105,110,99,108,117,100,105,110,103,32,116,104,101,32,112,97,116,104,41,13,10,111,102,32,121,111,117,114,32,117,112,100,97,116,101,32,122,105,112,46,32,84,121,112,101,44,32,111,114,32,99,108,105,99,107,32,116,104,101,32,91,46,46,46,93],"value":"Update Zip Name:\r\nThis is just the filename (not including the path)\r\nof your update zip. Type, or click the [...]"}, {"hash":260482813,"name":"tfrmmain.editname.hint","sourcebytes":[85,112,100,97,116,101,32,90,105,112,32,78,97,109,101,58,13,10,84,104,105,115,32,105,115,32,106,117,115,116,32,116,104,101,32,102,105,108,101,110,97,109,101,32,40,110,111,116,32,105,110,99,108,117,100,105,110,103,32,116,104,101,32,112,97,116,104,41,13,10,111,102,32,121,111,117,114,32,117,112,100,97,116,101,32,122,105,112,46,32,84,121,112,101,44,32,111,114,32,99,108,105,99,107,32,116,104,101,32,91,46,46,46,93],"value":"Update Zip Name:\r\nThis is just the filename (not including the path)\r\nof your update zip. Type, or click the [...]"},
{"hash":190949342,"name":"tfrmmain.cbforceupdate.hint","sourcebytes":[70,111,114,99,101,32,85,112,100,97,116,101,32,99,104,101,99,107,32,98,111,120,58,13,10,73,102,32,116,104,105,115,32,105,115,32,99,104,101,99,107,101,100,32,116,104,101,32,79,80,77,32,117,115,101,114,32,119,105,108,108,32,98,101,32,110,111,116,105,102,105,101,100,13,10,111,102,32,121,111,117,114,32,117,112,100,97,116,101,46,32,32,79,110,108,121,32,99,104,101,99,107,32,116,104,105,115,32,105,102,32,116,104,101,32,117,112,100,97,116,101,32,105,115,32,105,109,112,111,114,116,97,110,116,46],"value":"Force Update check box:\r\nIf this is checked the OPM user will be notified\r\nof your update. Only check this if the update is important."}, {"hash":190949342,"name":"tfrmmain.cbforceupdate.hint","sourcebytes":[70,111,114,99,101,32,85,112,100,97,116,101,32,99,104,101,99,107,32,98,111,120,58,13,10,73,102,32,116,104,105,115,32,105,115,32,99,104,101,99,107,101,100,32,116,104,101,32,79,80,77,32,117,115,101,114,32,119,105,108,108,32,98,101,32,110,111,116,105,102,105,101,100,13,10,111,102,32,121,111,117,114,32,117,112,100,97,116,101,46,32,32,79,110,108,121,32,99,104,101,99,107,32,116,104,105,115,32,105,102,32,116,104,101,32,117,112,100,97,116,101,32,105,115,32,105,109,112,111,114,116,97,110,116,46],"value":"Force Update check box:\r\nIf this is checked the OPM user will be notified\r\nof your update. Only check this if the update is important."},
{"hash":17834453,"name":"tfrmmain.cbforceupdate.caption","sourcebytes":[70,111,114,99,101,32,85,112,100,97,116,101],"value":"Force Update"}, {"hash":17834453,"name":"tfrmmain.cbforceupdate.caption","sourcebytes":[70,111,114,99,101,32,85,112,100,97,116,101],"value":"Force Update"},
{"hash":202110442,"name":"tfrmmain.lbldownloadurl.caption","sourcebytes":[68,111,119,110,108,111,97,100,32,85,82,76,58],"value":"Download URL:"}, {"hash":202110442,"name":"tfrmmain.lbldownloadzipurl.caption","sourcebytes":[68,111,119,110,108,111,97,100,32,85,82,76,58],"value":"Download URL:"},
{"hash":265021141,"name":"tfrmmain.editdownloadurl.hint","sourcebytes":[68,111,119,110,108,111,97,100,32,85,82,76,58,13,10,73,110,99,108,117,100,101,32,116,104,101,32,70,85,76,76,32,117,114,108,32,110,101,101,100,101,100,32,116,111,32,100,111,119,110,108,111,97,100,32,116,104,101,32,112,97,99,107,97,103,101,32,90,105,112,32,102,105,108,101],"value":"Download URL:\r\nInclude the FULL url needed to download the package Zip file"}, {"hash":265021141,"name":"tfrmmain.editdownloadzipurl.hint","sourcebytes":[68,111,119,110,108,111,97,100,32,85,82,76,58,13,10,73,110,99,108,117,100,101,32,116,104,101,32,70,85,76,76,32,117,114,108,32,110,101,101,100,101,100,32,116,111,32,100,111,119,110,108,111,97,100,32,116,104,101,32,112,97,99,107,97,103,101,32,90,105,112,32,102,105,108,101],"value":"Download URL:\r\nInclude the FULL url needed to download the package Zip file"},
{"hash":57627770,"name":"tfrmmain.lblpackagefiles.caption","sourcebytes":[80,97,99,107,97,103,101,32,70,105,108,101,115,58],"value":"Package Files:"}, {"hash":57627770,"name":"tfrmmain.lblpackagefiles.caption","sourcebytes":[80,97,99,107,97,103,101,32,70,105,108,101,115,58],"value":"Package Files:"},
{"hash":168058793,"name":"tfrmmain.stringpackagefiles.hint","sourcebytes":[80,97,99,107,97,103,101,32,70,105,108,101,115,58,13,10,91,65,100,100,93,58,32,32,116,111,32,109,97,107,101,32,97,32,110,101,119,32,101,110,116,114,121,13,10,91,82,101,109,111,118,101,93,58,32,82,101,109,111,118,101,32,108,97,115,116,32,101,110,116,114,121,13,10,108,112,107,32,102,105,108,101,110,97,109,101,58,32,105,46,101,46,32,109,121,99,111,110,116,114,111,108,46,108,112,107,13,10,86,101,114,115,105,111,110,58,32,84,104,101,32,70,85,76,76,32,118,101,114,115,105,111,110,32,40,105,46,101,46,32,110,111,116,32,49,46,48,32,98,117,116,32,49,46,48,46,48,46,48,41],"value":"Package Files:\r\n[Add]: to make a new entry\r\n[Remove]: Remove last entry\r\nlpk filename: i.e. mycontrol.lpk\r\nVersion: The FULL version (i.e. not 1.0 but 1.0.0.0)"}, {"hash":168058793,"name":"tfrmmain.stringpackagefiles.hint","sourcebytes":[80,97,99,107,97,103,101,32,70,105,108,101,115,58,13,10,91,65,100,100,93,58,32,32,116,111,32,109,97,107,101,32,97,32,110,101,119,32,101,110,116,114,121,13,10,91,82,101,109,111,118,101,93,58,32,82,101,109,111,118,101,32,108,97,115,116,32,101,110,116,114,121,13,10,108,112,107,32,102,105,108,101,110,97,109,101,58,32,105,46,101,46,32,109,121,99,111,110,116,114,111,108,46,108,112,107,13,10,86,101,114,115,105,111,110,58,32,84,104,101,32,70,85,76,76,32,118,101,114,115,105,111,110,32,40,105,46,101,46,32,110,111,116,32,49,46,48,32,98,117,116,32,49,46,48,46,48,46,48,41],"value":"Package Files:\r\n[Add]: to make a new entry\r\n[Remove]: Remove last entry\r\nlpk filename: i.e. mycontrol.lpk\r\nVersion: The FULL version (i.e. not 1.0 but 1.0.0.0)"},
{"hash":4294967295,"name":"tfrmmain.stringpackagefiles.columns[0].title.caption","sourcebytes":[],"value":""}, {"hash":4294967295,"name":"tfrmmain.stringpackagefiles.columns[0].title.caption","sourcebytes":[],"value":""},

59
applications/json_packager/umain.pas
View File

@ -27,7 +27,8 @@ unit umain;
0.1.8.0: Config file change (minesadorada) 0.1.8.0: Config file change (minesadorada)
0.1.9.0: Error check for duplicate lpk entries (minesadorada) 0.1.9.0: Error check for duplicate lpk entries (minesadorada)
0.1.10.0: Exception handling for Load + Save (minesadorada) 0.1.10.0: Exception handling for Load + Save (minesadorada)
0.1.11.0: Cleaned up code formatting etc. 0.1.11.0: Cleaned up code formatting etc. (minesadorada)
0.1.12.0: Renamed DownloadURL to DownloadZipURL (minesadorada)
} }
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -61,7 +62,7 @@ type
TPackageData = class(TPersistent) TPackageData = class(TPersistent)
private private
FDownloadURL: string; FDownloadZipURL: string;
FForceUpdate: boolean; FForceUpdate: boolean;
FName: string; FName: string;
public public
@ -69,7 +70,7 @@ type
published published
property Name: string read FName write FName; property Name: string read FName write FName;
property ForceUpdate: boolean read FForceUpdate write FForceUpdate; property ForceUpdate: boolean read FForceUpdate write FForceUpdate;
property DownloadURL: string read FDownloadURL write FDownloadURL; property DownloadZipURL: string read FDownloadZipURL write FDownloadZipURL;
end; end;
TPackage = class(TPersistent) TPackage = class(TPersistent)
@ -96,12 +97,12 @@ type
btnRemove: TButton; btnRemove: TButton;
cbForceUpdate: TCheckBox; cbForceUpdate: TCheckBox;
editName: TEdit; editName: TEdit;
editDownloadURL: TEdit; editDownloadZipURL: TEdit;
FileOpen1: TFileOpen; FileOpen1: TFileOpen;
FileSaveAs1: TFileSaveAs; FileSaveAs1: TFileSaveAs;
lblPackageFiles: TLabel; lblPackageFiles: TLabel;
lblName: TLabel; lblName: TLabel;
lblDownloadURL: TLabel; lblDownloadZipURL: TLabel;
MainMenu1: TMainMenu; MainMenu1: TMainMenu;
FileMenu: TMenuItem; FileMenu: TMenuItem;
LoadItem: TMenuItem; LoadItem: TMenuItem;
@ -181,12 +182,12 @@ resourcestring
rsVersion0000 = 'Version (n.n.n.n)'; rsVersion0000 = 'Version (n.n.n.n)';
rsFixThenTryAg = 'Fix, then try again.'; rsFixThenTryAg = 'Fix, then try again.';
rsUpdateZipNam = '- Update zip name is too short or missing'; rsUpdateZipNam = '- Update zip name is too short or missing';
rsDownloadURLI = '- Download URL is too short or missing'; rsDownloadZipURLI = '- Download URL is too short or missing';
rsThereAreNoLp = '- There are no .lpk files in the list yet'; rsThereAreNoLp = '- There are no .lpk files in the list yet';
rsUpdateZipNam2 = '- Update zip name missing extension ".zip"'; rsUpdateZipNam2 = '- Update zip name missing extension ".zip"';
rsDownloadURLI2 = '- Download URL is incomplete'; rsDownloadZipURLI2 = '- Download URL is incomplete';
rsDownloadURLS = '- Download URL should start with "http"'; rsDownloadZipURLS = '- Download URL should start with "http"';
rsDownloadURLD = '- Download URL does not contain the zipfile name'; rsDownloadZipURLD = '- Download URL does not contain the zipfile name';
rsWouldYouLike = 'Would you like to copy %s to the %s folder?'; rsWouldYouLike = 'Would you like to copy %s to the %s folder?';
rsSWasSuccessf = '%s was successfully copied to the %s folder'; rsSWasSuccessf = '%s was successfully copied to the %s folder';
rsSorryCopyOpe = 'Sorry - copy operation was unsuccessful'; rsSorryCopyOpe = 'Sorry - copy operation was unsuccessful';
@ -210,7 +211,7 @@ constructor TPackageData.Create;
begin begin
FName := ''; FName := '';
FForceUpdate := False; FForceUpdate := False;
FDownloadURL := ''; FDownloadZipURL := '';
end; end;
{ TfrmMain } { TfrmMain }
@ -393,13 +394,13 @@ begin
Screen.PixelsPerInch, Self.Width, ScaleX(Self.Width, Self.DesignTimeDPI)); Screen.PixelsPerInch, Self.Width, ScaleX(Self.Width, Self.DesignTimeDPI));
// Enable AutoSize again to get correct Height // Enable AutoSize again to get correct Height
editName.AutoSize := True; editName.AutoSize := True;
editDownloadURL.AutoSize := True; editDownloadZipURL.AutoSize := True;
// Furniture // Furniture
Caption := Application.Title; Caption := Application.Title;
Icon := Application.Icon; Icon := Application.Icon;
MyPopup.Icon := TPicture(Application.Icon); MyPopup.Icon := TPicture(Application.Icon);
editname.Text := rsMypackagenam; editname.Text := rsMypackagenam;
editDownloadURL.Text := rsHttpWwwUpdat; editDownloadZipURL.Text := rsHttpWwwUpdat;
stringPackageFiles.Columns[0].Title.Caption := rsLpkFileName; stringPackageFiles.Columns[0].Title.Caption := rsLpkFileName;
stringPackageFiles.Columns[1].Title.Caption := rsVersion0000; stringPackageFiles.Columns[1].Title.Caption := rsVersion0000;
// Defaults // Defaults
@ -460,7 +461,7 @@ begin
if JSONPackage.LoadFromFile(FileOpen1.Dialog.FileName) then if JSONPackage.LoadFromFile(FileOpen1.Dialog.FileName) then
begin begin
editName.Text := JSONPackage.Package.Name; editName.Text := JSONPackage.Package.Name;
editDownloadURL.Text := JSONPackage.Package.DownloadURL; editDownloadZipURL.Text := JSONPackage.Package.DownloadZipURL;
cbForceUpdate.Checked := JSONPackage.Package.ForceUpdate; cbForceUpdate.Checked := JSONPackage.Package.ForceUpdate;
stringPackageFiles.RowCount := JSONPackage.PackageFiles.Count + 1; stringPackageFiles.RowCount := JSONPackage.PackageFiles.Count + 1;
@ -482,7 +483,7 @@ end;
procedure TfrmMain.mnu_fileNewClick(Sender: TObject); procedure TfrmMain.mnu_fileNewClick(Sender: TObject);
begin begin
editname.Text := rsMypackagenam; editname.Text := rsMypackagenam;
editDownloadURL.Text := rsHttpWwwUpdat; editDownloadZipURL.Text := rsHttpWwwUpdat;
cbForceUpdate.Checked := False; cbForceUpdate.Checked := False;
stringPackageFiles.RowCount := 1; stringPackageFiles.RowCount := 1;
sJSONFilePath := ''; sJSONFilePath := '';
@ -594,10 +595,10 @@ begin
Result := True; Result := True;
end; end;
// URL implausable? // URL implausable?
if (Length(editDownloadURL.Text) < 10) then if (Length(editDownloadZipURL.Text) < 10) then
begin begin
slErrorList.Add(rsDownloadURLI); slErrorList.Add(rsDownloadZipURLI);
editDownloadURL.Color := clYellow; editDownloadZipURL.Color := clYellow;
Result := True; Result := True;
end; end;
// No lpk file? // No lpk file?
@ -616,26 +617,26 @@ begin
Result := True; Result := True;
end; end;
// A full URL? // A full URL?
if ((Length(editDownloadURL.Text) > 0) and (RightStr(editDownloadURL.Text, 1) = '/')) if ((Length(editDownloadZipURL.Text) > 0) and (RightStr(editDownloadZipURL.Text, 1) = '/'))
then then
begin begin
slErrorList.Add(rsDownloadURLI2); slErrorList.Add(rsDownloadZipURLI2);
editDownloadURL.Color := clYellow; editDownloadZipURL.Color := clYellow;
Result := True; Result := True;
end; end;
if ((Length(editDownloadURL.Text) > 4) and if ((Length(editDownloadZipURL.Text) > 4) and
(LeftStr(LowerCase(editDownloadURL.Text), 4) <> 'http')) then (LeftStr(LowerCase(editDownloadZipURL.Text), 4) <> 'http')) then
begin begin
slErrorList.Add(rsDownloadURLS); slErrorList.Add(rsDownloadZipURLS);
editDownloadURL.Color := clYellow; editDownloadZipURL.Color := clYellow;
Result := True; Result := True;
end; end;
if (Pos(Lowercase(editName.Text), Lowercase(editDownloadURL.Text)) = 0) then if (Pos(Lowercase(editName.Text), Lowercase(editDownloadZipURL.Text)) = 0) then
begin begin
slErrorList.Add(rsDownloadURLD); slErrorList.Add(rsDownloadZipURLD);
editDownloadURL.Color := clYellow; editDownloadZipURL.Color := clYellow;
Result := True; Result := True;
end; end;
@ -706,7 +707,7 @@ begin
JSONPackage := TPackage.Create; JSONPackage := TPackage.Create;
try try
JSONPackage.Package.Name := editName.Text; JSONPackage.Package.Name := editName.Text;
JSONPackage.Package.DownloadURL := editDownloadURL.Text; JSONPackage.Package.DownloadZipURL := editDownloadZipURL.Text;
JSONPackage.Package.ForceUpdate := cbForceUpdate.Checked; JSONPackage.Package.ForceUpdate := cbForceUpdate.Checked;
for i := 1 to stringPackageFiles.RowCount - 1 do for i := 1 to stringPackageFiles.RowCount - 1 do
@ -766,7 +767,7 @@ procedure TfrmMain.spd_CheckURLClick(Sender: TObject);
var var
bTemp: boolean; bTemp: boolean;
begin begin
if OpenURL(editDownloadURL.Text) then if OpenURL(editDownloadZipURL.Text) then
begin begin
bTemp := bShowPopupHints; bTemp := bShowPopupHints;
bShowPopupHints := True; bShowPopupHints := True;