You've already forked lazarus-ccr
0.1.12.0: Renamed DownloadURL to DownloadZipURL
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5415 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
@ -1,6 +1,6 @@
|
||||
[Setup]
|
||||
AppName=External OPM JSON package Editor
|
||||
AppVersion=0.1.8.0
|
||||
AppVersion=0.1.11.0
|
||||
DefaultDirName={pf}\OPMUtilities
|
||||
DefaultGroupName=OPM
|
||||
UninstallDisplayIcon={app}\jsoneditor.exe
|
||||
|
||||
@ -303,6 +303,10 @@ msgstr "The .lpk entry #%d is is absent"
|
||||
msgid "- 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
|
||||
msgid "This option should only be used for crucial updates or bug-fixed packages. Are you OK with that?"
|
||||
msgstr ""
|
||||
|
||||
@ -122,6 +122,10 @@ msgstr "Archivos del Paquete"
|
||||
msgid "Load..."
|
||||
msgstr "Cargar..."
|
||||
|
||||
#: tfrmmain.mnu_filenew.caption
|
||||
msgid "New"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.mnu_filesave.caption
|
||||
msgid "Save"
|
||||
msgstr "Guardar"
|
||||
@ -291,6 +295,10 @@ msgstr "La entrada .lpk #%d está ausente"
|
||||
msgid "- There are no .lpk files in the list yet"
|
||||
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
|
||||
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?"
|
||||
@ -330,3 +338,4 @@ msgstr "¿Quieres copiar %s a la carpeta %s?"
|
||||
#: umain.rsyoumayneedto
|
||||
msgid "(You may need to restart the app to see the change)"
|
||||
msgstr "(Quizás necesites reiniciar la aplicación para ver los cambios)"
|
||||
|
||||
|
||||
@ -24,7 +24,7 @@
|
||||
<UseVersionInfo Value="True"/>
|
||||
<AutoIncrementBuild Value="True"/>
|
||||
<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"/>
|
||||
</VersionInfo>
|
||||
<BuildModes Count="5">
|
||||
|
||||
@ -20,12 +20,12 @@
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<TopLine Value="13"/>
|
||||
<CursorPos X="44" Y="30"/>
|
||||
<TopLine Value="730"/>
|
||||
<CursorPos X="32" Y="770"/>
|
||||
<UsageCount Value="57"/>
|
||||
<Bookmarks Count="2">
|
||||
<Item0 Y="457" ID="1"/>
|
||||
<Item1 Y="727"/>
|
||||
<Item0 Y="458" ID="1"/>
|
||||
<Item1 Y="728"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
@ -115,127 +115,123 @@
|
||||
<Loaded Value="True"/>
|
||||
</Unit12>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<JumpHistory Count="29" HistoryIndex="28">
|
||||
<Position1>
|
||||
<Filename Value="C:\NewPascalDarwin\lazarus\lcl\grids.pas"/>
|
||||
<Caret Line="745" Column="27" TopLine="709"/>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="13" Column="50" TopLine="22"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="C:\NewPascalDarwin\lazarus\lcl\grids.pas"/>
|
||||
<Caret Line="114" Column="3" TopLine="76"/>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="31" Column="50" TopLine="22"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="155" TopLine="134"/>
|
||||
<Caret Line="65" Column="20" TopLine="25"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="308" Column="3" TopLine="306"/>
|
||||
<Caret Line="73" Column="79" TopLine="33"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="796" Column="19" TopLine="766"/>
|
||||
<Caret Line="100" Column="23" TopLine="60"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="46" Column="40" TopLine="31"/>
|
||||
<Caret Line="105" Column="22" TopLine="65"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="C:\NewPascalDarwin\fpc\rtl\objpas\classes\classesh.inc"/>
|
||||
<Caret Line="498" Column="37" TopLine="465"/>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="185" Column="19" TopLine="145"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="450" Column="47" TopLine="426"/>
|
||||
<Caret Line="188" Column="19" TopLine="148"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="298" Column="27" TopLine="285"/>
|
||||
<Caret Line="189" Column="19" TopLine="149"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="313" Column="46" TopLine="290"/>
|
||||
<Caret Line="190" Column="19" TopLine="150"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="316" Column="65" TopLine="293"/>
|
||||
<Caret Line="214" Column="18" TopLine="174"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="313" Column="46" TopLine="289"/>
|
||||
<Caret Line="397" Column="21" TopLine="357"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="320" TopLine="296"/>
|
||||
<Caret Line="403" Column="21" TopLine="363"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="310" Column="29" TopLine="295"/>
|
||||
<Caret Line="464" Column="70" TopLine="424"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="672" Column="56" TopLine="635"/>
|
||||
<Caret Line="486" Column="21" TopLine="446"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="810" Column="41" TopLine="787"/>
|
||||
<Caret Line="598" Column="32" TopLine="558"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="812" Column="36" TopLine="786"/>
|
||||
<Caret Line="600" Column="37" TopLine="560"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="813" Column="5" TopLine="790"/>
|
||||
<Caret Line="601" Column="23" TopLine="561"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="811" TopLine="787"/>
|
||||
<Caret Line="620" Column="77" TopLine="580"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="814" Column="5" TopLine="787"/>
|
||||
<Caret Line="623" Column="37" TopLine="583"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="812" Column="24" TopLine="784"/>
|
||||
<Caret Line="624" Column="23" TopLine="585"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="811" Column="11" TopLine="788"/>
|
||||
<Caret Line="628" Column="33" TopLine="589"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="813" Column="6" TopLine="789"/>
|
||||
<Caret Line="629" Column="42" TopLine="590"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="489" TopLine="481"/>
|
||||
<Caret Line="631" Column="37" TopLine="592"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="819" TopLine="789"/>
|
||||
<Caret Line="632" Column="23" TopLine="593"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="813" TopLine="789"/>
|
||||
<Caret Line="636" Column="65" TopLine="597"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="79" Column="26" TopLine="50"/>
|
||||
<Caret Line="638" Column="37" TopLine="599"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="812" TopLine="795"/>
|
||||
<Caret Line="639" Column="23" TopLine="600"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="735" Column="33" TopLine="720"/>
|
||||
<Caret Line="710" Column="61" TopLine="670"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="683" TopLine="646"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectSession>
|
||||
</CONFIG>
|
||||
|
||||
Binary file not shown.
@ -67,7 +67,9 @@ msgstr ""
|
||||
"Save the current configuration to disk\n"
|
||||
"as a JSON update file\n"
|
||||
|
||||
#: tfrmmain.editdownloadurl.hint
|
||||
#: tfrmmain.editdownloadzipurl.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.editdownloadzipurl.hint"
|
||||
msgid ""
|
||||
"Download URL:\n"
|
||||
"Include the FULL url needed to download the package Zip file\n"
|
||||
@ -105,7 +107,9 @@ msgstr "&Save As ..."
|
||||
msgid "Save As"
|
||||
msgstr "Save As"
|
||||
|
||||
#: tfrmmain.lbldownloadurl.caption
|
||||
#: tfrmmain.lbldownloadzipurl.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbldownloadzipurl.caption"
|
||||
msgid "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"
|
||||
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"
|
||||
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"
|
||||
msgstr "- Download URL is too short or missing"
|
||||
|
||||
#: umain.rsdownloadurli2
|
||||
#: umain.rsdownloadzipurli2
|
||||
#, fuzzy
|
||||
msgctxt "umain.rsdownloadzipurli2"
|
||||
msgid "- Download URL is incomplete"
|
||||
msgstr "- Download URL is incomplete"
|
||||
|
||||
#: umain.rsdownloadurls
|
||||
#: umain.rsdownloadzipurls
|
||||
#, fuzzy
|
||||
msgctxt "umain.rsdownloadzipurls"
|
||||
msgid "- Download URL should start with \"http\""
|
||||
msgstr "- Download URL should start with \"http\""
|
||||
|
||||
|
||||
@ -68,7 +68,9 @@ msgstr ""
|
||||
"Guardar la configuración actual al disco\n"
|
||||
"como un archivo JSON de actualización\n"
|
||||
|
||||
#: tfrmmain.editdownloadurl.hint
|
||||
#: tfrmmain.editdownloadzipurl.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.editdownloadzipurl.hint"
|
||||
msgid ""
|
||||
"Download URL:\n"
|
||||
"Include the FULL url needed to download the package Zip file\n"
|
||||
@ -106,7 +108,9 @@ msgstr "&Guardar Como ..."
|
||||
msgid "Save As"
|
||||
msgstr "Guardar Como"
|
||||
|
||||
#: tfrmmain.lbldownloadurl.caption
|
||||
#: tfrmmain.lbldownloadzipurl.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbldownloadzipurl.caption"
|
||||
msgid "Download URL:"
|
||||
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"
|
||||
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"
|
||||
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"
|
||||
msgstr "- URL de descarga es muy corta o está vacía"
|
||||
|
||||
#: umain.rsdownloadurli2
|
||||
#: umain.rsdownloadzipurli2
|
||||
#, fuzzy
|
||||
msgctxt "umain.rsdownloadzipurli2"
|
||||
msgid "- Download URL is incomplete"
|
||||
msgstr "- URL de descarga incompleta"
|
||||
|
||||
#: umain.rsdownloadurls
|
||||
#: umain.rsdownloadzipurls
|
||||
#, fuzzy
|
||||
msgctxt "umain.rsdownloadzipurls"
|
||||
msgid "- Download URL should start with \"http\""
|
||||
msgstr "- URL de descarga debe empezar con \"http\""
|
||||
|
||||
|
||||
@ -47,7 +47,8 @@ msgid ""
|
||||
"as a JSON update file\n"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.editdownloadurl.hint
|
||||
#: tfrmmain.editdownloadzipurl.hint
|
||||
msgctxt "tfrmmain.editdownloadzipurl.hint"
|
||||
msgid ""
|
||||
"Download URL:\n"
|
||||
"Include the FULL url needed to download the package Zip file\n"
|
||||
@ -80,7 +81,8 @@ msgstr ""
|
||||
msgid "Save As"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.lbldownloadurl.caption
|
||||
#: tfrmmain.lbldownloadzipurl.caption
|
||||
msgctxt "tfrmmain.lbldownloadzipurl.caption"
|
||||
msgid "Download URL:"
|
||||
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"
|
||||
msgstr ""
|
||||
|
||||
#: umain.rsdownloadurld
|
||||
#: umain.rsdownloadzipurld
|
||||
msgctxt "umain.rsdownloadzipurld"
|
||||
msgid "- Download URL does not contain the zipfile name"
|
||||
msgstr ""
|
||||
|
||||
#: umain.rsdownloadurli
|
||||
#: umain.rsdownloadzipurli
|
||||
msgctxt "umain.rsdownloadzipurli"
|
||||
msgid "- Download URL is too short or missing"
|
||||
msgstr ""
|
||||
|
||||
#: umain.rsdownloadurli2
|
||||
#: umain.rsdownloadzipurli2
|
||||
msgctxt "umain.rsdownloadzipurli2"
|
||||
msgid "- Download URL is incomplete"
|
||||
msgstr ""
|
||||
|
||||
#: umain.rsdownloadurls
|
||||
#: umain.rsdownloadzipurls
|
||||
msgctxt "umain.rsdownloadzipurls"
|
||||
msgid "- Download URL should start with \"http\""
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -46,7 +46,7 @@ object frmMain: TfrmMain
|
||||
ParentColor = False
|
||||
TabOrder = 1
|
||||
end
|
||||
object lblDownloadURL: TLabel
|
||||
object lblDownloadZipURL: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 104
|
||||
@ -54,7 +54,7 @@ object frmMain: TfrmMain
|
||||
Caption = 'Download URL:'
|
||||
ParentColor = False
|
||||
end
|
||||
object editDownloadURL: TEdit
|
||||
object editDownloadZipURL: TEdit
|
||||
Left = 8
|
||||
Height = 28
|
||||
Hint = 'Download URL:'#13#10'Include the FULL url needed to download the package Zip 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":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":202110442,"name":"tfrmmain.lbldownloadurl.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":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.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":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":""},
|
||||
|
||||
@ -27,7 +27,8 @@ unit umain;
|
||||
0.1.8.0: Config file change (minesadorada)
|
||||
0.1.9.0: Error check for duplicate lpk entries (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+}
|
||||
|
||||
@ -61,7 +62,7 @@ type
|
||||
|
||||
TPackageData = class(TPersistent)
|
||||
private
|
||||
FDownloadURL: string;
|
||||
FDownloadZipURL: string;
|
||||
FForceUpdate: boolean;
|
||||
FName: string;
|
||||
public
|
||||
@ -69,7 +70,7 @@ type
|
||||
published
|
||||
property Name: string read FName write FName;
|
||||
property ForceUpdate: boolean read FForceUpdate write FForceUpdate;
|
||||
property DownloadURL: string read FDownloadURL write FDownloadURL;
|
||||
property DownloadZipURL: string read FDownloadZipURL write FDownloadZipURL;
|
||||
end;
|
||||
|
||||
TPackage = class(TPersistent)
|
||||
@ -96,12 +97,12 @@ type
|
||||
btnRemove: TButton;
|
||||
cbForceUpdate: TCheckBox;
|
||||
editName: TEdit;
|
||||
editDownloadURL: TEdit;
|
||||
editDownloadZipURL: TEdit;
|
||||
FileOpen1: TFileOpen;
|
||||
FileSaveAs1: TFileSaveAs;
|
||||
lblPackageFiles: TLabel;
|
||||
lblName: TLabel;
|
||||
lblDownloadURL: TLabel;
|
||||
lblDownloadZipURL: TLabel;
|
||||
MainMenu1: TMainMenu;
|
||||
FileMenu: TMenuItem;
|
||||
LoadItem: TMenuItem;
|
||||
@ -181,12 +182,12 @@ resourcestring
|
||||
rsVersion0000 = 'Version (n.n.n.n)';
|
||||
rsFixThenTryAg = 'Fix, then try again.';
|
||||
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';
|
||||
rsUpdateZipNam2 = '- Update zip name missing extension ".zip"';
|
||||
rsDownloadURLI2 = '- Download URL is incomplete';
|
||||
rsDownloadURLS = '- Download URL should start with "http"';
|
||||
rsDownloadURLD = '- Download URL does not contain the zipfile name';
|
||||
rsDownloadZipURLI2 = '- Download URL is incomplete';
|
||||
rsDownloadZipURLS = '- Download URL should start with "http"';
|
||||
rsDownloadZipURLD = '- Download URL does not contain the zipfile name';
|
||||
rsWouldYouLike = 'Would you like to copy %s to the %s folder?';
|
||||
rsSWasSuccessf = '%s was successfully copied to the %s folder';
|
||||
rsSorryCopyOpe = 'Sorry - copy operation was unsuccessful';
|
||||
@ -210,7 +211,7 @@ constructor TPackageData.Create;
|
||||
begin
|
||||
FName := '';
|
||||
FForceUpdate := False;
|
||||
FDownloadURL := '';
|
||||
FDownloadZipURL := '';
|
||||
end;
|
||||
|
||||
{ TfrmMain }
|
||||
@ -393,13 +394,13 @@ begin
|
||||
Screen.PixelsPerInch, Self.Width, ScaleX(Self.Width, Self.DesignTimeDPI));
|
||||
// Enable AutoSize again to get correct Height
|
||||
editName.AutoSize := True;
|
||||
editDownloadURL.AutoSize := True;
|
||||
editDownloadZipURL.AutoSize := True;
|
||||
// Furniture
|
||||
Caption := Application.Title;
|
||||
Icon := Application.Icon;
|
||||
MyPopup.Icon := TPicture(Application.Icon);
|
||||
editname.Text := rsMypackagenam;
|
||||
editDownloadURL.Text := rsHttpWwwUpdat;
|
||||
editDownloadZipURL.Text := rsHttpWwwUpdat;
|
||||
stringPackageFiles.Columns[0].Title.Caption := rsLpkFileName;
|
||||
stringPackageFiles.Columns[1].Title.Caption := rsVersion0000;
|
||||
// Defaults
|
||||
@ -460,7 +461,7 @@ begin
|
||||
if JSONPackage.LoadFromFile(FileOpen1.Dialog.FileName) then
|
||||
begin
|
||||
editName.Text := JSONPackage.Package.Name;
|
||||
editDownloadURL.Text := JSONPackage.Package.DownloadURL;
|
||||
editDownloadZipURL.Text := JSONPackage.Package.DownloadZipURL;
|
||||
cbForceUpdate.Checked := JSONPackage.Package.ForceUpdate;
|
||||
|
||||
stringPackageFiles.RowCount := JSONPackage.PackageFiles.Count + 1;
|
||||
@ -482,7 +483,7 @@ end;
|
||||
procedure TfrmMain.mnu_fileNewClick(Sender: TObject);
|
||||
begin
|
||||
editname.Text := rsMypackagenam;
|
||||
editDownloadURL.Text := rsHttpWwwUpdat;
|
||||
editDownloadZipURL.Text := rsHttpWwwUpdat;
|
||||
cbForceUpdate.Checked := False;
|
||||
stringPackageFiles.RowCount := 1;
|
||||
sJSONFilePath := '';
|
||||
@ -594,10 +595,10 @@ begin
|
||||
Result := True;
|
||||
end;
|
||||
// URL implausable?
|
||||
if (Length(editDownloadURL.Text) < 10) then
|
||||
if (Length(editDownloadZipURL.Text) < 10) then
|
||||
begin
|
||||
slErrorList.Add(rsDownloadURLI);
|
||||
editDownloadURL.Color := clYellow;
|
||||
slErrorList.Add(rsDownloadZipURLI);
|
||||
editDownloadZipURL.Color := clYellow;
|
||||
Result := True;
|
||||
end;
|
||||
// No lpk file?
|
||||
@ -616,26 +617,26 @@ begin
|
||||
Result := True;
|
||||
end;
|
||||
// A full URL?
|
||||
if ((Length(editDownloadURL.Text) > 0) and (RightStr(editDownloadURL.Text, 1) = '/'))
|
||||
if ((Length(editDownloadZipURL.Text) > 0) and (RightStr(editDownloadZipURL.Text, 1) = '/'))
|
||||
then
|
||||
begin
|
||||
slErrorList.Add(rsDownloadURLI2);
|
||||
editDownloadURL.Color := clYellow;
|
||||
slErrorList.Add(rsDownloadZipURLI2);
|
||||
editDownloadZipURL.Color := clYellow;
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
if ((Length(editDownloadURL.Text) > 4) and
|
||||
(LeftStr(LowerCase(editDownloadURL.Text), 4) <> 'http')) then
|
||||
if ((Length(editDownloadZipURL.Text) > 4) and
|
||||
(LeftStr(LowerCase(editDownloadZipURL.Text), 4) <> 'http')) then
|
||||
begin
|
||||
slErrorList.Add(rsDownloadURLS);
|
||||
editDownloadURL.Color := clYellow;
|
||||
slErrorList.Add(rsDownloadZipURLS);
|
||||
editDownloadZipURL.Color := clYellow;
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
if (Pos(Lowercase(editName.Text), Lowercase(editDownloadURL.Text)) = 0) then
|
||||
if (Pos(Lowercase(editName.Text), Lowercase(editDownloadZipURL.Text)) = 0) then
|
||||
begin
|
||||
slErrorList.Add(rsDownloadURLD);
|
||||
editDownloadURL.Color := clYellow;
|
||||
slErrorList.Add(rsDownloadZipURLD);
|
||||
editDownloadZipURL.Color := clYellow;
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
@ -706,7 +707,7 @@ begin
|
||||
JSONPackage := TPackage.Create;
|
||||
try
|
||||
JSONPackage.Package.Name := editName.Text;
|
||||
JSONPackage.Package.DownloadURL := editDownloadURL.Text;
|
||||
JSONPackage.Package.DownloadZipURL := editDownloadZipURL.Text;
|
||||
JSONPackage.Package.ForceUpdate := cbForceUpdate.Checked;
|
||||
|
||||
for i := 1 to stringPackageFiles.RowCount - 1 do
|
||||
@ -766,7 +767,7 @@ procedure TfrmMain.spd_CheckURLClick(Sender: TObject);
|
||||
var
|
||||
bTemp: boolean;
|
||||
begin
|
||||
if OpenURL(editDownloadURL.Text) then
|
||||
if OpenURL(editDownloadZipURL.Text) then
|
||||
begin
|
||||
bTemp := bShowPopupHints;
|
||||
bShowPopupHints := True;
|
||||
|
||||
Reference in New Issue
Block a user