You've already forked lazarus-ccr
To 0.2.2.0 Validation and hints updated
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5478 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
@ -1,6 +1,6 @@
|
||||
[Setup]
|
||||
AppName=External OPM JSON package Editor
|
||||
AppVersion=0.2.1.0
|
||||
AppVersion=0.2.2.0
|
||||
DefaultDirName={pf}\OPMUtilities
|
||||
DefaultGroupName=OPM
|
||||
UninstallDisplayIcon={app}\jsoneditor.exe
|
||||
|
||||
@ -11,40 +11,48 @@ msgstr ""
|
||||
"Language: en\n"
|
||||
"X-Generator: Poedit 1.8.11\n"
|
||||
|
||||
#: tfrmmain.btnadd.caption
|
||||
msgid "Add"
|
||||
msgstr "Add"
|
||||
|
||||
#: tfrmmain.btnadd.hint
|
||||
msgid ""
|
||||
"Add Package File:\n"
|
||||
"The update zip can contain more than one lpk file\n"
|
||||
"deployed to the same place.\n"
|
||||
msgstr ""
|
||||
"Add Package File:\n"
|
||||
"The update zip can contain more than one lpk file\n"
|
||||
"deployed to the same place.\n"
|
||||
|
||||
#: tfrmmain.btnremove.caption
|
||||
msgid "Remove"
|
||||
msgstr "Remove"
|
||||
|
||||
#: tfrmmain.btnremove.hint
|
||||
msgid ""
|
||||
"Remove Package File:\n"
|
||||
"Deletes the last entry from the list\n"
|
||||
msgstr ""
|
||||
"Remove Package File:\n"
|
||||
"Deletes the last entry from the list\n"
|
||||
|
||||
#: tfrmmain.chk_disableinopm.caption
|
||||
msgid "Disable in OPM"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.cmd_addpackagefile.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_addpackagefile.caption"
|
||||
msgid "Add"
|
||||
msgstr "Add"
|
||||
|
||||
#: tfrmmain.cmd_addpackagefile.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_addpackagefile.hint"
|
||||
msgid ""
|
||||
"Add Package File:\n"
|
||||
"The update zip can contain more than one lpk file\n"
|
||||
"deployed to the same place.\n"
|
||||
msgstr ""
|
||||
"Add Package File:\n"
|
||||
"The update zip can contain more than one lpk file\n"
|
||||
"deployed to the same place.\n"
|
||||
|
||||
#: tfrmmain.cmd_close.caption
|
||||
msgid "&Close"
|
||||
msgstr "&Close"
|
||||
|
||||
#: tfrmmain.cmd_removelastpackagefile.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_removelastpackagefile.caption"
|
||||
msgid "Remove"
|
||||
msgstr "Remove"
|
||||
|
||||
#: tfrmmain.cmd_removelastpackagefile.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_removelastpackagefile.hint"
|
||||
msgid ""
|
||||
"Remove Package File:\n"
|
||||
"Deletes the last entry from the list\n"
|
||||
msgstr ""
|
||||
"Remove Package File:\n"
|
||||
"Deletes the last entry from the list\n"
|
||||
|
||||
#: tfrmmain.cmd_save.caption
|
||||
msgid "&Save"
|
||||
msgstr "&Save"
|
||||
@ -57,7 +65,9 @@ msgstr ""
|
||||
"Save the current configuration to disk\n"
|
||||
"as a JSON update file\n"
|
||||
|
||||
#: tfrmmain.editdownloadzipurl.hint
|
||||
#: tfrmmain.edt_downloadzipurl.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.edt_downloadzipurl.hint"
|
||||
msgid ""
|
||||
"Download URL:\n"
|
||||
"Include the FULL url needed to download the package Zip file\n"
|
||||
@ -65,7 +75,9 @@ msgstr ""
|
||||
"Download URL:\n"
|
||||
"Include the FULL url needed to download the package Zip file\n"
|
||||
|
||||
#: tfrmmain.editname.hint
|
||||
#: tfrmmain.edt_updatezipname.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.edt_updatezipname.hint"
|
||||
msgid ""
|
||||
"Update Zip Name:\n"
|
||||
"This is just the filename (not including the path)\n"
|
||||
@ -95,18 +107,24 @@ msgstr "&Save As ..."
|
||||
msgid "Save As"
|
||||
msgstr "Save As"
|
||||
|
||||
#: tfrmmain.lbldownloadzipurl.caption
|
||||
#: tfrmmain.lbl_downloadzipurl.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbl_downloadzipurl.caption"
|
||||
msgid "Download URL:"
|
||||
msgstr "Download URL:"
|
||||
|
||||
#: tfrmmain.lblname.caption
|
||||
msgid "Update Zip Name:"
|
||||
msgstr "Update Zip Name:"
|
||||
|
||||
#: tfrmmain.lblpackagefiles.caption
|
||||
#: tfrmmain.lbl_packagefiles.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbl_packagefiles.caption"
|
||||
msgid "Package Files:"
|
||||
msgstr "Package Files:"
|
||||
|
||||
#: tfrmmain.lbl_updatezipname.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbl_updatezipname.caption"
|
||||
msgid "Update Zip Name:"
|
||||
msgstr "Update Zip Name:"
|
||||
|
||||
#: tfrmmain.loaditem.caption
|
||||
msgid "Load..."
|
||||
msgstr "Load..."
|
||||
@ -221,10 +239,6 @@ msgstr "http://www.updatesite.com/myupdate/mypackagename.zip"
|
||||
msgid "Language changed to \"%s\"."
|
||||
msgstr "Language changed to \"%s\"."
|
||||
|
||||
#: umain.rslpkfilename
|
||||
msgid "lpk FileName"
|
||||
msgstr "lpk FileName"
|
||||
|
||||
#: umain.rsmypackagelpk
|
||||
#, fuzzy
|
||||
#| msgid "mypackagename.zip"
|
||||
@ -277,16 +291,14 @@ msgstr "The .lpk entry #%d is missing the .lpk extension"
|
||||
msgid "The .lpk entry #%d is is absent"
|
||||
msgstr "The .lpk entry #%d is is absent"
|
||||
|
||||
#: umain.rstherearenolp
|
||||
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 "- There are one or more .lpk entries with the same name.%s- Every .lpk entry must have a unique name."
|
||||
|
||||
#: umain.rsthisoptionsh
|
||||
msgid "This option should only be used for crucial updates or bug-fixed packages. Are you OK with that?"
|
||||
#, fuzzy
|
||||
#| 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."
|
||||
msgstr "This option should only be used for crucial updates or bug-fixed packages. Are you OK with that?"
|
||||
|
||||
#: umain.rsturnhintsoff
|
||||
@ -309,19 +321,6 @@ msgstr "- Update zip name is too short or missing"
|
||||
msgid "- Update zip name missing extension \".zip\""
|
||||
msgstr "- Update zip name missing extension \".zip\""
|
||||
|
||||
#: umain.rsversion0000
|
||||
msgctxt "umain.rsversion0000"
|
||||
msgid "Version (n.n.n.n)"
|
||||
msgstr "Version (n.n.n.n)"
|
||||
|
||||
#: umain.rsversionentry
|
||||
msgid "Version Entry #%d is absent"
|
||||
msgstr "Version Entry #%d is absent"
|
||||
|
||||
#: umain.rsversionentry2
|
||||
msgid "Version entry #%d needs to be of the form n.n.n.n"
|
||||
msgstr "Version entry #%d needs to be of the form n.n.n.n"
|
||||
|
||||
#: umain.rswouldyoulike
|
||||
msgid "Would you like to copy %s to the %s folder?"
|
||||
msgstr "Would you like to copy %s to the %s folder?"
|
||||
|
||||
@ -12,11 +12,19 @@ msgstr ""
|
||||
"X-Generator: Poedit 1.8.11\n"
|
||||
"X-Poedit-SourceCharset: UTF-8\n"
|
||||
|
||||
#: tfrmmain.btnadd.caption
|
||||
#: tfrmmain.chk_disableinopm.caption
|
||||
msgid "Disable in OPM"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.cmd_addpackagefile.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_addpackagefile.caption"
|
||||
msgid "Add"
|
||||
msgstr "Agregar"
|
||||
|
||||
#: tfrmmain.btnadd.hint
|
||||
#: tfrmmain.cmd_addpackagefile.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_addpackagefile.hint"
|
||||
msgid ""
|
||||
"Add Package File:\n"
|
||||
"The update zip can contain more than one lpk file\n"
|
||||
@ -26,11 +34,19 @@ msgstr ""
|
||||
"El zip de actualización puede contener mas que un archivo lpk\n"
|
||||
"distribuido en el mismo lugar.\n"
|
||||
|
||||
#: tfrmmain.btnremove.caption
|
||||
#: tfrmmain.cmd_close.caption
|
||||
msgid "&Close"
|
||||
msgstr "&Cerrar"
|
||||
|
||||
#: tfrmmain.cmd_removelastpackagefile.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_removelastpackagefile.caption"
|
||||
msgid "Remove"
|
||||
msgstr "Quitar"
|
||||
|
||||
#: tfrmmain.btnremove.hint
|
||||
#: tfrmmain.cmd_removelastpackagefile.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_removelastpackagefile.hint"
|
||||
msgid ""
|
||||
"Remove Package File:\n"
|
||||
"Deletes the last entry from the list\n"
|
||||
@ -38,14 +54,6 @@ msgstr ""
|
||||
"Quitar archivo de paquete:\n"
|
||||
"Elimina la última entrada de la lista\n"
|
||||
|
||||
#: tfrmmain.chk_disableinopm.caption
|
||||
msgid "Disable in OPM"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.cmd_close.caption
|
||||
msgid "&Close"
|
||||
msgstr "&Cerrar"
|
||||
|
||||
#: tfrmmain.cmd_save.caption
|
||||
msgid "&Save"
|
||||
msgstr "&Guardar"
|
||||
@ -58,7 +66,9 @@ msgstr ""
|
||||
"Guardar la configuración actual en el disco\n"
|
||||
"como archivo de actualización JSON\n"
|
||||
|
||||
#: tfrmmain.editdownloadzipurl.hint
|
||||
#: tfrmmain.edt_downloadzipurl.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.edt_downloadzipurl.hint"
|
||||
msgid ""
|
||||
"Download URL:\n"
|
||||
"Include the FULL url needed to download the package Zip file\n"
|
||||
@ -66,7 +76,9 @@ msgstr ""
|
||||
"URL de Descarga:\n"
|
||||
"Incluye la url COMPLETA necesaria para descargar el archivo zip del paquete\n"
|
||||
|
||||
#: tfrmmain.editname.hint
|
||||
#: tfrmmain.edt_updatezipname.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.edt_updatezipname.hint"
|
||||
msgid ""
|
||||
"Update Zip Name:\n"
|
||||
"This is just the filename (not including the path)\n"
|
||||
@ -96,18 +108,24 @@ msgstr "&Guardar Como ..."
|
||||
msgid "Save As"
|
||||
msgstr "Guardar Como"
|
||||
|
||||
#: tfrmmain.lbldownloadzipurl.caption
|
||||
#: tfrmmain.lbl_downloadzipurl.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbl_downloadzipurl.caption"
|
||||
msgid "Download URL:"
|
||||
msgstr "URL de Descarga:"
|
||||
|
||||
#: tfrmmain.lblname.caption
|
||||
msgid "Update Zip Name:"
|
||||
msgstr "Nombre del Zip de actualización:"
|
||||
|
||||
#: tfrmmain.lblpackagefiles.caption
|
||||
#: tfrmmain.lbl_packagefiles.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbl_packagefiles.caption"
|
||||
msgid "Package Files:"
|
||||
msgstr "Archivos de Paquete:"
|
||||
|
||||
#: tfrmmain.lbl_updatezipname.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbl_updatezipname.caption"
|
||||
msgid "Update Zip Name:"
|
||||
msgstr "Nombre del Zip de actualización:"
|
||||
|
||||
#: tfrmmain.loaditem.caption
|
||||
msgid "Load..."
|
||||
msgstr "Cargar..."
|
||||
@ -222,10 +240,6 @@ msgstr "http://www.sitioactualizacion.com/miactualizacion/nombredemipaquete.zip"
|
||||
msgid "Language changed to \"%s\"."
|
||||
msgstr "Idioma cambiado a \"%s\"."
|
||||
|
||||
#: umain.rslpkfilename
|
||||
msgid "lpk FileName"
|
||||
msgstr "Archivo lpk"
|
||||
|
||||
#: umain.rsmypackagelpk
|
||||
#, fuzzy
|
||||
#| msgid "mypackagename.zip"
|
||||
@ -278,16 +292,14 @@ msgstr "La entrada .lpk #%d no tiene la extensión .lpk"
|
||||
msgid "The .lpk entry #%d is is absent"
|
||||
msgstr "La entrada .lpk #%d está vacía"
|
||||
|
||||
#: umain.rstherearenolp
|
||||
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 "- Hay una o más entradas .lpk con el mismo nombre.%s- Cada entrada .lpk debe tener un nombre único."
|
||||
|
||||
#: umain.rsthisoptionsh
|
||||
msgid "This option should only be used for crucial updates or bug-fixed packages. Are you OK with that?"
|
||||
#, fuzzy
|
||||
#| 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."
|
||||
msgstr "Esta opción debe ser usada solamente para actualizaciones cruciales o paquetes con arreglos de bugs. ¿Estás de acuerdo con esto?"
|
||||
|
||||
#: umain.rsturnhintsoff
|
||||
@ -310,19 +322,6 @@ msgstr "- El nombre del zip es muy corto o está vacío"
|
||||
msgid "- Update zip name missing extension \".zip\""
|
||||
msgstr "- El nombre del zip no tiene la extensión \".zip\""
|
||||
|
||||
#: umain.rsversion0000
|
||||
msgctxt "umain.rsversion0000"
|
||||
msgid "Version (n.n.n.n)"
|
||||
msgstr "Versión (n.n.n.n)"
|
||||
|
||||
#: umain.rsversionentry
|
||||
msgid "Version Entry #%d is absent"
|
||||
msgstr "Entrada de versión #%d está ausente"
|
||||
|
||||
#: umain.rsversionentry2
|
||||
msgid "Version entry #%d needs to be of the form n.n.n.n"
|
||||
msgstr "Entrada de versión #%d necesita ser de la forma n.n.n.n"
|
||||
|
||||
#: umain.rswouldyoulike
|
||||
msgid "Would you like to copy %s to the %s folder?"
|
||||
msgstr "¿Quieres copiar %s a la carpeta %s?"
|
||||
|
||||
@ -10,7 +10,7 @@
|
||||
<IsPartOfProject Value="True"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<CursorPos X="15" Y="19"/>
|
||||
<UsageCount Value="156"/>
|
||||
<UsageCount Value="157"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
@ -20,20 +20,21 @@
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<TopLine Value="34"/>
|
||||
<CursorPos X="48" Y="60"/>
|
||||
<TopLine Value="49"/>
|
||||
<CursorPos X="41" Y="56"/>
|
||||
<ExtraEditorCount Value="1"/>
|
||||
<ExtraEditor1>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<WindowIndex Value="1"/>
|
||||
<TopLine Value="491"/>
|
||||
<CursorPos X="21" Y="508"/>
|
||||
<TopLine Value="390"/>
|
||||
<CursorPos X="44" Y="396"/>
|
||||
</ExtraEditor1>
|
||||
<UsageCount Value="156"/>
|
||||
<UsageCount Value="157"/>
|
||||
<Bookmarks Count="3">
|
||||
<Item0 Y="844" ID="1"/>
|
||||
<Item1 X="44" Y="790"/>
|
||||
<Item2 Y="656" ID="2"/>
|
||||
<Item0 Y="835" ID="1"/>
|
||||
<Item1 Y="781"/>
|
||||
<Item2 Y="650" ID="2"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
@ -41,7 +42,7 @@
|
||||
<Unit2>
|
||||
<Filename Value="ugenericcollection.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UsageCount Value="156"/>
|
||||
<UsageCount Value="157"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="C:\NewPascal\projects\MDSUM\CryptINI\lockini.pas"/>
|
||||
@ -49,7 +50,7 @@
|
||||
<UnitName Value="LockIni"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="40" Y="9"/>
|
||||
<UsageCount Value="74"/>
|
||||
<UsageCount Value="75"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.pas"/>
|
||||
@ -355,7 +356,7 @@
|
||||
<EditorIndex Value="2"/>
|
||||
<TopLine Value="992"/>
|
||||
<CursorPos Y="1012"/>
|
||||
<UsageCount Value="26"/>
|
||||
<UsageCount Value="27"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit45>
|
||||
<Unit46>
|
||||
@ -363,7 +364,7 @@
|
||||
<EditorIndex Value="1"/>
|
||||
<TopLine Value="88"/>
|
||||
<CursorPos X="26" Y="110"/>
|
||||
<UsageCount Value="25"/>
|
||||
<UsageCount Value="26"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit46>
|
||||
</Units>
|
||||
@ -373,123 +374,123 @@
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="826" Column="9" TopLine="806"/>
|
||||
<Caret Line="454" TopLine="436"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="209" Column="44" TopLine="199"/>
|
||||
<Caret Line="70" Column="54" TopLine="43"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="206" Column="24" TopLine="193"/>
|
||||
<Caret Line="909" TopLine="906"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="878" Column="3" TopLine="876"/>
|
||||
<Caret Line="846" Column="11" TopLine="827"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="841" Column="25" TopLine="817"/>
|
||||
<Caret Line="919" Column="40" TopLine="910"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="814" TopLine="811"/>
|
||||
<Caret Line="850" Column="25" TopLine="824"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="454" TopLine="436"/>
|
||||
<Caret Line="844" Column="42" TopLine="825"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="70" Column="54" TopLine="43"/>
|
||||
<Caret Line="852" TopLine="833"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="909" TopLine="906"/>
|
||||
<Caret Line="1165" Column="49" TopLine="1153"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="846" Column="11" TopLine="827"/>
|
||||
<Caret Line="1113" Column="8" TopLine="1112"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="919" Column="40" TopLine="910"/>
|
||||
<Caret Line="850" TopLine="817"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="850" Column="25" TopLine="824"/>
|
||||
<Caret Line="458" Column="25" TopLine="451"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="844" Column="42" TopLine="825"/>
|
||||
<Caret Line="53" Column="42" TopLine="40"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="852" TopLine="833"/>
|
||||
<Caret Line="255" Column="12" TopLine="234"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="1165" Column="49" TopLine="1153"/>
|
||||
<Caret Line="900" Column="3" TopLine="898"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="1113" Column="8" TopLine="1112"/>
|
||||
<Caret Line="1124" TopLine="1104"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="850" TopLine="817"/>
|
||||
<Caret Line="839" Column="9" TopLine="831"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="458" Column="25" TopLine="451"/>
|
||||
<Caret Line="580" Column="39" TopLine="566"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="53" Column="42" TopLine="40"/>
|
||||
<Caret Line="255" Column="17" TopLine="254"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="255" Column="12" TopLine="234"/>
|
||||
<Caret Line="480" Column="67" TopLine="471"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="900" Column="3" TopLine="898"/>
|
||||
<Caret Line="647" Column="23" TopLine="629"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="1124" TopLine="1104"/>
|
||||
<Caret Line="1090" Column="18" TopLine="1065"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="839" Column="9" TopLine="831"/>
|
||||
<Caret Line="697" Column="69" TopLine="683"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="580" Column="39" TopLine="566"/>
|
||||
<Caret Line="695" Column="9" TopLine="675"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="255" Column="17" TopLine="254"/>
|
||||
<Caret Line="5" Column="23"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="480" Column="67" TopLine="471"/>
|
||||
<Caret Line="274" Column="17" TopLine="242"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="647" Column="23" TopLine="629"/>
|
||||
<Caret Line="1133" Column="30" TopLine="1120"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="1090" Column="18" TopLine="1065"/>
|
||||
<Caret Line="1060" Column="50" TopLine="1022"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="697" Column="69" TopLine="683"/>
|
||||
<Caret Line="951"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="695" Column="9" TopLine="675"/>
|
||||
<Caret Line="1100" Column="79" TopLine="1070"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectSession>
|
||||
|
||||
Binary file not shown.
@ -11,40 +11,48 @@ msgstr ""
|
||||
"Language: en\n"
|
||||
"X-Generator: Poedit 1.8.11\n"
|
||||
|
||||
#: tfrmmain.btnadd.caption
|
||||
msgid "Add"
|
||||
msgstr "Add"
|
||||
|
||||
#: tfrmmain.btnadd.hint
|
||||
msgid ""
|
||||
"Add Package File:\n"
|
||||
"The update zip can contain more than one lpk file\n"
|
||||
"deployed to the same place.\n"
|
||||
msgstr ""
|
||||
"Add Package File:\n"
|
||||
"The update zip can contain more than one lpk file\n"
|
||||
"deployed to the same place.\n"
|
||||
|
||||
#: tfrmmain.btnremove.caption
|
||||
msgid "Remove"
|
||||
msgstr "Remove"
|
||||
|
||||
#: tfrmmain.btnremove.hint
|
||||
msgid ""
|
||||
"Remove Package File:\n"
|
||||
"Deletes the last entry from the list\n"
|
||||
msgstr ""
|
||||
"Remove Package File:\n"
|
||||
"Deletes the last entry from the list\n"
|
||||
|
||||
#: tfrmmain.chk_disableinopm.caption
|
||||
msgid "Disable in OPM"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.cmd_addpackagefile.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_addpackagefile.caption"
|
||||
msgid "Add"
|
||||
msgstr "Add"
|
||||
|
||||
#: tfrmmain.cmd_addpackagefile.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_addpackagefile.hint"
|
||||
msgid ""
|
||||
"Add Package File:\n"
|
||||
"The update zip can contain more than one lpk file\n"
|
||||
"deployed to the same place.\n"
|
||||
msgstr ""
|
||||
"Add Package File:\n"
|
||||
"The update zip can contain more than one lpk file\n"
|
||||
"deployed to the same place.\n"
|
||||
|
||||
#: tfrmmain.cmd_close.caption
|
||||
msgid "&Close"
|
||||
msgstr "&Close"
|
||||
|
||||
#: tfrmmain.cmd_removelastpackagefile.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_removelastpackagefile.caption"
|
||||
msgid "Remove"
|
||||
msgstr "Remove"
|
||||
|
||||
#: tfrmmain.cmd_removelastpackagefile.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_removelastpackagefile.hint"
|
||||
msgid ""
|
||||
"Remove Package File:\n"
|
||||
"Deletes the last entry from the list\n"
|
||||
msgstr ""
|
||||
"Remove Package File:\n"
|
||||
"Deletes the last entry from the list\n"
|
||||
|
||||
#: tfrmmain.cmd_save.caption
|
||||
msgid "&Save"
|
||||
msgstr "&Save"
|
||||
@ -57,7 +65,9 @@ msgstr ""
|
||||
"Save the current configuration to disk\n"
|
||||
"as a JSON update file\n"
|
||||
|
||||
#: tfrmmain.editdownloadzipurl.hint
|
||||
#: tfrmmain.edt_downloadzipurl.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.edt_downloadzipurl.hint"
|
||||
msgid ""
|
||||
"Download URL:\n"
|
||||
"Include the FULL url needed to download the package Zip file\n"
|
||||
@ -65,7 +75,9 @@ msgstr ""
|
||||
"Download URL:\n"
|
||||
"Include the FULL url needed to download the package Zip file\n"
|
||||
|
||||
#: tfrmmain.editname.hint
|
||||
#: tfrmmain.edt_updatezipname.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.edt_updatezipname.hint"
|
||||
msgid ""
|
||||
"Update Zip Name:\n"
|
||||
"This is just the filename (not including the path)\n"
|
||||
@ -95,18 +107,24 @@ msgstr "&Save As ..."
|
||||
msgid "Save As"
|
||||
msgstr "Save As"
|
||||
|
||||
#: tfrmmain.lbldownloadzipurl.caption
|
||||
#: tfrmmain.lbl_downloadzipurl.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbl_downloadzipurl.caption"
|
||||
msgid "Download URL:"
|
||||
msgstr "Download URL:"
|
||||
|
||||
#: tfrmmain.lblname.caption
|
||||
msgid "Update Zip Name:"
|
||||
msgstr "Update Zip Name:"
|
||||
|
||||
#: tfrmmain.lblpackagefiles.caption
|
||||
#: tfrmmain.lbl_packagefiles.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbl_packagefiles.caption"
|
||||
msgid "Package Files:"
|
||||
msgstr "Package Files:"
|
||||
|
||||
#: tfrmmain.lbl_updatezipname.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbl_updatezipname.caption"
|
||||
msgid "Update Zip Name:"
|
||||
msgstr "Update Zip Name:"
|
||||
|
||||
#: tfrmmain.loaditem.caption
|
||||
msgid "Load..."
|
||||
msgstr "Load..."
|
||||
@ -221,10 +239,6 @@ msgstr "http://www.updatesite.com/myupdate/mypackagename.zip"
|
||||
msgid "Language changed to \"%s\"."
|
||||
msgstr "Language changed to \"%s\"."
|
||||
|
||||
#: umain.rslpkfilename
|
||||
msgid "lpk FileName"
|
||||
msgstr "lpk FileName"
|
||||
|
||||
#: umain.rsmypackagelpk
|
||||
#, fuzzy
|
||||
#| msgid "mypackagename.zip"
|
||||
@ -277,16 +291,14 @@ msgstr "The .lpk entry #%d is missing the .lpk extension"
|
||||
msgid "The .lpk entry #%d is is absent"
|
||||
msgstr "The .lpk entry #%d is is absent"
|
||||
|
||||
#: umain.rstherearenolp
|
||||
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 "- There are one or more .lpk entries with the same name.%s- Every .lpk entry must have a unique name."
|
||||
|
||||
#: umain.rsthisoptionsh
|
||||
msgid "This option should only be used for crucial updates or bug-fixed packages. Are you OK with that?"
|
||||
#, fuzzy
|
||||
#| 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."
|
||||
msgstr "This option should only be used for crucial updates or bug-fixed packages. Are you OK with that?"
|
||||
|
||||
#: umain.rsturnhintsoff
|
||||
@ -309,19 +321,6 @@ msgstr "- Update zip name is too short or missing"
|
||||
msgid "- Update zip name missing extension \".zip\""
|
||||
msgstr "- Update zip name missing extension \".zip\""
|
||||
|
||||
#: umain.rsversion0000
|
||||
msgctxt "umain.rsversion0000"
|
||||
msgid "Version (n.n.n.n)"
|
||||
msgstr "Version (n.n.n.n)"
|
||||
|
||||
#: umain.rsversionentry
|
||||
msgid "Version Entry #%d is absent"
|
||||
msgstr "Version Entry #%d is absent"
|
||||
|
||||
#: umain.rsversionentry2
|
||||
msgid "Version entry #%d needs to be of the form n.n.n.n"
|
||||
msgstr "Version entry #%d needs to be of the form n.n.n.n"
|
||||
|
||||
#: umain.rswouldyoulike
|
||||
msgid "Would you like to copy %s to the %s folder?"
|
||||
msgstr "Would you like to copy %s to the %s folder?"
|
||||
|
||||
@ -12,11 +12,19 @@ msgstr ""
|
||||
"X-Generator: Poedit 1.8.11\n"
|
||||
"X-Poedit-SourceCharset: UTF-8\n"
|
||||
|
||||
#: tfrmmain.btnadd.caption
|
||||
#: tfrmmain.chk_disableinopm.caption
|
||||
msgid "Disable in OPM"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.cmd_addpackagefile.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_addpackagefile.caption"
|
||||
msgid "Add"
|
||||
msgstr "Agregar"
|
||||
|
||||
#: tfrmmain.btnadd.hint
|
||||
#: tfrmmain.cmd_addpackagefile.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_addpackagefile.hint"
|
||||
msgid ""
|
||||
"Add Package File:\n"
|
||||
"The update zip can contain more than one lpk file\n"
|
||||
@ -26,11 +34,19 @@ msgstr ""
|
||||
"El zip de actualización puede contener mas que un archivo lpk\n"
|
||||
"distribuido en el mismo lugar.\n"
|
||||
|
||||
#: tfrmmain.btnremove.caption
|
||||
#: tfrmmain.cmd_close.caption
|
||||
msgid "&Close"
|
||||
msgstr "&Cerrar"
|
||||
|
||||
#: tfrmmain.cmd_removelastpackagefile.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_removelastpackagefile.caption"
|
||||
msgid "Remove"
|
||||
msgstr "Quitar"
|
||||
|
||||
#: tfrmmain.btnremove.hint
|
||||
#: tfrmmain.cmd_removelastpackagefile.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.cmd_removelastpackagefile.hint"
|
||||
msgid ""
|
||||
"Remove Package File:\n"
|
||||
"Deletes the last entry from the list\n"
|
||||
@ -38,14 +54,6 @@ msgstr ""
|
||||
"Quitar archivo de paquete:\n"
|
||||
"Elimina la última entrada de la lista\n"
|
||||
|
||||
#: tfrmmain.chk_disableinopm.caption
|
||||
msgid "Disable in OPM"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.cmd_close.caption
|
||||
msgid "&Close"
|
||||
msgstr "&Cerrar"
|
||||
|
||||
#: tfrmmain.cmd_save.caption
|
||||
msgid "&Save"
|
||||
msgstr "&Guardar"
|
||||
@ -58,7 +66,9 @@ msgstr ""
|
||||
"Guardar la configuración actual en el disco\n"
|
||||
"como archivo de actualización JSON\n"
|
||||
|
||||
#: tfrmmain.editdownloadzipurl.hint
|
||||
#: tfrmmain.edt_downloadzipurl.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.edt_downloadzipurl.hint"
|
||||
msgid ""
|
||||
"Download URL:\n"
|
||||
"Include the FULL url needed to download the package Zip file\n"
|
||||
@ -66,7 +76,9 @@ msgstr ""
|
||||
"URL de Descarga:\n"
|
||||
"Incluye la url COMPLETA necesaria para descargar el archivo zip del paquete\n"
|
||||
|
||||
#: tfrmmain.editname.hint
|
||||
#: tfrmmain.edt_updatezipname.hint
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.edt_updatezipname.hint"
|
||||
msgid ""
|
||||
"Update Zip Name:\n"
|
||||
"This is just the filename (not including the path)\n"
|
||||
@ -96,18 +108,24 @@ msgstr "&Guardar Como ..."
|
||||
msgid "Save As"
|
||||
msgstr "Guardar Como"
|
||||
|
||||
#: tfrmmain.lbldownloadzipurl.caption
|
||||
#: tfrmmain.lbl_downloadzipurl.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbl_downloadzipurl.caption"
|
||||
msgid "Download URL:"
|
||||
msgstr "URL de Descarga:"
|
||||
|
||||
#: tfrmmain.lblname.caption
|
||||
msgid "Update Zip Name:"
|
||||
msgstr "Nombre del Zip de actualización:"
|
||||
|
||||
#: tfrmmain.lblpackagefiles.caption
|
||||
#: tfrmmain.lbl_packagefiles.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbl_packagefiles.caption"
|
||||
msgid "Package Files:"
|
||||
msgstr "Archivos de Paquete:"
|
||||
|
||||
#: tfrmmain.lbl_updatezipname.caption
|
||||
#, fuzzy
|
||||
msgctxt "tfrmmain.lbl_updatezipname.caption"
|
||||
msgid "Update Zip Name:"
|
||||
msgstr "Nombre del Zip de actualización:"
|
||||
|
||||
#: tfrmmain.loaditem.caption
|
||||
msgid "Load..."
|
||||
msgstr "Cargar..."
|
||||
@ -222,10 +240,6 @@ msgstr "http://www.sitioactualizacion.com/miactualizacion/nombredemipaquete.zip"
|
||||
msgid "Language changed to \"%s\"."
|
||||
msgstr "Idioma cambiado a \"%s\"."
|
||||
|
||||
#: umain.rslpkfilename
|
||||
msgid "lpk FileName"
|
||||
msgstr "Archivo lpk"
|
||||
|
||||
#: umain.rsmypackagelpk
|
||||
#, fuzzy
|
||||
#| msgid "mypackagename.zip"
|
||||
@ -278,16 +292,14 @@ msgstr "La entrada .lpk #%d no tiene la extensión .lpk"
|
||||
msgid "The .lpk entry #%d is is absent"
|
||||
msgstr "La entrada .lpk #%d está vacía"
|
||||
|
||||
#: umain.rstherearenolp
|
||||
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 "- Hay una o más entradas .lpk con el mismo nombre.%s- Cada entrada .lpk debe tener un nombre único."
|
||||
|
||||
#: umain.rsthisoptionsh
|
||||
msgid "This option should only be used for crucial updates or bug-fixed packages. Are you OK with that?"
|
||||
#, fuzzy
|
||||
#| 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."
|
||||
msgstr "Esta opción debe ser usada solamente para actualizaciones cruciales o paquetes con arreglos de bugs. ¿Estás de acuerdo con esto?"
|
||||
|
||||
#: umain.rsturnhintsoff
|
||||
@ -310,19 +322,6 @@ msgstr "- El nombre del zip es muy corto o está vacío"
|
||||
msgid "- Update zip name missing extension \".zip\""
|
||||
msgstr "- El nombre del zip no tiene la extensión \".zip\""
|
||||
|
||||
#: umain.rsversion0000
|
||||
msgctxt "umain.rsversion0000"
|
||||
msgid "Version (n.n.n.n)"
|
||||
msgstr "Versión (n.n.n.n)"
|
||||
|
||||
#: umain.rsversionentry
|
||||
msgid "Version Entry #%d is absent"
|
||||
msgstr "Entrada de versión #%d está ausente"
|
||||
|
||||
#: umain.rsversionentry2
|
||||
msgid "Version entry #%d needs to be of the form n.n.n.n"
|
||||
msgstr "Entrada de versión #%d necesita ser de la forma n.n.n.n"
|
||||
|
||||
#: umain.rswouldyoulike
|
||||
msgid "Would you like to copy %s to the %s folder?"
|
||||
msgstr "¿Quieres copiar %s a la carpeta %s?"
|
||||
|
||||
@ -12,35 +12,39 @@ msgstr ""
|
||||
"X-Generator: Poedit 1.8.11\n"
|
||||
"X-Poedit-SourceCharset: UTF-8\n"
|
||||
|
||||
#: tfrmmain.btnadd.caption
|
||||
#: tfrmmain.chk_disableinopm.caption
|
||||
msgid "Disable in OPM"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.cmd_addpackagefile.caption
|
||||
msgctxt "tfrmmain.cmd_addpackagefile.caption"
|
||||
msgid "Add"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.btnadd.hint
|
||||
#: tfrmmain.cmd_addpackagefile.hint
|
||||
msgctxt "tfrmmain.cmd_addpackagefile.hint"
|
||||
msgid ""
|
||||
"Add Package File:\n"
|
||||
"The update zip can contain more than one lpk file\n"
|
||||
"deployed to the same place.\n"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.btnremove.caption
|
||||
#: tfrmmain.cmd_close.caption
|
||||
msgid "&Close"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.cmd_removelastpackagefile.caption
|
||||
msgctxt "tfrmmain.cmd_removelastpackagefile.caption"
|
||||
msgid "Remove"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.btnremove.hint
|
||||
#: tfrmmain.cmd_removelastpackagefile.hint
|
||||
msgctxt "tfrmmain.cmd_removelastpackagefile.hint"
|
||||
msgid ""
|
||||
"Remove Package File:\n"
|
||||
"Deletes the last entry from the list\n"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.chk_disableinopm.caption
|
||||
msgid "Disable in OPM"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.cmd_close.caption
|
||||
msgid "&Close"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.cmd_save.caption
|
||||
msgid "&Save"
|
||||
msgstr ""
|
||||
@ -51,13 +55,15 @@ msgid ""
|
||||
"as a JSON update file\n"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.editdownloadzipurl.hint
|
||||
#: tfrmmain.edt_downloadzipurl.hint
|
||||
msgctxt "tfrmmain.edt_downloadzipurl.hint"
|
||||
msgid ""
|
||||
"Download URL:\n"
|
||||
"Include the FULL url needed to download the package Zip file\n"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.editname.hint
|
||||
#: tfrmmain.edt_updatezipname.hint
|
||||
msgctxt "tfrmmain.edt_updatezipname.hint"
|
||||
msgid ""
|
||||
"Update Zip Name:\n"
|
||||
"This is just the filename (not including the path)\n"
|
||||
@ -84,16 +90,19 @@ msgstr ""
|
||||
msgid "Save As"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.lbldownloadzipurl.caption
|
||||
#: tfrmmain.lbl_downloadzipurl.caption
|
||||
msgctxt "tfrmmain.lbl_downloadzipurl.caption"
|
||||
msgid "Download URL:"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.lblname.caption
|
||||
msgid "Update Zip Name:"
|
||||
#: tfrmmain.lbl_packagefiles.caption
|
||||
msgctxt "tfrmmain.lbl_packagefiles.caption"
|
||||
msgid "Package Files:"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.lblpackagefiles.caption
|
||||
msgid "Package Files:"
|
||||
#: tfrmmain.lbl_updatezipname.caption
|
||||
msgctxt "tfrmmain.lbl_updatezipname.caption"
|
||||
msgid "Update Zip Name:"
|
||||
msgstr ""
|
||||
|
||||
#: tfrmmain.loaditem.caption
|
||||
@ -207,10 +216,6 @@ msgstr ""
|
||||
msgid "Language changed to \"%s\"."
|
||||
msgstr ""
|
||||
|
||||
#: umain.rslpkfilename
|
||||
msgid "lpk FileName"
|
||||
msgstr ""
|
||||
|
||||
#: umain.rsmypackagelpk
|
||||
msgctxt "umain.rsmypackagelpk"
|
||||
msgid "mypackagename.lpk"
|
||||
@ -261,16 +266,12 @@ msgstr ""
|
||||
msgid "The .lpk entry #%d is is absent"
|
||||
msgstr ""
|
||||
|
||||
#: umain.rstherearenolp
|
||||
msgid "- There are no .lpk files in the list yet"
|
||||
msgstr ""
|
||||
|
||||
#: 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?"
|
||||
msgid "This option should only be used for crucial updates or bug-fixed packages."
|
||||
msgstr ""
|
||||
|
||||
#: umain.rsturnhintsoff
|
||||
@ -293,19 +294,6 @@ msgstr ""
|
||||
msgid "- Update zip name missing extension \".zip\""
|
||||
msgstr ""
|
||||
|
||||
#: umain.rsversion0000
|
||||
msgctxt "umain.rsversion0000"
|
||||
msgid "Version (n.n.n.n)"
|
||||
msgstr ""
|
||||
|
||||
#: umain.rsversionentry
|
||||
msgid "Version Entry #%d is absent"
|
||||
msgstr ""
|
||||
|
||||
#: umain.rsversionentry2
|
||||
msgid "Version entry #%d needs to be of the form n.n.n.n"
|
||||
msgstr ""
|
||||
|
||||
#: umain.rswouldyoulike
|
||||
msgid "Would you like to copy %s to the %s folder?"
|
||||
msgstr ""
|
||||
|
||||
@ -19,7 +19,7 @@ object frmMain: TfrmMain
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.7'
|
||||
Scaled = True
|
||||
object lblName: TLabel
|
||||
object lbl_UpdateZipName: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 8
|
||||
@ -27,7 +27,7 @@ object frmMain: TfrmMain
|
||||
Caption = 'Update Zip Name:'
|
||||
ParentColor = False
|
||||
end
|
||||
object editName: TEdit
|
||||
object edt_UpdateZipName: TEdit
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideRight.Control = sb_editName
|
||||
Left = 12
|
||||
@ -41,7 +41,7 @@ object frmMain: TfrmMain
|
||||
Color = clWindow
|
||||
TabOrder = 0
|
||||
end
|
||||
object lblDownloadZipURL: TLabel
|
||||
object lbl_DownloadZipURL: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 64
|
||||
@ -49,7 +49,7 @@ object frmMain: TfrmMain
|
||||
Caption = 'Download URL:'
|
||||
ParentColor = False
|
||||
end
|
||||
object editDownloadZipURL: TEdit
|
||||
object edt_DownloadZipURL: TEdit
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideRight.Control = spd_CheckURL
|
||||
Left = 12
|
||||
@ -63,8 +63,8 @@ object frmMain: TfrmMain
|
||||
Color = clWindow
|
||||
TabOrder = 1
|
||||
end
|
||||
object lblPackageFiles: TLabel
|
||||
AnchorSideRight.Control = btnAdd
|
||||
object lbl_PackageFiles: TLabel
|
||||
AnchorSideRight.Control = cmd_AddPackageFile
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 130
|
||||
@ -76,8 +76,8 @@ object frmMain: TfrmMain
|
||||
Caption = 'Package Files:'
|
||||
ParentColor = False
|
||||
end
|
||||
object btnAdd: TButton
|
||||
AnchorSideRight.Control = btnRemove
|
||||
object cmd_AddPackageFile: TButton
|
||||
AnchorSideRight.Control = cmd_RemoveLastPackageFile
|
||||
Left = 420
|
||||
Height = 25
|
||||
Hint = 'Add Package File:'#13#10'The update zip can contain more than one lpk file'#13#10'deployed to the same place.'
|
||||
@ -86,10 +86,10 @@ object frmMain: TfrmMain
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'Add'
|
||||
OnClick = btnAddClick
|
||||
OnClick = cmd_AddPackageFileClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object btnRemove: TButton
|
||||
object cmd_RemoveLastPackageFile: TButton
|
||||
Left = 525
|
||||
Height = 25
|
||||
Hint = 'Remove Package File:'#13#10'Deletes the last entry from the list'
|
||||
@ -98,7 +98,7 @@ object frmMain: TfrmMain
|
||||
Anchors = [akTop]
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'Remove'
|
||||
OnClick = btnRemoveClick
|
||||
OnClick = cmd_RemoveLastPackageFileClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object cmd_Close: TBitBtn
|
||||
@ -113,11 +113,10 @@ object frmMain: TfrmMain
|
||||
Caption = '&Close'
|
||||
Kind = bkClose
|
||||
ModalResult = 11
|
||||
OnClick = cmd_CloseClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object cmd_save: TBitBtn
|
||||
AnchorSideTop.Control = btnAdd
|
||||
AnchorSideTop.Control = cmd_AddPackageFile
|
||||
Left = 280
|
||||
Height = 30
|
||||
Hint = 'Save the current configuration to disk'#13#10'as a JSON update file'
|
||||
@ -271,7 +270,7 @@ object frmMain: TfrmMain
|
||||
end
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Left = 136
|
||||
Left = 168
|
||||
object FileSaveAs1: TFileSaveAs
|
||||
Category = 'File'
|
||||
Caption = '&Save As ...'
|
||||
@ -286,7 +285,7 @@ object frmMain: TfrmMain
|
||||
ShortCut = 16463
|
||||
end
|
||||
end
|
||||
object mypopup: TPopupNotifier
|
||||
object popup_hint: TPopupNotifier
|
||||
Color = 14483455
|
||||
Icon.Data = {
|
||||
07544269746D617000000000
|
||||
@ -294,6 +293,6 @@ object frmMain: TfrmMain
|
||||
Text = 'Text'
|
||||
Title = 'Caption'
|
||||
Visible = False
|
||||
Left = 168
|
||||
Left = 240
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,13 +1,13 @@
|
||||
{"version":1,"strings":[
|
||||
{"hash":183952426,"name":"tfrmmain.lblname.caption","sourcebytes":[85,112,100,97,116,101,32,90,105,112,32,78,97,109,101,58],"value":"Update Zip Name:"},
|
||||
{"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":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":61051198,"name":"tfrmmain.btnadd.hint","sourcebytes":[65,100,100,32,80,97,99,107,97,103,101,32,70,105,108,101,58,13,10,84,104,101,32,117,112,100,97,116,101,32,122,105,112,32,99,97,110,32,99,111,110,116,97,105,110,32,109,111,114,101,32,116,104,97,110,32,111,110,101,32,108,112,107,32,102,105,108,101,13,10,100,101,112,108,111,121,101,100,32,116,111,32,116,104,101,32,115,97,109,101,32,112,108,97,99,101,46],"value":"Add Package File:\r\nThe update zip can contain more than one lpk file\r\ndeployed to the same place."},
|
||||
{"hash":18340,"name":"tfrmmain.btnadd.caption","sourcebytes":[65,100,100],"value":"Add"},
|
||||
{"hash":3931908,"name":"tfrmmain.btnremove.hint","sourcebytes":[82,101,109,111,118,101,32,80,97,99,107,97,103,101,32,70,105,108,101,58,13,10,68,101,108,101,116,101,115,32,116,104,101,32,108,97,115,116,32,101,110,116,114,121,32,102,114,111,109,32,116,104,101,32,108,105,115,116],"value":"Remove Package File:\r\nDeletes the last entry from the list"},
|
||||
{"hash":93079237,"name":"tfrmmain.btnremove.caption","sourcebytes":[82,101,109,111,118,101],"value":"Remove"},
|
||||
{"hash":183952426,"name":"tfrmmain.lbl_updatezipname.caption","sourcebytes":[85,112,100,97,116,101,32,90,105,112,32,78,97,109,101,58],"value":"Update Zip Name:"},
|
||||
{"hash":260482813,"name":"tfrmmain.edt_updatezipname.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":202110442,"name":"tfrmmain.lbl_downloadzipurl.caption","sourcebytes":[68,111,119,110,108,111,97,100,32,85,82,76,58],"value":"Download URL:"},
|
||||
{"hash":265021141,"name":"tfrmmain.edt_downloadzipurl.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.lbl_packagefiles.caption","sourcebytes":[80,97,99,107,97,103,101,32,70,105,108,101,115,58],"value":"Package Files:"},
|
||||
{"hash":61051198,"name":"tfrmmain.cmd_addpackagefile.hint","sourcebytes":[65,100,100,32,80,97,99,107,97,103,101,32,70,105,108,101,58,13,10,84,104,101,32,117,112,100,97,116,101,32,122,105,112,32,99,97,110,32,99,111,110,116,97,105,110,32,109,111,114,101,32,116,104,97,110,32,111,110,101,32,108,112,107,32,102,105,108,101,13,10,100,101,112,108,111,121,101,100,32,116,111,32,116,104,101,32,115,97,109,101,32,112,108,97,99,101,46],"value":"Add Package File:\r\nThe update zip can contain more than one lpk file\r\ndeployed to the same place."},
|
||||
{"hash":18340,"name":"tfrmmain.cmd_addpackagefile.caption","sourcebytes":[65,100,100],"value":"Add"},
|
||||
{"hash":3931908,"name":"tfrmmain.cmd_removelastpackagefile.hint","sourcebytes":[82,101,109,111,118,101,32,80,97,99,107,97,103,101,32,70,105,108,101,58,13,10,68,101,108,101,116,101,115,32,116,104,101,32,108,97,115,116,32,101,110,116,114,121,32,102,114,111,109,32,116,104,101,32,108,105,115,116],"value":"Remove Package File:\r\nDeletes the last entry from the list"},
|
||||
{"hash":93079237,"name":"tfrmmain.cmd_removelastpackagefile.caption","sourcebytes":[82,101,109,111,118,101],"value":"Remove"},
|
||||
{"hash":44709525,"name":"tfrmmain.cmd_close.caption","sourcebytes":[38,67,108,111,115,101],"value":"&Close"},
|
||||
{"hash":29947669,"name":"tfrmmain.cmd_save.hint","sourcebytes":[83,97,118,101,32,116,104,101,32,99,117,114,114,101,110,116,32,99,111,110,102,105,103,117,114,97,116,105,111,110,32,116,111,32,100,105,115,107,13,10,97,115,32,97,32,74,83,79,78,32,117,112,100,97,116,101,32,102,105,108,101],"value":"Save the current configuration to disk\r\nas a JSON update file"},
|
||||
{"hash":2857157,"name":"tfrmmain.cmd_save.caption","sourcebytes":[38,83,97,118,101],"value":"&Save"},
|
||||
|
||||
@ -60,11 +60,9 @@ unit umain;
|
||||
In Laz 1.7 DPIAwareness configured
|
||||
0.2.0.0: Refactored GUI(minesadorada)
|
||||
0.2.1.0: Added scrollbox to contain package info (GetMem)
|
||||
0.2.2.0: Hints and Validation updated
|
||||
0.2.2.0: Hints and Validation updated (minesadorada)
|
||||
0.2.3.0: ToDo
|
||||
- sort out resourcestrings
|
||||
- Update Validation
|
||||
- Update hints
|
||||
}
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
@ -105,14 +103,14 @@ type
|
||||
TUpdatePackageData = class(TPersistent)
|
||||
private
|
||||
FDownloadZipURL: string;
|
||||
FDisableInOPM: Boolean;
|
||||
FDisableInOPM: boolean;
|
||||
FName: string;
|
||||
public
|
||||
constructor Create;
|
||||
published
|
||||
property Name: string read FName write FName;
|
||||
property DownloadZipURL: string read FDownloadZipURL write FDownloadZipURL;
|
||||
property DisableInOPM:Boolean read FDisableInOPM write FDisableInOPM;
|
||||
property DisableInOPM: boolean read FDisableInOPM write FDisableInOPM;
|
||||
end;
|
||||
|
||||
{ TUpdatePackage }
|
||||
@ -140,15 +138,15 @@ type
|
||||
chk_DisableInOPM: TCheckBox;
|
||||
cmd_Close: TBitBtn;
|
||||
cmd_save: TBitBtn;
|
||||
btnAdd: TButton;
|
||||
btnRemove: TButton;
|
||||
editName: TEdit;
|
||||
editDownloadZipURL: TEdit;
|
||||
cmd_AddPackageFile: TButton;
|
||||
cmd_RemoveLastPackageFile: TButton;
|
||||
edt_UpdateZipName: TEdit;
|
||||
edt_DownloadZipURL: TEdit;
|
||||
FileOpen1: TFileOpen;
|
||||
FileSaveAs1: TFileSaveAs;
|
||||
lblPackageFiles: TLabel;
|
||||
lblName: TLabel;
|
||||
lblDownloadZipURL: TLabel;
|
||||
lbl_PackageFiles: TLabel;
|
||||
lbl_UpdateZipName: TLabel;
|
||||
lbl_DownloadZipURL: TLabel;
|
||||
MainMenu1: TMainMenu;
|
||||
FileMenu: TMenuItem;
|
||||
LoadItem: TMenuItem;
|
||||
@ -162,16 +160,13 @@ type
|
||||
mnu_helpShowHints: TMenuItem;
|
||||
mnu_help: TMenuItem;
|
||||
mnu_fileSave: TMenuItem;
|
||||
mypopup: TPopupNotifier;
|
||||
popup_hint: TPopupNotifier;
|
||||
SaveAsItem: TMenuItem;
|
||||
sb_editName: TSpeedButton;
|
||||
sbPackageFiles: TScrollBox;
|
||||
spd_CheckURL: TSpeedButton;
|
||||
procedure btnAddClick(Sender: TObject);
|
||||
procedure btnRemoveClick(Sender: TObject);
|
||||
procedure cbForceNotifyMouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: integer);
|
||||
procedure cmd_CloseClick(Sender: TObject);
|
||||
procedure cmd_AddPackageFileClick(Sender: TObject);
|
||||
procedure cmd_RemoveLastPackageFileClick(Sender: TObject);
|
||||
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
@ -198,19 +193,19 @@ type
|
||||
CFG: TIniFile;
|
||||
INIFilePath: string;
|
||||
// Start of Package Information controls
|
||||
ArrayGrpBox:Array of TGroupBox;
|
||||
ArrayLblPackageFileName:Array of TLabel;
|
||||
ArrayEdtPackageFileName:Array of TEdit;
|
||||
ArrayLblPackageVersion:Array of TLabel;
|
||||
ArraySpinEditV1:Array of TSpinEdit;
|
||||
ArraySpinEditV2:Array of TSpinEdit;
|
||||
ArraySpinEditV3:Array of TSpinEdit;
|
||||
ArraySpinEditV4:Array of TSpinEdit;
|
||||
ArrayChkBoxForceNotify:Array of TCheckBox;
|
||||
ArraySpinEditInternalVersion:Array of TSpinEdit;
|
||||
ArrayLblPackageInternalVersion:Array of TLabel;
|
||||
ArrayGrpBox: array of TGroupBox;
|
||||
ArrayLblPackageFileName: array of TLabel;
|
||||
ArrayEdtPackageFileName: array of TEdit;
|
||||
ArrayLblPackageVersion: array of TLabel;
|
||||
ArraySpinEditV1: array of TSpinEdit;
|
||||
ArraySpinEditV2: array of TSpinEdit;
|
||||
ArraySpinEditV3: array of TSpinEdit;
|
||||
ArraySpinEditV4: array of TSpinEdit;
|
||||
ArrayChkBoxForceNotify: array of TCheckBox;
|
||||
ArraySpinEditInternalVersion: array of TSpinEdit;
|
||||
ArrayLblPackageInternalVersion: array of TLabel;
|
||||
// End of Package Information controls
|
||||
iNumLpkFilesVisible:Integer;
|
||||
iNumLpkFilesVisible: integer;
|
||||
procedure AddPackageFileToList;
|
||||
procedure RemovePackageFileFromList;
|
||||
procedure ResetPackageFileControlsToOne;
|
||||
@ -218,6 +213,8 @@ type
|
||||
procedure DestroyControlArrays;
|
||||
procedure RemoveLastControlArray;
|
||||
function ValidationFailed: boolean;
|
||||
procedure ProcessNotify(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: integer);
|
||||
procedure CtrlShowPopup(Sender: TObject);
|
||||
procedure CtrlHidePopup(Sender: TObject);
|
||||
procedure CtrlSetUpPopupHandlers;
|
||||
@ -257,12 +254,9 @@ resourcestring
|
||||
rsMypackagenam = 'mypackagename.zip';
|
||||
rsMypackagelpk = 'mypackagename.lpk';
|
||||
rsHttpWwwUpdat = 'http://www.updatesite.com/myupdate/mypackagename.zip';
|
||||
rsLpkFileName = 'lpk FileName';
|
||||
rsVersion0000 = 'Version (n.n.n.n)';
|
||||
rsFixThenTryAg = 'Fix, then try again.';
|
||||
rsUpdateZipNam = '- Update zip name 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"';
|
||||
rsDownloadZipURLI2 = '- Download URL is incomplete';
|
||||
rsDownloadZipURLS = '- Download URL should start with "http"';
|
||||
@ -272,12 +266,10 @@ resourcestring
|
||||
rsSorryCopyOpe = 'Sorry - copy operation was unsuccessful';
|
||||
rsCompiledWith2 = 'Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s -' +
|
||||
' %s platform%s%s';
|
||||
rsVersionEntry = 'Version Entry #%d is absent';
|
||||
rsVersionEntry2 = 'Version entry #%d needs to be of the form n.n.n.n';
|
||||
rsTheLpkEntryD = 'The .lpk entry #%d is missing the .lpk extension';
|
||||
rsTheLpkEntryD2 = 'The .lpk entry #%d is is absent';
|
||||
rsThisOptionSh =
|
||||
'This option should only be used for crucial updates or bug-fixed packages. Are you OK with that?';
|
||||
'This option should only be used for crucial updates or bug-fixed packages.';
|
||||
rsLanguageChan = 'Language changed to "%s".';
|
||||
rsSorryThisLan = 'Sorry, this language is unavailable at this time.';
|
||||
rsYouMayNeedTo = '(You may need to restart the app to see the change)';
|
||||
@ -303,7 +295,7 @@ end;
|
||||
procedure TfrmMain.CtrlHidePopup(Sender: TObject);
|
||||
// Get rid of highlighting
|
||||
begin
|
||||
mypopup.Hide;
|
||||
popup_hint.Hide;
|
||||
slErrorList.Clear;
|
||||
if Sender.ClassName <> 'TLabel' then
|
||||
TControl(Sender).Color := clWindow;
|
||||
@ -314,19 +306,19 @@ procedure TfrmMain.CtrlShowPopup(Sender: TObject);
|
||||
begin
|
||||
if not bShowPopupHints then
|
||||
exit;
|
||||
MyPopup.Text := '';
|
||||
MyPopup.Title := '';
|
||||
popup_hint.Text := '';
|
||||
popup_hint.Title := '';
|
||||
if (Sender.InheritsFrom(TControl) = False) then
|
||||
exit;
|
||||
|
||||
myPopup.Text := TControl(Sender).Hint;
|
||||
if (MyPopup.Text <> '') then
|
||||
popup_hint.Text := TControl(Sender).Hint;
|
||||
if (popup_hint.Text <> '') then
|
||||
begin
|
||||
mypopup.Title := rsHelpAndInfor;
|
||||
mypopup.Text := mypopup.Text;
|
||||
popup_hint.Title := rsHelpAndInfor;
|
||||
popup_hint.Text := popup_hint.Text;
|
||||
if bIsVirgin then
|
||||
mypopup.Text := mypopup.Text + LineEnding + rsTurnHintsOff;
|
||||
mypopup.showatpos(Mouse.CursorPos.X, Mouse.CursorPos.Y);
|
||||
popup_hint.Text := popup_hint.Text + LineEnding + rsTurnHintsOff;
|
||||
popup_hint.showatpos(Mouse.CursorPos.X, Mouse.CursorPos.Y);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -392,31 +384,33 @@ begin
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMain.DestroyControlArrays;
|
||||
Var i:Integer;
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
// This could be done with one loop
|
||||
For i:=0 to High(ArraySpinEditInternalVersion) do
|
||||
for i := 0 to High(ArraySpinEditInternalVersion) do
|
||||
FreeAndNil(ArraySpinEditInternalVersion[i]);
|
||||
For i:=0 to High(ArrayLblPackageInternalVersion) do
|
||||
for i := 0 to High(ArrayLblPackageInternalVersion) do
|
||||
FreeAndNil(ArrayLblPackageInternalVersion[i]);
|
||||
For i:=0 to High(ArrayChkBoxForceNotify) do
|
||||
for i := 0 to High(ArrayChkBoxForceNotify) do
|
||||
FreeAndNil(ArrayChkBoxForceNotify[i]);
|
||||
For i:=0 to High(ArraySpinEditV4) do
|
||||
for i := 0 to High(ArraySpinEditV4) do
|
||||
FreeAndNil(ArraySpinEditV4[i]);
|
||||
For i:=0 to High(ArraySpinEditV3) do
|
||||
for i := 0 to High(ArraySpinEditV3) do
|
||||
FreeAndNil(ArraySpinEditV3[i]);
|
||||
For i:=0 to High(ArraySpinEditV2) do
|
||||
for i := 0 to High(ArraySpinEditV2) do
|
||||
FreeAndNil(ArraySpinEditV2[i]);
|
||||
For i:=0 to High(ArraySpinEditV1) do
|
||||
for i := 0 to High(ArraySpinEditV1) do
|
||||
FreeAndNil(ArraySpinEditV1[i]);
|
||||
For i:=0 to High(ArrayLblPackageVersion) do
|
||||
for i := 0 to High(ArrayLblPackageVersion) do
|
||||
FreeAndNil(ArrayLblPackageVersion[i]);
|
||||
For i:=0 to High(ArrayEdtPackageFileName) do
|
||||
for i := 0 to High(ArrayEdtPackageFileName) do
|
||||
FreeAndNil(ArrayEdtPackageFileName[i]);
|
||||
For i:=0 to High(ArrayLblPackageFileName) do
|
||||
for i := 0 to High(ArrayLblPackageFileName) do
|
||||
FreeAndNil(ArrayLblPackageFileName[i]);
|
||||
For i:=0 to High(ArrayGrpBox) do
|
||||
for i := 0 to High(ArrayGrpBox) do
|
||||
FreeAndNil(ArrayGrpBox[i]);
|
||||
end;
|
||||
|
||||
@ -452,18 +446,20 @@ begin
|
||||
SetLength(ArrayLblPackageInternalVersion, Succ(iNumLpkFilesVisible));
|
||||
SetLength(ArraySpinEditInternalVersion, Succ(iNumLpkFilesVisible));
|
||||
|
||||
With ArrayGrpBox[iNumLpkFilesVisible] do
|
||||
with ArrayGrpBox[iNumLpkFilesVisible] do
|
||||
begin
|
||||
Caption := Format('Package #%d Information', [Succ(iNumLpkFilesVisible)]);
|
||||
if (iNumLpkFilesVisible > 0) then
|
||||
SetBounds(8,ArrayGrpBox[Pred(iNumLpkFilesVisible)].Top + ArrayGrpBox[Pred(iNumLpkFilesVisible)].Height + 10,frmMain.Width - 16,100)
|
||||
SetBounds(8, ArrayGrpBox[Pred(iNumLpkFilesVisible)].Top +
|
||||
ArrayGrpBox[Pred(iNumLpkFilesVisible)].Height + 10, frmMain.Width - 16, 100)
|
||||
else
|
||||
SetBounds(8,btnAdd.Top + btnAdd.Height + 10,frmMain.Width - 16,100);
|
||||
SetBounds(8, cmd_AddPackageFile.Top + cmd_AddPackageFile.Height + 10,
|
||||
frmMain.Width - 16, 100);
|
||||
Visible := False;
|
||||
Tag := Pred(iNumLpkFilesVisible);
|
||||
// Label - Package name
|
||||
ArrayLblPackageFileName[iNumLpkFilesVisible]:=TLabel.Create(Nil);
|
||||
With ArrayLblPackageFileName[iNumLpkFilesVisible] do
|
||||
ArrayLblPackageFileName[iNumLpkFilesVisible] := TLabel.Create(nil);
|
||||
with ArrayLblPackageFileName[iNumLpkFilesVisible] do
|
||||
begin
|
||||
Caption := 'Filename: ';
|
||||
SetBounds(8, 10, 50, 23);
|
||||
@ -476,8 +472,8 @@ begin
|
||||
Parent := ArrayGrpBox[iNumLpkFilesVisible];
|
||||
end;
|
||||
// EditBox - Package name
|
||||
ArrayEdtPackageFileName[iNumLpkFilesVisible]:=TEdit.Create(Nil);
|
||||
With ArrayEdtPackageFileName[iNumLpkFilesVisible] do
|
||||
ArrayEdtPackageFileName[iNumLpkFilesVisible] := TEdit.Create(nil);
|
||||
with ArrayEdtPackageFileName[iNumLpkFilesVisible] do
|
||||
begin
|
||||
Text := rsMypackagelpk;
|
||||
SetBounds(64, 8, 256, 23);
|
||||
@ -491,8 +487,8 @@ begin
|
||||
Parent := ArrayGrpBox[iNumLpkFilesVisible];
|
||||
end;
|
||||
// Label - Package Version
|
||||
ArrayLblPackageVersion[iNumLpkFilesVisible]:=TLabel.Create(Nil);
|
||||
With ArrayLblPackageVersion[iNumLpkFilesVisible] do
|
||||
ArrayLblPackageVersion[iNumLpkFilesVisible] := TLabel.Create(nil);
|
||||
with ArrayLblPackageVersion[iNumLpkFilesVisible] do
|
||||
begin
|
||||
Caption := 'Version: ';
|
||||
SetBounds(330, 10, 50, 23);
|
||||
@ -505,8 +501,8 @@ begin
|
||||
Parent := ArrayGrpBox[iNumLpkFilesVisible];
|
||||
end;
|
||||
// SpinEdit V1
|
||||
ArraySpinEditV1[iNumLpkFilesVisible]:=TSpinEdit.Create(Nil);
|
||||
With ArraySpinEditV1[iNumLpkFilesVisible] do
|
||||
ArraySpinEditV1[iNumLpkFilesVisible] := TSpinEdit.Create(nil);
|
||||
with ArraySpinEditV1[iNumLpkFilesVisible] do
|
||||
begin
|
||||
Value := 0;
|
||||
SetBounds(380, 8, 40, 20);
|
||||
@ -520,8 +516,8 @@ begin
|
||||
Parent := ArrayGrpBox[iNumLpkFilesVisible];
|
||||
end;
|
||||
// SpinEdit V2
|
||||
ArraySpinEditV2[iNumLpkFilesVisible]:=TSpinEdit.Create(Nil);
|
||||
With ArraySpinEditV2[iNumLpkFilesVisible] do
|
||||
ArraySpinEditV2[iNumLpkFilesVisible] := TSpinEdit.Create(nil);
|
||||
with ArraySpinEditV2[iNumLpkFilesVisible] do
|
||||
begin
|
||||
Value := 0;
|
||||
SetBounds(430, 8, 40, 20);
|
||||
@ -536,8 +532,8 @@ begin
|
||||
Parent := ArrayGrpBox[iNumLpkFilesVisible];
|
||||
end;
|
||||
// SpinEdit V3
|
||||
ArraySpinEditV3[iNumLpkFilesVisible]:=TSpinEdit.Create(Nil);
|
||||
With ArraySpinEditV3[iNumLpkFilesVisible] do
|
||||
ArraySpinEditV3[iNumLpkFilesVisible] := TSpinEdit.Create(nil);
|
||||
with ArraySpinEditV3[iNumLpkFilesVisible] do
|
||||
begin
|
||||
Value := 0;
|
||||
SetBounds(480, 8, 40, 20);
|
||||
@ -552,8 +548,8 @@ begin
|
||||
Parent := ArrayGrpBox[iNumLpkFilesVisible];
|
||||
end;
|
||||
// SpinEdit V4
|
||||
ArraySpinEditV4[iNumLpkFilesVisible]:=TSpinEdit.Create(Nil);
|
||||
With ArraySpinEditV4[iNumLpkFilesVisible] do
|
||||
ArraySpinEditV4[iNumLpkFilesVisible] := TSpinEdit.Create(nil);
|
||||
with ArraySpinEditV4[iNumLpkFilesVisible] do
|
||||
begin
|
||||
Value := 0;
|
||||
SetBounds(530, 8, 40, 20);
|
||||
@ -568,8 +564,8 @@ begin
|
||||
Parent := ArrayGrpBox[iNumLpkFilesVisible];
|
||||
end;
|
||||
// ChkBox Notify
|
||||
ArrayChkBoxForceNotify[iNumLpkFilesVisible]:=TCheckBox.Create(Nil);
|
||||
With ArrayChkBoxForceNotify[iNumLpkFilesVisible] do
|
||||
ArrayChkBoxForceNotify[iNumLpkFilesVisible] := TCheckBox.Create(nil);
|
||||
with ArrayChkBoxForceNotify[iNumLpkFilesVisible] do
|
||||
begin
|
||||
Checked := False;
|
||||
Caption := 'Notify Update';
|
||||
@ -579,13 +575,14 @@ begin
|
||||
OnMouseEnter := @CtrlShowPopup;
|
||||
OnMouseLeave := @CtrlHidePopup;
|
||||
OnClick := @CtrlHidePopup;
|
||||
OnMouseUp := @ProcessNotify;
|
||||
OnEditingDone := @CtrlMakeDirty;
|
||||
Hint:='Check this if you don''t want to incrememt the version';
|
||||
Hint := 'Check this if you don''t want to incrememt the package version';
|
||||
Parent := ArrayGrpBox[iNumLpkFilesVisible];
|
||||
end;
|
||||
// Label Internal version
|
||||
ArrayLblPackageInternalVersion[iNumLpkFilesVisible]:=TLabel.Create(Nil);
|
||||
With ArrayLblPackageInternalVersion[iNumLpkFilesVisible] do
|
||||
ArrayLblPackageInternalVersion[iNumLpkFilesVisible] := TLabel.Create(nil);
|
||||
with ArrayLblPackageInternalVersion[iNumLpkFilesVisible] do
|
||||
begin
|
||||
Caption := 'Internal Version: ';
|
||||
SetBounds(160, 50, 40, 23);
|
||||
@ -598,10 +595,10 @@ begin
|
||||
Parent := ArrayGrpBox[iNumLpkFilesVisible];
|
||||
end;
|
||||
// SpinEdit Internal Version
|
||||
ArraySpinEditInternalVersion[iNumLpkFilesVisible]:=TSpinEdit.Create(Nil);
|
||||
With ArraySpinEditInternalVersion[iNumLpkFilesVisible] do
|
||||
ArraySpinEditInternalVersion[iNumLpkFilesVisible] := TSpinEdit.Create(nil);
|
||||
with ArraySpinEditInternalVersion[iNumLpkFilesVisible] do
|
||||
begin
|
||||
Value:=0;
|
||||
Value := 1;
|
||||
SetBounds(260, 48, 40, 20);
|
||||
Visible := True;
|
||||
Tag := Pred(iNumLpkFilesVisible);
|
||||
@ -619,7 +616,8 @@ end;
|
||||
|
||||
procedure TfrmMain.RemoveLastControlArray;
|
||||
// Uses iLpkFilesCount
|
||||
Var iLast:Integer;
|
||||
var
|
||||
iLast: integer;
|
||||
begin
|
||||
iLast := High(ArrayGrpBox);
|
||||
// Makes the group control invisible
|
||||
@ -656,7 +654,7 @@ begin
|
||||
AddNewControlArray; // make another one
|
||||
|
||||
// Makes it visible
|
||||
ArrayGrpBox[High(ArrayGrpBox)].Visible:=TRUE;
|
||||
ArrayGrpBox[High(ArrayGrpBox)].Visible := True;
|
||||
ArrayGrpBox[High(ArrayGrpBox)].Align := alTop;
|
||||
Inc(iNumLpkFilesVisible);
|
||||
CtrlSetUpPopupHandlers;
|
||||
@ -664,10 +662,12 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfrmMain.ResetPackageFileControlsToOne;
|
||||
Var iCount:Integer;
|
||||
var
|
||||
iCount: integer;
|
||||
begin
|
||||
if (iNumLpkFilesVisible = 1) then exit;
|
||||
For iCount:=iNumLpkFilesVisible downto 1 do
|
||||
if (iNumLpkFilesVisible = 1) then
|
||||
exit;
|
||||
for iCount := iNumLpkFilesVisible downto 1 do
|
||||
begin
|
||||
RemovePackageFileFromList;
|
||||
end;
|
||||
@ -693,7 +693,7 @@ begin
|
||||
Result := False;
|
||||
TempStringList := TStringList.Create;
|
||||
try
|
||||
For iCount := 0 to High(ArrayEdtPackageFileName) do
|
||||
for iCount := 0 to High(ArrayEdtPackageFileName) do
|
||||
begin
|
||||
if TempStringlist.IndexOf(ArrayEdtPackageFileName[iCount].Text) = -1 then
|
||||
TempStringList.Add(ArrayEdtPackageFileName[iCount].Text)
|
||||
@ -705,26 +705,27 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMain.btnAddClick(Sender: TObject);
|
||||
procedure TfrmMain.ProcessNotify(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: integer);
|
||||
begin
|
||||
if not bShowPopupHints then
|
||||
exit;
|
||||
popup_hint.Text := rsThisOptionSh;
|
||||
popup_hint.Title := rsHelpAndInfor;
|
||||
popup_hint.Text := popup_hint.Text;
|
||||
popup_hint.showatpos(Mouse.CursorPos.X, Mouse.CursorPos.Y);
|
||||
end;
|
||||
|
||||
procedure TfrmMain.cmd_AddPackageFileClick(Sender: TObject);
|
||||
begin
|
||||
AddPackageFileToList;
|
||||
end;
|
||||
|
||||
procedure TfrmMain.btnRemoveClick(Sender: TObject);
|
||||
procedure TfrmMain.cmd_RemoveLastPackageFileClick(Sender: TObject);
|
||||
begin
|
||||
RemovePackageFileFromList;
|
||||
end;
|
||||
|
||||
procedure TfrmMain.cbForceNotifyMouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: integer);
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure TfrmMain.cmd_CloseClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
|
||||
begin
|
||||
CanClose := True;
|
||||
@ -763,19 +764,16 @@ var
|
||||
iIniCount: integer;
|
||||
begin
|
||||
// Enable AutoSize again to get correct Height
|
||||
editName.AutoSize := True;
|
||||
editDownloadZipURL.AutoSize := True;
|
||||
edt_UpdateZipName.AutoSize := True;
|
||||
edt_DownloadZipURL.AutoSize := True;
|
||||
// Furniture
|
||||
Caption := Application.Title;
|
||||
Icon := Application.Icon;
|
||||
{ Height:=btnAdd.Top + btnAdd.Height + (cmd_Save.Height * 3);
|
||||
cmd_Save.Top:=Height - cmd_Save.Height - cmd_Save.Height;
|
||||
cmd_Close.Top:=Height - cmd_Close.Height - cmd_Close.Height;}
|
||||
{$IFNDEF IGNOREPICTURE}
|
||||
MyPopup.Icon := TPicture(Application.Icon);
|
||||
popup_hint.Icon := TPicture(Application.Icon);
|
||||
{$ENDIF}
|
||||
editname.Text := rsMypackagenam;
|
||||
editDownloadZipURL.Text := rsHttpWwwUpdat;
|
||||
edt_UpdateZipName.Text := rsMypackagenam;
|
||||
edt_DownloadZipURL.Text := rsHttpWwwUpdat;
|
||||
// Defaults
|
||||
slErrorList := TStringList.Create;
|
||||
bForceSaveAs := True;
|
||||
@ -852,21 +850,26 @@ begin
|
||||
try
|
||||
if JSONPackage.LoadFromFile(FileOpen1.Dialog.FileName) then
|
||||
begin
|
||||
editName.Text := JSONPackage.UpdatePackageData.Name;
|
||||
editDownloadZipURL.Text := JSONPackage.UpdatePackageData.DownloadZipURL;
|
||||
edt_UpdateZipName.Text := JSONPackage.UpdatePackageData.Name;
|
||||
edt_DownloadZipURL.Text := JSONPackage.UpdatePackageData.DownloadZipURL;
|
||||
for i := 0 to JSONPackage.UpdatePackageFiles.Count - 1 do
|
||||
begin
|
||||
If (i > 0) then AddPackageFileToList;
|
||||
ArrayEdtPackageFileName[i].Text:=JSONPackage.UpdatePackageFiles.Items[i].Name;
|
||||
If fileinfo.TryStrToVersionQuad(JSONPackage.UpdatePackageFiles.Items[i].Version,Quad) then
|
||||
if (i > 0) then
|
||||
AddPackageFileToList;
|
||||
ArrayEdtPackageFileName[i].Text :=
|
||||
JSONPackage.UpdatePackageFiles.Items[i].Name;
|
||||
if fileinfo.TryStrToVersionQuad(
|
||||
JSONPackage.UpdatePackageFiles.Items[i].Version, Quad) then
|
||||
begin
|
||||
ArraySpinEditV1[i].Value := Quad[1];
|
||||
ArraySpinEditV2[i].Value := Quad[2];
|
||||
ArraySpinEditV3[i].Value := Quad[3];
|
||||
ArraySpinEditV4[i].Value := Quad[4];
|
||||
end;
|
||||
ArrayChkBoxForceNotify[i].Checked:=JSONPackage.UpdatePackageFiles.Items[i].ForceNotify;
|
||||
ArraySpinEditInternalVersion[i].Value:=JSONPackage.UpdatePackageFiles.Items[i].InternalVersion;
|
||||
ArrayChkBoxForceNotify[i].Checked :=
|
||||
JSONPackage.UpdatePackageFiles.Items[i].ForceNotify;
|
||||
ArraySpinEditInternalVersion[i].Value :=
|
||||
JSONPackage.UpdatePackageFiles.Items[i].InternalVersion;
|
||||
end;
|
||||
if ValidationFailed then
|
||||
begin
|
||||
@ -897,8 +900,8 @@ end;
|
||||
|
||||
procedure TfrmMain.mnu_fileNewClick(Sender: TObject);
|
||||
begin
|
||||
editname.Text := rsMypackagenam;
|
||||
editDownloadZipURL.Text := rsHttpWwwUpdat;
|
||||
edt_UpdateZipName.Text := rsMypackagenam;
|
||||
edt_DownloadZipURL.Text := rsHttpWwwUpdat;
|
||||
sJSONFilePath := '';
|
||||
sZipDirectory := '';
|
||||
ResetPackageFileControlsToOne;
|
||||
@ -1011,56 +1014,57 @@ var
|
||||
begin
|
||||
Result := False;
|
||||
// Check Zipname and URL http:// length
|
||||
if (Length(editName.Text) < 5) then
|
||||
if (Length(edt_UpdateZipName.Text) < 5) then
|
||||
begin
|
||||
editName.Color := clYellow;
|
||||
edt_UpdateZipName.Color := clYellow;
|
||||
slErrorList.Add(rsUpdateZipNam);
|
||||
Result := True;
|
||||
end;
|
||||
// URL implausable?
|
||||
if (Length(editDownloadZipURL.Text) < 10) then
|
||||
if (Length(edt_DownloadZipURL.Text) < 10) then
|
||||
begin
|
||||
slErrorList.Add(rsDownloadZipURLI);
|
||||
editDownloadZipURL.Color := clYellow;
|
||||
edt_DownloadZipURL.Color := clYellow;
|
||||
Result := True;
|
||||
end;
|
||||
// Remembered to type 'zip'?
|
||||
if (Length(editName.Text) > 4) then
|
||||
if (RightStr(LowerCase(editName.Text), 4) <> '.zip') then
|
||||
if (Length(edt_UpdateZipName.Text) > 4) then
|
||||
if (RightStr(LowerCase(edt_UpdateZipName.Text), 4) <> '.zip') then
|
||||
begin
|
||||
slErrorList.Add(rsUpdateZipNam2);
|
||||
editName.Color := clYellow;
|
||||
edt_UpdateZipName.Color := clYellow;
|
||||
Result := True;
|
||||
end;
|
||||
// A full URL?
|
||||
if ((Length(editDownloadZipURL.Text) > 0) and
|
||||
(RightStr(editDownloadZipURL.Text, 1) = '/')) then
|
||||
if ((Length(edt_DownloadZipURL.Text) > 0) and
|
||||
(RightStr(edt_DownloadZipURL.Text, 1) = '/')) then
|
||||
begin
|
||||
slErrorList.Add(rsDownloadZipURLI2);
|
||||
editDownloadZipURL.Color := clYellow;
|
||||
edt_DownloadZipURL.Color := clYellow;
|
||||
Result := True;
|
||||
end;
|
||||
// URL starts with 'http' ?
|
||||
if ((Length(editDownloadZipURL.Text) > 4) and
|
||||
(LeftStr(LowerCase(editDownloadZipURL.Text), 4) <> 'http')) then
|
||||
if ((Length(edt_DownloadZipURL.Text) > 4) and
|
||||
(LeftStr(LowerCase(edt_DownloadZipURL.Text), 4) <> 'http')) then
|
||||
begin
|
||||
slErrorList.Add(rsDownloadZipURLS);
|
||||
editDownloadZipURL.Color := clYellow;
|
||||
edt_DownloadZipURL.Color := clYellow;
|
||||
Result := True;
|
||||
end;
|
||||
// URL contains zipfile name?
|
||||
if (Pos(Lowercase(editName.Text), Lowercase(editDownloadZipURL.Text)) = 0) then
|
||||
if (Pos(Lowercase(edt_UpdateZipName.Text),
|
||||
Lowercase(edt_DownloadZipURL.Text)) = 0) then
|
||||
begin
|
||||
slErrorList.Add(rsDownloadZipURLD);
|
||||
editDownloadZipURL.Color := clYellow;
|
||||
edt_DownloadZipURL.Color := clYellow;
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
// Check package files entries
|
||||
For iCount:=0 to High(ArrayGrpBox) do
|
||||
for iCount := 0 to High(ArrayGrpBox) do
|
||||
begin
|
||||
// Is package name empty?
|
||||
If Length(ArrayEdtPackageFileName[iCount].Text)=0 then
|
||||
if Length(ArrayEdtPackageFileName[iCount].Text) = 0 then
|
||||
begin
|
||||
slErrorList.Add(Format(rsTheLpkEntryD2, [Succ(iCount)]));
|
||||
ArrayEdtPackageFileName[iCount].Color := clYellow;
|
||||
@ -1074,11 +1078,10 @@ begin
|
||||
Result := True;
|
||||
end;
|
||||
// Is the version number zero
|
||||
If (ArraySpinEditV1[iCount].Value = 0)
|
||||
AND (ArraySpinEditV2[iCount].Value = 0)
|
||||
AND (ArraySpinEditV3[iCount].Value = 0)
|
||||
AND (ArraySpinEditV4[iCount].Value = 0)
|
||||
then
|
||||
if (ArraySpinEditV1[iCount].Value = 0) and
|
||||
(ArraySpinEditV2[iCount].Value = 0) and
|
||||
(ArraySpinEditV3[iCount].Value = 0) and
|
||||
(ArraySpinEditV4[iCount].Value = 0) then
|
||||
begin
|
||||
slErrorList.Add(Format('Version for package %d is zero', [Succ(iCount)]));
|
||||
ArraySpinEditV1[iCount].Color := clYellow;
|
||||
@ -1087,6 +1090,14 @@ begin
|
||||
ArraySpinEditV4[iCount].Color := clYellow;
|
||||
Result := True;
|
||||
end;
|
||||
// Check Forcenotify version isn't zero
|
||||
If ArrayChkBoxForceNotify[iCount].Checked = TRUE then
|
||||
If ArraySpinEditInternalVersion[iCount].Value = 0 then
|
||||
begin
|
||||
ArraySpinEditInternalVersion[iCount].Color := clYellow;
|
||||
slErrorList.Add(Format('Internal version number should not be Zero%s', [LineEnding]));
|
||||
Result := True;
|
||||
end;
|
||||
// Check for duplicate .lpk entries
|
||||
if FoundADuplicateLPK then
|
||||
begin
|
||||
@ -1116,7 +1127,7 @@ begin
|
||||
begin
|
||||
FileSaveAs1.Dialog.InitialDir := sUpdateDirectory;
|
||||
FileSaveAs1.Dialog.FileName :=
|
||||
'update_' + ExtractFilenameOnly(editName.Text) + '.json';
|
||||
'update_' + ExtractFilenameOnly(edt_UpdateZipName.Text) + '.json';
|
||||
if FileSaveAs1.Dialog.Execute then
|
||||
sJSONFilePath := FileSaveAs1.Dialog.FileName
|
||||
else
|
||||
@ -1125,9 +1136,9 @@ begin
|
||||
|
||||
JSONPackage := TUpdatePackage.Create;
|
||||
try
|
||||
JSONPackage.UpdatePackageData.Name := editName.Text;
|
||||
JSONPackage.UpdatePackageData.DownloadZipURL := editDownloadZipURL.Text;
|
||||
For i:=0 to High(ArrayGrpBox) do
|
||||
JSONPackage.UpdatePackageData.Name := edt_UpdateZipName.Text;
|
||||
JSONPackage.UpdatePackageData.DownloadZipURL := edt_DownloadZipURL.Text;
|
||||
for i := 0 to High(ArrayGrpBox) do
|
||||
begin
|
||||
with JSONPackage.UpdatePackageFiles.Add do
|
||||
begin
|
||||
@ -1172,7 +1183,7 @@ begin
|
||||
sZipDirectory := ExtractFileDir(FileOpen1.Dialog.Filename);
|
||||
CFG.WriteString('Options', 'LastLoadedZipPath', sZipDirectory);
|
||||
s := ExtractFileName(FileOpen1.Dialog.Filename);
|
||||
editName.Text := s;
|
||||
edt_UpdateZipName.Text := s;
|
||||
if MessageDlg(Format(rsWouldYouLike, [s, sUpdateDirectory]),
|
||||
mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
|
||||
begin
|
||||
@ -1190,7 +1201,7 @@ procedure TfrmMain.spd_CheckURLClick(Sender: TObject);
|
||||
var
|
||||
bTemp: boolean;
|
||||
begin
|
||||
if OpenURL(editDownloadZipURL.Text) then
|
||||
if OpenURL(edt_DownloadZipURL.Text) then
|
||||
begin
|
||||
bTemp := bShowPopupHints;
|
||||
bShowPopupHints := True;
|
||||
|
||||
Reference in New Issue
Block a user