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

en.po file updated

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5480 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-12-14 09:07:45 +00:00
parent 3aa7653768
commit 01828d5c1f
10 changed files with 328 additions and 130 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
applications/json_packager/jsonpackage.lpi
View File

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

92
applications/json_packager/jsonpackage.lps
View File

@ -10,7 +10,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<CursorPos X="15" Y="19"/> <CursorPos X="15" Y="19"/>
<UsageCount Value="158"/> <UsageCount Value="160"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -20,21 +20,20 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="709"/> <WindowIndex Value="1"/>
<CursorPos X="19" Y="732"/> <TopLine Value="314"/>
<CursorPos Y="498"/>
<ExtraEditorCount Value="1"/> <ExtraEditorCount Value="1"/>
<ExtraEditor1> <ExtraEditor1>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="-1"/> <TopLine Value="244"/>
<WindowIndex Value="1"/> <CursorPos X="80" Y="258"/>
<TopLine Value="390"/>
<CursorPos X="44" Y="396"/>
</ExtraEditor1> </ExtraEditor1>
<UsageCount Value="158"/> <UsageCount Value="160"/>
<Bookmarks Count="3"> <Bookmarks Count="3">
<Item0 Y="847" ID="1"/> <Item0 Y="857" ID="1"/>
<Item1 Y="793"/> <Item1 Y="803"/>
<Item2 Y="652" ID="2"/> <Item2 Y="659" ID="2"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -42,7 +41,7 @@
<Unit2> <Unit2>
<Filename Value="ugenericcollection.pas"/> <Filename Value="ugenericcollection.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UsageCount Value="158"/> <UsageCount Value="160"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="C:\NewPascal\projects\MDSUM\CryptINI\lockini.pas"/> <Filename Value="C:\NewPascal\projects\MDSUM\CryptINI\lockini.pas"/>
@ -50,7 +49,7 @@
<UnitName Value="LockIni"/> <UnitName Value="LockIni"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="40" Y="9"/> <CursorPos X="40" Y="9"/>
<UsageCount Value="76"/> <UsageCount Value="78"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.pas"/> <Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.pas"/>
@ -356,7 +355,7 @@
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<TopLine Value="992"/> <TopLine Value="992"/>
<CursorPos Y="1012"/> <CursorPos Y="1012"/>
<UsageCount Value="27"/> <UsageCount Value="28"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit45> </Unit45>
<Unit46> <Unit46>
@ -364,133 +363,136 @@
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="88"/> <TopLine Value="88"/>
<CursorPos X="26" Y="110"/> <CursorPos X="26" Y="110"/>
<UsageCount Value="26"/> <UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit46> </Unit46>
</Units> </Units>
<OtherDefines Count="1"> <OtherDefines Count="1">
<Define0 Value="IGNOREPICTURE"/> <Define0 Value="IGNOREPICTURE"/>
</OtherDefines> </OtherDefines>
<General>
<ActiveWindowIndexAtStart Value="1"/>
</General>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="919" Column="40" TopLine="910"/> <Caret Line="850" TopLine="817"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="850" Column="25" TopLine="824"/> <Caret Line="458" Column="25" TopLine="451"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="844" Column="42" TopLine="825"/> <Caret Line="53" Column="42" TopLine="40"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="852" TopLine="833"/> <Caret Line="255" Column="12" TopLine="234"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1165" Column="49" TopLine="1153"/> <Caret Line="900" Column="3" TopLine="898"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1113" Column="8" TopLine="1112"/> <Caret Line="1124" TopLine="1104"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="850" TopLine="817"/> <Caret Line="839" Column="9" TopLine="831"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="458" Column="25" TopLine="451"/> <Caret Line="580" Column="39" TopLine="566"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="53" Column="42" TopLine="40"/> <Caret Line="255" Column="17" TopLine="254"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="255" Column="12" TopLine="234"/> <Caret Line="480" Column="67" TopLine="471"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="900" Column="3" TopLine="898"/> <Caret Line="647" Column="23" TopLine="629"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1124" TopLine="1104"/> <Caret Line="1090" Column="18" TopLine="1065"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="839" Column="9" TopLine="831"/> <Caret Line="697" Column="69" TopLine="683"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="580" Column="39" TopLine="566"/> <Caret Line="695" Column="9" TopLine="675"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="255" Column="17" TopLine="254"/> <Caret Line="5" Column="23"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="480" Column="67" TopLine="471"/> <Caret Line="274" Column="17" TopLine="242"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="647" Column="23" TopLine="629"/> <Caret Line="1133" Column="30" TopLine="1120"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1090" Column="18" TopLine="1065"/> <Caret Line="1060" Column="50" TopLine="1022"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="697" Column="69" TopLine="683"/> <Caret Line="951"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="695" Column="9" TopLine="675"/> <Caret Line="1100" Column="79" TopLine="1070"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="5" Column="23"/> <Caret Line="59" Column="47" TopLine="49"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="274" Column="17" TopLine="242"/> <Caret Line="730" Column="31" TopLine="726"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1133" Column="30" TopLine="1120"/> <Caret Line="733" Column="8" TopLine="711"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1060" Column="50" TopLine="1022"/> <Caret Line="732" Column="31" TopLine="712"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="951"/> <Caret Line="767" Column="41" TopLine="86"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1100" Column="79" TopLine="1070"/> <Caret Line="3" Column="28"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="59" Column="47" TopLine="49"/> <Caret Line="793" Column="24" TopLine="761"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="730" Column="31" TopLine="726"/> <Caret Line="789" Column="30" TopLine="767"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="733" Column="8" TopLine="711"/> <Caret Line="374" Column="40" TopLine="366"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="732" Column="31" TopLine="712"/> <Caret Line="379" Column="18" TopLine="363"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>

BIN
applications/json_packager/jsonpackage.res
View File

Binary file not shown.

BIN
applications/json_packager/locale/jsoneditor.en.mo
View File

Binary file not shown.

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

@ -13,16 +13,18 @@ msgstr ""
#: tfrmmain.chk_disableinopm.caption #: tfrmmain.chk_disableinopm.caption
msgid "Disable in OPM" msgid "Disable in OPM"
msgstr "" msgstr "Disable in OPM"
#: tfrmmain.chk_disableinopm.hint
msgid "Warning! This will disable installing or updating your package in OPM"
msgstr "Warning! This will disable installing or updating your package in OPM"
#: tfrmmain.cmd_addpackagefile.caption #: tfrmmain.cmd_addpackagefile.caption
#, fuzzy
msgctxt "tfrmmain.cmd_addpackagefile.caption" msgctxt "tfrmmain.cmd_addpackagefile.caption"
msgid "Add" msgid "Add"
msgstr "Add" msgstr "Add"
#: tfrmmain.cmd_addpackagefile.hint #: tfrmmain.cmd_addpackagefile.hint
#, fuzzy
msgctxt "tfrmmain.cmd_addpackagefile.hint" msgctxt "tfrmmain.cmd_addpackagefile.hint"
msgid "" msgid ""
"Add Package File:\n" "Add Package File:\n"
@ -38,13 +40,11 @@ msgid "&Close"
msgstr "&Close" msgstr "&Close"
#: tfrmmain.cmd_removelastpackagefile.caption #: tfrmmain.cmd_removelastpackagefile.caption
#, fuzzy
msgctxt "tfrmmain.cmd_removelastpackagefile.caption" msgctxt "tfrmmain.cmd_removelastpackagefile.caption"
msgid "Remove" msgid "Remove"
msgstr "Remove" msgstr "Remove"
#: tfrmmain.cmd_removelastpackagefile.hint #: tfrmmain.cmd_removelastpackagefile.hint
#, fuzzy
msgctxt "tfrmmain.cmd_removelastpackagefile.hint" msgctxt "tfrmmain.cmd_removelastpackagefile.hint"
msgid "" msgid ""
"Remove Package File:\n" "Remove Package File:\n"
@ -66,7 +66,6 @@ msgstr ""
"as a JSON update file\n" "as a JSON update file\n"
#: tfrmmain.edt_downloadzipurl.hint #: tfrmmain.edt_downloadzipurl.hint
#, fuzzy
msgctxt "tfrmmain.edt_downloadzipurl.hint" msgctxt "tfrmmain.edt_downloadzipurl.hint"
msgid "" msgid ""
"Download URL:\n" "Download URL:\n"
@ -76,7 +75,6 @@ msgstr ""
"Include the FULL url needed to download the package Zip file\n" "Include the FULL url needed to download the package Zip file\n"
#: tfrmmain.edt_updatezipname.hint #: tfrmmain.edt_updatezipname.hint
#, fuzzy
msgctxt "tfrmmain.edt_updatezipname.hint" msgctxt "tfrmmain.edt_updatezipname.hint"
msgid "" msgid ""
"Update Zip Name:\n" "Update Zip Name:\n"
@ -108,19 +106,16 @@ msgid "Save As"
msgstr "Save As" msgstr "Save As"
#: tfrmmain.lbl_downloadzipurl.caption #: tfrmmain.lbl_downloadzipurl.caption
#, fuzzy
msgctxt "tfrmmain.lbl_downloadzipurl.caption" msgctxt "tfrmmain.lbl_downloadzipurl.caption"
msgid "Download URL:" msgid "Download URL:"
msgstr "Download URL:" msgstr "Download URL:"
#: tfrmmain.lbl_packagefiles.caption #: tfrmmain.lbl_packagefiles.caption
#, fuzzy
msgctxt "tfrmmain.lbl_packagefiles.caption" msgctxt "tfrmmain.lbl_packagefiles.caption"
msgid "Package Files:" msgid "Package Files:"
msgstr "Package Files:" msgstr "Package Files:"
#: tfrmmain.lbl_updatezipname.caption #: tfrmmain.lbl_updatezipname.caption
#, fuzzy
msgctxt "tfrmmain.lbl_updatezipname.caption" msgctxt "tfrmmain.lbl_updatezipname.caption"
msgid "Update Zip Name:" msgid "Update Zip Name:"
msgstr "Update Zip Name:" msgstr "Update Zip Name:"
@ -131,7 +126,7 @@ msgstr "Load..."
#: tfrmmain.mnu_fileexit.caption #: tfrmmain.mnu_fileexit.caption
msgid "E&xit" msgid "E&xit"
msgstr "" msgstr "E&xit"
#: tfrmmain.mnu_filenew.caption #: tfrmmain.mnu_filenew.caption
msgid "New" msgid "New"
@ -192,13 +187,23 @@ msgid "Check URL"
msgstr "Check URL" msgstr "Check URL"
#: tfrmmain.spd_checkurl.hint #: tfrmmain.spd_checkurl.hint
msgid "Attempting to Open URL" #, fuzzy
msgstr "Attempting to Open URL" #| msgid ""
#| "Check URL:\n"
#| "Attempts to open the URL in your browser\n"
msgid "Attempts to open the URL in your browser"
msgstr ""
"Check URL:\n"
"Attempts to open the URL in your browser\n"
#: umain.rsabout #: umain.rsabout
msgid "About" msgid "About"
msgstr "About" msgstr "About"
#: umain.rscheckthisify
msgid "Check this if you don't want to incrememt the package version"
msgstr "Check this if you don't want to incrememt the package version"
#: umain.rscompiledwith2 #: umain.rscompiledwith2
msgid "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s" msgid "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s"
msgstr "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s" msgstr "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s"
@ -223,10 +228,18 @@ msgstr "- Download URL should start with \"http\""
msgid "JSON may be unsaved. Are you sure you want to quit?" msgid "JSON may be unsaved. Are you sure you want to quit?"
msgstr "JSON may be unsaved. Are you sure you want to quit?" msgstr "JSON may be unsaved. Are you sure you want to quit?"
#: umain.rsfilename
msgid "Filename: "
msgstr "Filename: "
#: umain.rsfixthentryag #: umain.rsfixthentryag
msgid "Fix, then try again." msgid "Fix, then try again."
msgstr "Fix, then try again." msgstr "Fix, then try again."
#: umain.rsformatisnnnn
msgid "Package version:%sFormat is: n.n.n.n"
msgstr "Package version:%sFormat is: n.n.n.n"
#: umain.rshelpandinfor #: umain.rshelpandinfor
msgid "Help and Information" msgid "Help and Information"
msgstr "Help and Information" msgstr "Help and Information"
@ -235,22 +248,33 @@ msgstr "Help and Information"
msgid "http://www.updatesite.com/myupdate/mypackagename.zip" msgid "http://www.updatesite.com/myupdate/mypackagename.zip"
msgstr "http://www.updatesite.com/myupdate/mypackagename.zip" msgstr "http://www.updatesite.com/myupdate/mypackagename.zip"
#: umain.rsinternalvers
msgid "Internal Version: "
msgstr "Internal Version: "
#: umain.rsinternalvers2
msgid "Internal version number should not be Zero%s"
msgstr "Internal version number should not be Zero%s"
#: umain.rslanguagechan #: umain.rslanguagechan
msgid "Language changed to \"%s\"." msgid "Language changed to \"%s\"."
msgstr "Language changed to \"%s\"." msgstr "Language changed to \"%s\"."
#: umain.rsmypackagelpk #: umain.rsmypackagelpk
#, fuzzy
#| msgid "mypackagename.zip" #| msgid "mypackagename.zip"
msgctxt "umain.rsmypackagelpk" msgctxt "umain.rsmypackagelpk"
msgid "mypackagename.lpk" msgid "mypackagename.lpk"
msgstr "mypackagename.zip" msgstr "mypackagename.lpk"
#: umain.rsmypackagenam #: umain.rsmypackagenam
msgctxt "umain.rsmypackagenam" msgctxt "umain.rsmypackagenam"
msgid "mypackagename.zip" msgid "mypackagename.zip"
msgstr "mypackagename.zip" msgstr "mypackagename.zip"
#: umain.rsnotifyupdate
msgid "Notify Update"
msgstr "Notify Update"
#: umain.rsoneofthereq1 #: umain.rsoneofthereq1
msgid "One of the required fields is missing or wrong." msgid "One of the required fields is missing or wrong."
msgstr "One of the required fields is missing or wrong." msgstr "One of the required fields is missing or wrong."
@ -259,10 +283,18 @@ msgstr "One of the required fields is missing or wrong."
msgid "One or more of the required fields are missing or wrong." msgid "One or more of the required fields are missing or wrong."
msgstr "One or more of the required fields are missing or wrong." msgstr "One or more of the required fields are missing or wrong."
#: umain.rsopeningyourb
msgid "Opening your browser..."
msgstr "Opening your browser..."
#: umain.rsoverwrite #: umain.rsoverwrite
msgid "Overwrite" msgid "Overwrite"
msgstr "Overwrite" msgstr "Overwrite"
#: umain.rspackagedinfo
msgid "Package #%d Information"
msgstr "Package #%d Information"
#: umain.rssavedok #: umain.rssavedok
msgid "Saved OK" msgid "Saved OK"
msgstr "Saved OK" msgstr "Saved OK"
@ -291,15 +323,26 @@ msgstr "The .lpk entry #%d is missing the .lpk extension"
msgid "The .lpk entry #%d is is absent" msgid "The .lpk entry #%d is is absent"
msgstr "The .lpk entry #%d is is absent" msgstr "The .lpk entry #%d is is absent"
#: umain.rsthepackagefi
msgid "The package filename (No path e.g. package.lpk)"
msgstr "The package filename (No path e.g. package.lpk)"
#: umain.rsthereareoneo #: umain.rsthereareoneo
msgid "- There are one or more .lpk entries with the same name.%s- Every .lpk entry must have a unique name." 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." msgstr "- There are one or more .lpk entries with the same name.%s- Every .lpk entry must have a unique name."
#: umain.rstherewasapro
msgid "There was a problem loading \"%s\" - is it corrupted or in the wrong format?"
msgstr "There was a problem loading \"%s\" - is it corrupted or in the wrong format?"
#: umain.rsthisoptionsh #: umain.rsthisoptionsh
#, 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. Are you OK with that?"
msgid "This option should only be used for crucial updates or bug-fixed packages." 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?" msgstr "This option should only be used for crucial updates or bug-fixed packages."
#: umain.rsthiswilldisa
msgid "This will disable your package in OnlinePackageManager!%sAre you SURE you want to do this?"
msgstr "This will disable your package in OnlinePackageManager!%sAre you SURE you want to do this?"
#: umain.rsturnhintsoff #: umain.rsturnhintsoff
msgid "(You can toggle these hints on/off in the Help menu)" msgid "(You can toggle these hints on/off in the Help menu)"
@ -321,6 +364,18 @@ msgstr "- Update zip name is too short or missing"
msgid "- Update zip name missing extension \".zip\"" msgid "- Update zip name missing extension \".zip\""
msgstr "- Update zip name missing extension \".zip\"" msgstr "- Update zip name missing extension \".zip\""
#: umain.rsuseincombina
msgid "Use in combination with %s"
msgstr "Use in combination with %s"
#: umain.rsversion
msgid "Version: "
msgstr "Version: "
#: umain.rsversionforpa
msgid "Version for package %d is zero"
msgstr "Version for package %d is zero"
#: umain.rswouldyoulike #: umain.rswouldyoulike
msgid "Would you like to copy %s to the %s folder?" msgid "Would you like to copy %s to the %s folder?"
msgstr "Would you like to copy %s to the %s folder?" msgstr "Would you like to copy %s to the %s folder?"

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

@ -16,6 +16,10 @@ msgstr ""
msgid "Disable in OPM" msgid "Disable in OPM"
msgstr "" msgstr ""
#: tfrmmain.chk_disableinopm.hint
msgid "Warning! This will disable installing or updating your package in OPM"
msgstr ""
#: tfrmmain.cmd_addpackagefile.caption #: tfrmmain.cmd_addpackagefile.caption
#, fuzzy #, fuzzy
msgctxt "tfrmmain.cmd_addpackagefile.caption" msgctxt "tfrmmain.cmd_addpackagefile.caption"
@ -193,13 +197,21 @@ msgid "Check URL"
msgstr "Verificar URL" msgstr "Verificar URL"
#: tfrmmain.spd_checkurl.hint #: tfrmmain.spd_checkurl.hint
msgid "Attempting to Open URL" #, fuzzy
#| msgid ""
#| "Check URL:\n"
#| "Attempts to open the URL in your browser\n"
msgid "Attempts to open the URL in your browser"
msgstr "Intentando Abrir URL" msgstr "Intentando Abrir URL"
#: umain.rsabout #: umain.rsabout
msgid "About" msgid "About"
msgstr "Acerca de" msgstr "Acerca de"
#: umain.rscheckthisify
msgid "Check this if you don't want to incrememt the package version"
msgstr ""
#: umain.rscompiledwith2 #: umain.rscompiledwith2
msgid "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s" msgid "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s"
msgstr "Compilado con FPC V:%s y Lazarus V:%d.%d%s para la plataforma %s - %s%s%s" msgstr "Compilado con FPC V:%s y Lazarus V:%d.%d%s para la plataforma %s - %s%s%s"
@ -224,10 +236,18 @@ msgstr "- URL de descarga debe empezar con \"http\""
msgid "JSON may be unsaved. Are you sure you want to quit?" msgid "JSON may be unsaved. Are you sure you want to quit?"
msgstr "JSON puede estar sin guardar. ¿Está seguro que desea salir?" msgstr "JSON puede estar sin guardar. ¿Está seguro que desea salir?"
#: umain.rsfilename
msgid "Filename: "
msgstr ""
#: umain.rsfixthentryag #: umain.rsfixthentryag
msgid "Fix, then try again." msgid "Fix, then try again."
msgstr "Arréglalo, luego intenta de nuevo." msgstr "Arréglalo, luego intenta de nuevo."
#: umain.rsformatisnnnn
msgid "Package version:%sFormat is: n.n.n.n"
msgstr ""
#: umain.rshelpandinfor #: umain.rshelpandinfor
msgid "Help and Information" msgid "Help and Information"
msgstr "Ayuda e Información" msgstr "Ayuda e Información"
@ -236,6 +256,14 @@ msgstr "Ayuda e Información"
msgid "http://www.updatesite.com/myupdate/mypackagename.zip" msgid "http://www.updatesite.com/myupdate/mypackagename.zip"
msgstr "http://www.sitioactualizacion.com/miactualizacion/nombredemipaquete.zip" msgstr "http://www.sitioactualizacion.com/miactualizacion/nombredemipaquete.zip"
#: umain.rsinternalvers
msgid "Internal Version: "
msgstr ""
#: umain.rsinternalvers2
msgid "Internal version number should not be Zero%s"
msgstr ""
#: umain.rslanguagechan #: umain.rslanguagechan
msgid "Language changed to \"%s\"." msgid "Language changed to \"%s\"."
msgstr "Idioma cambiado a \"%s\"." msgstr "Idioma cambiado a \"%s\"."
@ -252,6 +280,10 @@ msgctxt "umain.rsmypackagenam"
msgid "mypackagename.zip" msgid "mypackagename.zip"
msgstr "nombredemipaquete.zip" msgstr "nombredemipaquete.zip"
#: umain.rsnotifyupdate
msgid "Notify Update"
msgstr ""
#: umain.rsoneofthereq1 #: umain.rsoneofthereq1
msgid "One of the required fields is missing or wrong." msgid "One of the required fields is missing or wrong."
msgstr "Uno de los campos requeridos esta vacío o mal." msgstr "Uno de los campos requeridos esta vacío o mal."
@ -260,10 +292,18 @@ msgstr "Uno de los campos requeridos esta vacío o mal."
msgid "One or more of the required fields are missing or wrong." msgid "One or more of the required fields are missing or wrong."
msgstr "Uno o mas de los capos requeridos esta vacío o mal." msgstr "Uno o mas de los capos requeridos esta vacío o mal."
#: umain.rsopeningyourb
msgid "Opening your browser..."
msgstr ""
#: umain.rsoverwrite #: umain.rsoverwrite
msgid "Overwrite" msgid "Overwrite"
msgstr "Sobreescribir" msgstr "Sobreescribir"
#: umain.rspackagedinfo
msgid "Package #%d Information"
msgstr ""
#: umain.rssavedok #: umain.rssavedok
msgid "Saved OK" msgid "Saved OK"
msgstr "Guardado OK" msgstr "Guardado OK"
@ -292,16 +332,28 @@ msgstr "La entrada .lpk #%d no tiene la extensión .lpk"
msgid "The .lpk entry #%d is is absent" msgid "The .lpk entry #%d is is absent"
msgstr "La entrada .lpk #%d está vacía" msgstr "La entrada .lpk #%d está vacía"
#: umain.rsthepackagefi
msgid "The package filename (No path e.g. package.lpk)"
msgstr ""
#: umain.rsthereareoneo #: umain.rsthereareoneo
msgid "- There are one or more .lpk entries with the same name.%s- Every .lpk entry must have a unique name." 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." msgstr "- Hay una o más entradas .lpk con el mismo nombre.%s- Cada entrada .lpk debe tener un nombre único."
#: umain.rstherewasapro
msgid "There was a problem loading \"%s\" - is it corrupted or in the wrong format?"
msgstr ""
#: umain.rsthisoptionsh #: umain.rsthisoptionsh
#, fuzzy #, 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. Are you OK with that?"
msgid "This option should only be used for crucial updates or bug-fixed packages." 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?" msgstr "Esta opción debe ser usada solamente para actualizaciones cruciales o paquetes con arreglos de bugs. ¿Estás de acuerdo con esto?"
#: umain.rsthiswilldisa
msgid "This will disable your package in OnlinePackageManager!%sAre you SURE you want to do this?"
msgstr ""
#: umain.rsturnhintsoff #: umain.rsturnhintsoff
msgid "(You can toggle these hints on/off in the Help menu)" msgid "(You can toggle these hints on/off in the Help menu)"
msgstr "(Puedes cambiar estos consejos en el menú Ayuda)" msgstr "(Puedes cambiar estos consejos en el menú Ayuda)"
@ -322,6 +374,18 @@ msgstr "- El nombre del zip es muy corto o está vacío"
msgid "- Update zip name missing extension \".zip\"" msgid "- Update zip name missing extension \".zip\""
msgstr "- El nombre del zip no tiene la extensión \".zip\"" msgstr "- El nombre del zip no tiene la extensión \".zip\""
#: umain.rsuseincombina
msgid "Use in combination with %s"
msgstr ""
#: umain.rsversion
msgid "Version: "
msgstr ""
#: umain.rsversionforpa
msgid "Version for package %d is zero"
msgstr ""
#: umain.rswouldyoulike #: umain.rswouldyoulike
msgid "Would you like to copy %s to the %s folder?" msgid "Would you like to copy %s to the %s folder?"
msgstr "¿Quieres copiar %s a la carpeta %s?" msgstr "¿Quieres copiar %s a la carpeta %s?"

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

@ -16,6 +16,10 @@ msgstr ""
msgid "Disable in OPM" msgid "Disable in OPM"
msgstr "" msgstr ""
#: tfrmmain.chk_disableinopm.hint
msgid "Warning! This will disable installing or updating your package in OPM"
msgstr ""
#: tfrmmain.cmd_addpackagefile.caption #: tfrmmain.cmd_addpackagefile.caption
msgctxt "tfrmmain.cmd_addpackagefile.caption" msgctxt "tfrmmain.cmd_addpackagefile.caption"
msgid "Add" msgid "Add"
@ -169,13 +173,17 @@ msgid "Check URL"
msgstr "" msgstr ""
#: tfrmmain.spd_checkurl.hint #: tfrmmain.spd_checkurl.hint
msgid "Attempting to Open URL" msgid "Attempts to open the URL in your browser"
msgstr "" msgstr ""
#: umain.rsabout #: umain.rsabout
msgid "About" msgid "About"
msgstr "" msgstr ""
#: umain.rscheckthisify
msgid "Check this if you don't want to incrememt the package version"
msgstr ""
#: umain.rscompiledwith2 #: umain.rscompiledwith2
msgid "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s" msgid "Compiled with FPC V:%s and Lazarus V:%d.%d%s for the %s - %s platform%s%s"
msgstr "" msgstr ""
@ -200,10 +208,18 @@ msgstr ""
msgid "JSON may be unsaved. Are you sure you want to quit?" msgid "JSON may be unsaved. Are you sure you want to quit?"
msgstr "" msgstr ""
#: umain.rsfilename
msgid "Filename: "
msgstr ""
#: umain.rsfixthentryag #: umain.rsfixthentryag
msgid "Fix, then try again." msgid "Fix, then try again."
msgstr "" msgstr ""
#: umain.rsformatisnnnn
msgid "Package version:%sFormat is: n.n.n.n"
msgstr ""
#: umain.rshelpandinfor #: umain.rshelpandinfor
msgid "Help and Information" msgid "Help and Information"
msgstr "" msgstr ""
@ -212,6 +228,14 @@ msgstr ""
msgid "http://www.updatesite.com/myupdate/mypackagename.zip" msgid "http://www.updatesite.com/myupdate/mypackagename.zip"
msgstr "" msgstr ""
#: umain.rsinternalvers
msgid "Internal Version: "
msgstr ""
#: umain.rsinternalvers2
msgid "Internal version number should not be Zero%s"
msgstr ""
#: umain.rslanguagechan #: umain.rslanguagechan
msgid "Language changed to \"%s\"." msgid "Language changed to \"%s\"."
msgstr "" msgstr ""
@ -226,6 +250,10 @@ msgctxt "umain.rsmypackagenam"
msgid "mypackagename.zip" msgid "mypackagename.zip"
msgstr "" msgstr ""
#: umain.rsnotifyupdate
msgid "Notify Update"
msgstr ""
#: umain.rsoneofthereq1 #: umain.rsoneofthereq1
msgid "One of the required fields is missing or wrong." msgid "One of the required fields is missing or wrong."
msgstr "" msgstr ""
@ -234,10 +262,18 @@ msgstr ""
msgid "One or more of the required fields are missing or wrong." msgid "One or more of the required fields are missing or wrong."
msgstr "" msgstr ""
#: umain.rsopeningyourb
msgid "Opening your browser..."
msgstr ""
#: umain.rsoverwrite #: umain.rsoverwrite
msgid "Overwrite" msgid "Overwrite"
msgstr "" msgstr ""
#: umain.rspackagedinfo
msgid "Package #%d Information"
msgstr ""
#: umain.rssavedok #: umain.rssavedok
msgid "Saved OK" msgid "Saved OK"
msgstr "" msgstr ""
@ -266,14 +302,26 @@ msgstr ""
msgid "The .lpk entry #%d is is absent" msgid "The .lpk entry #%d is is absent"
msgstr "" msgstr ""
#: umain.rsthepackagefi
msgid "The package filename (No path e.g. package.lpk)"
msgstr ""
#: umain.rsthereareoneo #: umain.rsthereareoneo
msgid "- There are one or more .lpk entries with the same name.%s- Every .lpk entry must have a unique name." msgid "- There are one or more .lpk entries with the same name.%s- Every .lpk entry must have a unique name."
msgstr "" msgstr ""
#: umain.rstherewasapro
msgid "There was a problem loading \"%s\" - is it corrupted or in the wrong format?"
msgstr ""
#: umain.rsthisoptionsh #: umain.rsthisoptionsh
msgid "This option should only be used for crucial updates or bug-fixed packages." msgid "This option should only be used for crucial updates or bug-fixed packages."
msgstr "" msgstr ""
#: umain.rsthiswilldisa
msgid "This will disable your package in OnlinePackageManager!%sAre you SURE you want to do this?"
msgstr ""
#: umain.rsturnhintsoff #: umain.rsturnhintsoff
msgid "(You can toggle these hints on/off in the Help menu)" msgid "(You can toggle these hints on/off in the Help menu)"
msgstr "" msgstr ""
@ -294,6 +342,18 @@ msgstr ""
msgid "- Update zip name missing extension \".zip\"" msgid "- Update zip name missing extension \".zip\""
msgstr "" msgstr ""
#: umain.rsuseincombina
msgid "Use in combination with %s"
msgstr ""
#: umain.rsversion
msgid "Version: "
msgstr ""
#: umain.rsversionforpa
msgid "Version for package %d is zero"
msgstr ""
#: umain.rswouldyoulike #: umain.rswouldyoulike
msgid "Would you like to copy %s to the %s folder?" msgid "Would you like to copy %s to the %s folder?"
msgstr "" msgstr ""

9
applications/json_packager/umain.lfm
View File

@ -1,7 +1,7 @@
object frmMain: TfrmMain object frmMain: TfrmMain
Left = 588 Left = 852
Height = 398 Height = 398
Top = 157 Top = 171
Width = 618 Width = 618
Anchors = [] Anchors = []
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
@ -179,7 +179,7 @@ object frmMain: TfrmMain
AnchorSideRight.Control = chk_DisableInOPM AnchorSideRight.Control = chk_DisableInOPM
Left = 438 Left = 438
Height = 19 Height = 19
Hint = 'Attempting to Open URL' Hint = 'Attempts to open the URL in your browser'
Top = 88 Top = 88
Width = 61 Width = 61
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -191,6 +191,7 @@ object frmMain: TfrmMain
object chk_DisableInOPM: TCheckBox object chk_DisableInOPM: TCheckBox
Left = 507 Left = 507
Height = 19 Height = 19
Hint = 'Warning! This will disable installing or updating your package in OPM'
Top = 88 Top = 88
Width = 101 Width = 101
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -200,7 +201,7 @@ object frmMain: TfrmMain
OnMouseUp = chk_DisableInOPMMouseUp OnMouseUp = chk_DisableInOPMMouseUp
TabOrder = 6 TabOrder = 6
end end
object sbPackageFiles: TScrollBox object sb_PackageFiles: TScrollBox
Left = 8 Left = 8
Height = 166 Height = 166
Top = 160 Top = 160

3
applications/json_packager/umain.lrj
View File

@ -13,8 +13,9 @@
{"hash":2857157,"name":"tfrmmain.cmd_save.caption","sourcebytes":[38,83,97,118,101],"value":"&Save"}, {"hash":2857157,"name":"tfrmmain.cmd_save.caption","sourcebytes":[38,83,97,118,101],"value":"&Save"},
{"hash":244237216,"name":"tfrmmain.sb_editname.hint","sourcebytes":[85,112,100,97,116,101,32,90,105,112,32,78,97,109,101,58,13,10,67,108,105,99,107,32,116,104,105,115,32,116,111,32,98,114,111,119,115,101,32,121,111,117,114,32,115,121,115,116,101,109,32,116,111,32,102,105,110,100,13,10,32,97,110,32,101,120,105,115,116,105,110,103,32,85,112,100,97,116,101,32,90,105,112],"value":"Update Zip Name:\r\nClick this to browse your system to find\r\n an existing Update Zip"}, {"hash":244237216,"name":"tfrmmain.sb_editname.hint","sourcebytes":[85,112,100,97,116,101,32,90,105,112,32,78,97,109,101,58,13,10,67,108,105,99,107,32,116,104,105,115,32,116,111,32,98,114,111,119,115,101,32,121,111,117,114,32,115,121,115,116,101,109,32,116,111,32,102,105,110,100,13,10,32,97,110,32,101,120,105,115,116,105,110,103,32,85,112,100,97,116,101,32,90,105,112],"value":"Update Zip Name:\r\nClick this to browse your system to find\r\n an existing Update Zip"},
{"hash":12558,"name":"tfrmmain.sb_editname.caption","sourcebytes":[46,46,46],"value":"..."}, {"hash":12558,"name":"tfrmmain.sb_editname.caption","sourcebytes":[46,46,46],"value":"..."},
{"hash":60451052,"name":"tfrmmain.spd_checkurl.hint","sourcebytes":[65,116,116,101,109,112,116,105,110,103,32,116,111,32,79,112,101,110,32,85,82,76],"value":"Attempting to Open URL"}, {"hash":55770242,"name":"tfrmmain.spd_checkurl.hint","sourcebytes":[65,116,116,101,109,112,116,115,32,116,111,32,111,112,101,110,32,116,104,101,32,85,82,76,32,105,110,32,121,111,117,114,32,98,114,111,119,115,101,114],"value":"Attempts to open the URL in your browser"},
{"hash":194843532,"name":"tfrmmain.spd_checkurl.caption","sourcebytes":[67,104,101,99,107,32,85,82,76],"value":"Check URL"}, {"hash":194843532,"name":"tfrmmain.spd_checkurl.caption","sourcebytes":[67,104,101,99,107,32,85,82,76],"value":"Check URL"},
{"hash":155690877,"name":"tfrmmain.chk_disableinopm.hint","sourcebytes":[87,97,114,110,105,110,103,33,32,84,104,105,115,32,119,105,108,108,32,100,105,115,97,98,108,101,32,105,110,115,116,97,108,108,105,110,103,32,111,114,32,117,112,100,97,116,105,110,103,32,121,111,117,114,32,112,97,99,107,97,103,101,32,105,110,32,79,80,77],"value":"Warning! This will disable installing or updating your package in OPM"},
{"hash":108520077,"name":"tfrmmain.chk_disableinopm.caption","sourcebytes":[68,105,115,97,98,108,101,32,105,110,32,79,80,77],"value":"Disable in OPM"}, {"hash":108520077,"name":"tfrmmain.chk_disableinopm.caption","sourcebytes":[68,105,115,97,98,108,101,32,105,110,32,79,80,77],"value":"Disable in OPM"},
{"hash":315429,"name":"tfrmmain.filemenu.caption","sourcebytes":[70,105,108,101],"value":"File"}, {"hash":315429,"name":"tfrmmain.filemenu.caption","sourcebytes":[70,105,108,101],"value":"File"},
{"hash":21703,"name":"tfrmmain.mnu_filenew.caption","sourcebytes":[78,101,119],"value":"New"}, {"hash":21703,"name":"tfrmmain.mnu_filenew.caption","sourcebytes":[78,101,119],"value":"New"},

134
applications/json_packager/umain.pas
View File

@ -61,8 +61,8 @@ unit umain;
0.2.0.0: Refactored GUI(minesadorada) 0.2.0.0: Refactored GUI(minesadorada)
0.2.1.0: Added scrollbox to contain package info (GetMem) 0.2.1.0: Added scrollbox to contain package info (GetMem)
0.2.2.0: Hints and Validation updated (minesadorada) 0.2.2.0: Hints and Validation updated (minesadorada)
0.2.3.0: ToDo 0.2.3.0: ResourceStrings Updated (minesadorada)
- sort out resourcestrings 0.2.4.0: ??
} }
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -163,7 +163,7 @@ type
popup_hint: TPopupNotifier; popup_hint: TPopupNotifier;
SaveAsItem: TMenuItem; SaveAsItem: TMenuItem;
sb_editName: TSpeedButton; sb_editName: TSpeedButton;
sbPackageFiles: TScrollBox; sb_PackageFiles: TScrollBox;
spd_CheckURL: TSpeedButton; spd_CheckURL: TSpeedButton;
procedure chk_DisableInOPMMouseUp(Sender: TObject; Button: TMouseButton; procedure chk_DisableInOPMMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
@ -278,6 +278,23 @@ resourcestring
rsThereAreOneO = '- There are one or more .lpk entries with the same name.%s' + rsThereAreOneO = '- There are one or more .lpk entries with the same name.%s' +
'- Every .lpk entry must have a unique name.'; '- Every .lpk entry must have a unique name.';
rsUpdateJsonSF = 'Update file "%s" failed to load correctly.'; rsUpdateJsonSF = 'Update file "%s" failed to load correctly.';
rsNotifyUpdate = 'Notify Update';
rsUseInCombina = 'Use in combination with %s';
rsPackageDInfo = 'Package #%d Information';
rsThePackageFi = 'The package filename (No path e.g. package.lpk)';
rsVersion = 'Version: ';
rsFormatIsNNNN = 'Package version:%sFormat is: n.n.n.n';
rsCheckThisIfY = 'Check this if you don''t want to incrememt the package '
+'version';
rsInternalVers = 'Internal Version: ';
rsFilename = 'Filename: ';
rsThisWillDisa = 'This will disable your package in OnlinePackageManager!%'
+'sAre you SURE you want to do this?';
rsThereWasAPro = 'There was a problem loading "%s" - is it corrupted or in '
+'the wrong format?';
rsVersionForPa = 'Version for package %d is zero';
rsInternalVers2 = 'Internal version number should not be Zero%s';
rsOpeningYourB = 'Opening your browser...';
{ TUpdatePackageData } { TUpdatePackageData }
@ -335,7 +352,7 @@ begin
begin begin
if (Controls[iCount].InheritsFrom(TControl) = False) then if (Controls[iCount].InheritsFrom(TControl) = False) then
continue; continue;
{ { // (Kept for reference)
// Iterate through the children of TScrollBox // Iterate through the children of TScrollBox
if (Controls[iCount] is TGroupBox) then if (Controls[iCount] is TGroupBox) then
// Iterate through the children of GroupBox // Iterate through the children of GroupBox
@ -355,12 +372,12 @@ begin
TEdit(Controls[iCount]).OnClick := @CtrlHidePopup; TEdit(Controls[iCount]).OnClick := @CtrlHidePopup;
TEdit(Controls[iCount]).OnEditingDone := @CtrlMakeDirty; TEdit(Controls[iCount]).OnEditingDone := @CtrlMakeDirty;
end; end;
if (Controls[iCount] is TStringGrid) then if (Controls[iCount] is TCheckBox) then
begin begin
TStringGrid(Controls[iCount]).OnMouseEnter := @CtrlShowPopup; TCheckBox(Controls[iCount]).OnMouseEnter := @CtrlShowPopup;
TStringGrid(Controls[iCount]).OnMouseLeave := @CtrlHidePopup; TCheckBox(Controls[iCount]).OnMouseLeave := @CtrlHidePopup;
TStringGrid(Controls[iCount]).OnClick := @CtrlHidePopup; TCheckBox(Controls[iCount]).OnClick := @CtrlHidePopup;
TStringGrid(Controls[iCount]).OnEditingDone := @CtrlMakeDirty; TCheckBox(Controls[iCount]).OnEditingDone := @CtrlMakeDirty;
end; end;
if (Controls[iCount] is TLabel) then if (Controls[iCount] is TLabel) then
begin begin
@ -391,33 +408,25 @@ procedure TfrmMain.DestroyControlArrays;
var var
i: integer; i: integer;
begin begin
// This could be done with one loop // Callked on Form_Destroy
for i := 0 to High(ArraySpinEditInternalVersion) do
FreeAndNil(ArraySpinEditInternalVersion[i]);
for i := 0 to High(ArrayLblPackageInternalVersion) do
FreeAndNil(ArrayLblPackageInternalVersion[i]);
for i := 0 to High(ArrayChkBoxForceNotify) do
FreeAndNil(ArrayChkBoxForceNotify[i]);
for i := 0 to High(ArraySpinEditV4) do
FreeAndNil(ArraySpinEditV4[i]);
for i := 0 to High(ArraySpinEditV3) do
FreeAndNil(ArraySpinEditV3[i]);
for i := 0 to High(ArraySpinEditV2) do
FreeAndNil(ArraySpinEditV2[i]);
for i := 0 to High(ArraySpinEditV1) do
FreeAndNil(ArraySpinEditV1[i]);
for i := 0 to High(ArrayLblPackageVersion) do
FreeAndNil(ArrayLblPackageVersion[i]);
for i := 0 to High(ArrayEdtPackageFileName) do
FreeAndNil(ArrayEdtPackageFileName[i]);
for i := 0 to High(ArrayLblPackageFileName) do
FreeAndNil(ArrayLblPackageFileName[i]);
for i := 0 to High(ArrayGrpBox) do for i := 0 to High(ArrayGrpBox) do
Begin
FreeAndNil(ArraySpinEditInternalVersion[i]);
FreeAndNil(ArrayLblPackageInternalVersion[i]);
FreeAndNil(ArrayChkBoxForceNotify[i]);
FreeAndNil(ArraySpinEditV4[i]);
FreeAndNil(ArraySpinEditV3[i]);
FreeAndNil(ArraySpinEditV2[i]);
FreeAndNil(ArraySpinEditV1[i]);
FreeAndNil(ArrayLblPackageVersion[i]);
FreeAndNil(ArrayEdtPackageFileName[i]);
FreeAndNil(ArrayLblPackageFileName[i]);
FreeAndNil(ArrayGrpBox[i]); FreeAndNil(ArrayGrpBox[i]);
end;
end; end;
procedure TfrmMain.AddNewControlArray; procedure TfrmMain.AddNewControlArray;
{ {For reference:
ArrayGrpBox:Array of TGroupBox; ArrayGrpBox:Array of TGroupBox;
// Line 1 // Line 1
ArrayLblPackageFileName:Array of TLabel; ArrayLblPackageFileName:Array of TLabel;
@ -450,7 +459,7 @@ begin
with ArrayGrpBox[iNumLpkFilesVisible] do with ArrayGrpBox[iNumLpkFilesVisible] do
begin begin
Caption := Format('Package #%d Information', [Succ(iNumLpkFilesVisible)]); Caption := Format(rsPackageDInfo, [Succ(iNumLpkFilesVisible)]);
if (iNumLpkFilesVisible > 0) then if (iNumLpkFilesVisible > 0) then
SetBounds(8, ArrayGrpBox[Pred(iNumLpkFilesVisible)].Top + SetBounds(8, ArrayGrpBox[Pred(iNumLpkFilesVisible)].Top +
ArrayGrpBox[Pred(iNumLpkFilesVisible)].Height + 10, frmMain.Width - 16, 100) ArrayGrpBox[Pred(iNumLpkFilesVisible)].Height + 10, frmMain.Width - 16, 100)
@ -463,14 +472,14 @@ begin
ArrayLblPackageFileName[iNumLpkFilesVisible] := TLabel.Create(nil); ArrayLblPackageFileName[iNumLpkFilesVisible] := TLabel.Create(nil);
with ArrayLblPackageFileName[iNumLpkFilesVisible] do with ArrayLblPackageFileName[iNumLpkFilesVisible] do
begin begin
Caption := 'Filename: '; Caption := rsFilename;
SetBounds(8, 10, 50, 23); SetBounds(8, 10, 50, 23);
Visible := True; Visible := True;
Tag := Pred(iNumLpkFilesVisible); Tag := Pred(iNumLpkFilesVisible);
OnMouseEnter := @CtrlShowPopup; OnMouseEnter := @CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup; OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup; OnClick := @CtrlHidePopup;
Hint := 'Just the package filename e.g. package.lpk'; Hint := Format('%s%s%s',[rsFilename,LineEnding,rsThePackageFi]);
Parent := ArrayGrpBox[iNumLpkFilesVisible]; Parent := ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// EditBox - Package name // EditBox - Package name
@ -485,21 +494,21 @@ begin
OnMouseLeave := @CtrlHidePopup; OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup; OnClick := @CtrlHidePopup;
OnEditingDone := @CtrlMakeDirty; OnEditingDone := @CtrlMakeDirty;
Hint := 'Just the package filename e.g. package.lpk'; Hint := Format('%s%s%s',[rsFilename,LineEnding,rsThePackageFi]);
Parent := ArrayGrpBox[iNumLpkFilesVisible]; Parent := ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// Label - Package Version // Label - Package Version
ArrayLblPackageVersion[iNumLpkFilesVisible] := TLabel.Create(nil); ArrayLblPackageVersion[iNumLpkFilesVisible] := TLabel.Create(nil);
with ArrayLblPackageVersion[iNumLpkFilesVisible] do with ArrayLblPackageVersion[iNumLpkFilesVisible] do
begin begin
Caption := 'Version: '; Caption := rsVersion;
SetBounds(330, 10, 50, 23); SetBounds(330, 10, 50, 23);
Visible := True; Visible := True;
Tag := Pred(iNumLpkFilesVisible); Tag := Pred(iNumLpkFilesVisible);
OnMouseEnter := @CtrlShowPopup; OnMouseEnter := @CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup; OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup; OnClick := @CtrlHidePopup;
Hint := 'Format is: n.n.n.n'; Hint := Format(rsFormatIsNNNN,[LineEnding]);
Parent := ArrayGrpBox[iNumLpkFilesVisible]; Parent := ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// SpinEdit V1 // SpinEdit V1
@ -514,7 +523,7 @@ begin
OnMouseLeave := @CtrlHidePopup; OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup; OnClick := @CtrlHidePopup;
OnChange := @CtrlMakeDirty; OnChange := @CtrlMakeDirty;
Hint := 'Format is: n.n.n.n'; Hint := Format(rsFormatIsNNNN,[LineEnding]);
Parent := ArrayGrpBox[iNumLpkFilesVisible]; Parent := ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// SpinEdit V2 // SpinEdit V2
@ -525,12 +534,11 @@ begin
SetBounds(430, 8, 40, 20); SetBounds(430, 8, 40, 20);
Visible := True; Visible := True;
Tag := Pred(iNumLpkFilesVisible); Tag := Pred(iNumLpkFilesVisible);
Hint := 'Format is: n.n.n.n';
OnMouseEnter := @CtrlShowPopup; OnMouseEnter := @CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup; OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup; OnClick := @CtrlHidePopup;
OnChange := @CtrlMakeDirty; OnChange := @CtrlMakeDirty;
Hint := 'Format is: n.n.n.n'; Hint := Format(rsFormatIsNNNN,[LineEnding]);
Parent := ArrayGrpBox[iNumLpkFilesVisible]; Parent := ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// SpinEdit V3 // SpinEdit V3
@ -541,12 +549,11 @@ begin
SetBounds(480, 8, 40, 20); SetBounds(480, 8, 40, 20);
Visible := True; Visible := True;
Tag := Pred(iNumLpkFilesVisible); Tag := Pred(iNumLpkFilesVisible);
Hint := 'Format is: n.n.n.n';
OnMouseEnter := @CtrlShowPopup; OnMouseEnter := @CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup; OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup; OnClick := @CtrlHidePopup;
OnChange := @CtrlMakeDirty; OnChange := @CtrlMakeDirty;
Hint := 'Format is: n.n.n.n'; Hint := Format(rsFormatIsNNNN,[LineEnding]);
Parent := ArrayGrpBox[iNumLpkFilesVisible]; Parent := ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// SpinEdit V4 // SpinEdit V4
@ -557,12 +564,11 @@ begin
SetBounds(530, 8, 40, 20); SetBounds(530, 8, 40, 20);
Visible := True; Visible := True;
Tag := Pred(iNumLpkFilesVisible); Tag := Pred(iNumLpkFilesVisible);
Hint := 'Format is: n.n.n.n';
OnMouseEnter := @CtrlShowPopup; OnMouseEnter := @CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup; OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup; OnClick := @CtrlHidePopup;
OnChange := @CtrlMakeDirty; OnChange := @CtrlMakeDirty;
Hint := 'Format is: n.n.n.n'; Hint := Format(rsFormatIsNNNN,[LineEnding]);
Parent := ArrayGrpBox[iNumLpkFilesVisible]; Parent := ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// ChkBox Notify // ChkBox Notify
@ -570,7 +576,7 @@ begin
with ArrayChkBoxForceNotify[iNumLpkFilesVisible] do with ArrayChkBoxForceNotify[iNumLpkFilesVisible] do
begin begin
Checked := False; Checked := False;
Caption := 'Notify Update'; Caption := rsNotifyUpdate;
SetBounds(8, 50, 40, 20); SetBounds(8, 50, 40, 20);
Visible := True; Visible := True;
Tag := Pred(iNumLpkFilesVisible); Tag := Pred(iNumLpkFilesVisible);
@ -579,21 +585,21 @@ begin
OnClick := @CtrlHidePopup; OnClick := @CtrlHidePopup;
OnMouseUp := @ProcessNotify; OnMouseUp := @ProcessNotify;
OnEditingDone := @CtrlMakeDirty; OnEditingDone := @CtrlMakeDirty;
Hint := 'Check this if you don''t want to incrememt the package version'; Hint := Format('%s:%s%s',[rsNotifyUpdate,LineEnding,rsCheckThisIfY]);
Parent := ArrayGrpBox[iNumLpkFilesVisible]; Parent := ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// Label Internal version // Label Internal version
ArrayLblPackageInternalVersion[iNumLpkFilesVisible] := TLabel.Create(nil); ArrayLblPackageInternalVersion[iNumLpkFilesVisible] := TLabel.Create(nil);
with ArrayLblPackageInternalVersion[iNumLpkFilesVisible] do with ArrayLblPackageInternalVersion[iNumLpkFilesVisible] do
begin begin
Caption := 'Internal Version: '; Caption := rsInternalVers;
SetBounds(160, 50, 40, 23); SetBounds(160, 50, 40, 23);
Visible := True; Visible := True;
Tag := Pred(iNumLpkFilesVisible); Tag := Pred(iNumLpkFilesVisible);
OnMouseEnter := @CtrlShowPopup; OnMouseEnter := @CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup; OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup; OnClick := @CtrlHidePopup;
Hint := 'Use in combination with Notify Update'; Hint := Format('%s%s%s%s', [rsInternalVers,LineEnding,rsUseInCombina,rsNotifyUpdate]);
Parent := ArrayGrpBox[iNumLpkFilesVisible]; Parent := ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// SpinEdit Internal Version // SpinEdit Internal Version
@ -608,11 +614,11 @@ begin
OnMouseLeave := @CtrlHidePopup; OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup; OnClick := @CtrlHidePopup;
OnChange := @CtrlMakeDirty; OnChange := @CtrlMakeDirty;
Hint := 'Use in combination with Notify Update'; Hint := Format('%s%s%s%s', [rsInternalVers,LineEnding,rsUseInCombina,rsNotifyUpdate]);
Parent := ArrayGrpBox[iNumLpkFilesVisible]; Parent := ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// This sets the subcontrols up correctly // This sets the subcontrols up correctly
Parent := sbPackageFiles; Parent := sb_PackageFiles;
end; end;
end; end;
@ -637,7 +643,8 @@ begin
FreeAndNil(ArrayEdtPackageFileName[iLast]); FreeAndNil(ArrayEdtPackageFileName[iLast]);
FreeAndNil(ArrayLblPackageFileName[iLast]); FreeAndNil(ArrayLblPackageFileName[iLast]);
FreeAndNil(ArrayGrpBox[iLast]); FreeAndNil(ArrayGrpBox[iLast]);
// Tidy up control arrays
// Tidy up control array lengths
SetLength(ArrayChkBoxForceNotify, iLast); SetLength(ArrayChkBoxForceNotify, iLast);
SetLength(ArrayLblPackageInternalVersion, iLast); SetLength(ArrayLblPackageInternalVersion, iLast);
SetLength(ArraySpinEditInternalVersion, iLast); SetLength(ArraySpinEditInternalVersion, iLast);
@ -653,17 +660,18 @@ end;
procedure TfrmMain.AddPackageFileToList; procedure TfrmMain.AddPackageFileToList;
begin begin
AddNewControlArray; // make another one AddNewControlArray; // Contruct another one
// Makes it visible // Makes it visible and aligns it
ArrayGrpBox[High(ArrayGrpBox)].Visible := True; ArrayGrpBox[High(ArrayGrpBox)].Visible := True;
ArrayGrpBox[High(ArrayGrpBox)].Align := alTop; ArrayGrpBox[High(ArrayGrpBox)].Align := alTop;
Inc(iNumLpkFilesVisible); Inc(iNumLpkFilesVisible);// Note: = Succ(High(Array))
CtrlSetUpPopupHandlers; CtrlSetUpPopupHandlers;
Refresh; Refresh;
end; end;
procedure TfrmMain.ResetPackageFileControlsToOne; procedure TfrmMain.ResetPackageFileControlsToOne;
// Used in File/New
var var
iCount: integer; iCount: integer;
begin begin
@ -710,6 +718,7 @@ end;
procedure TfrmMain.ProcessNotify(Sender: TObject; Button: TMouseButton; procedure TfrmMain.ProcessNotify(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: integer); Shift: TShiftState; X, Y: integer);
begin begin
// Special hint
if not bShowPopupHints then if not bShowPopupHints then
exit; exit;
popup_hint.Text := rsThisOptionSh; popup_hint.Text := rsThisOptionSh;
@ -726,9 +735,9 @@ end;
procedure TfrmMain.chk_DisableInOPMMouseUp(Sender: TObject; procedure TfrmMain.chk_DisableInOPMMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
// Warn user about DisableInOPM
If chk_DisableInOPM.Checked=TRUE then If chk_DisableInOPM.Checked=TRUE then
If MessageDlg('This will disable your package in OnlinePackageManager!' + LineEnding + if MessageDlg(Format(rsThisWillDisa, [LineEnding]),
'Are you SURE you want to do this?',
mtWarning,[MBYES,MBNO],0,MBNO) = mrNo then mtWarning,[MBYES,MBNO],0,MBNO) = mrNo then
chk_DisableInOPM.Checked:=FALSE; chk_DisableInOPM.Checked:=FALSE;
end; end;
@ -748,7 +757,7 @@ begin
end end
else else
begin begin
CFG.WriteBool('Options', 'Virgin', False); CFG.WriteBool('Options', 'Virgin', False); // Suppresses PopUp hints on next run
CFG.WriteBool('Options', 'DiableWarnings', bDisableWarnings); CFG.WriteBool('Options', 'DiableWarnings', bDisableWarnings);
CFG.UpdateFile; CFG.UpdateFile;
end; end;
@ -756,6 +765,7 @@ end;
function TfrmMain.CreateUniqueINI(var aCount: integer): boolean; function TfrmMain.CreateUniqueINI(var aCount: integer): boolean;
// Recursively loop until correct INI found, or new one created // Recursively loop until correct INI found, or new one created
// Based on Executable's path location
begin begin
Result := False; Result := False;
INIFilePath := GetAppConfigFile(False) + IntToStr(aCount); INIFilePath := GetAppConfigFile(False) + IntToStr(aCount);
@ -897,7 +907,7 @@ begin
end; end;
end end
else else
ShowMessageFmt('There was a problem loading "%s" - is it corrupted or in the wrong format?', ShowMessageFmt(rsThereWasAPro,
[ExtractFilename(FileOpen1.Dialog.FileName)]); [ExtractFilename(FileOpen1.Dialog.FileName)]);
finally finally
JSONPackage.Free; JSONPackage.Free;
@ -1095,7 +1105,7 @@ begin
(ArraySpinEditV3[iCount].Value = 0) and (ArraySpinEditV3[iCount].Value = 0) and
(ArraySpinEditV4[iCount].Value = 0) then (ArraySpinEditV4[iCount].Value = 0) then
begin begin
slErrorList.Add(Format('Version for package %d is zero', [Succ(iCount)])); slErrorList.Add(Format(rsVersionForPa, [Succ(iCount)]));
ArraySpinEditV1[iCount].Color := clYellow; ArraySpinEditV1[iCount].Color := clYellow;
ArraySpinEditV2[iCount].Color := clYellow; ArraySpinEditV2[iCount].Color := clYellow;
ArraySpinEditV3[iCount].Color := clYellow; ArraySpinEditV3[iCount].Color := clYellow;
@ -1107,7 +1117,7 @@ begin
If ArraySpinEditInternalVersion[iCount].Value = 0 then If ArraySpinEditInternalVersion[iCount].Value = 0 then
begin begin
ArraySpinEditInternalVersion[iCount].Color := clYellow; ArraySpinEditInternalVersion[iCount].Color := clYellow;
slErrorList.Add(Format('Internal version number should not be Zero%s', [LineEnding])); slErrorList.Add(Format(rsInternalVers2, [LineEnding]));
Result := True; Result := True;
end; end;
// Check for duplicate .lpk entries // Check for duplicate .lpk entries
@ -1212,12 +1222,16 @@ procedure TfrmMain.spd_CheckURLClick(Sender: TObject);
// Show a popup notification because it takes time to open a browser window // Show a popup notification because it takes time to open a browser window
var var
bTemp: boolean; bTemp: boolean;
sOldHint:String;
begin begin
if OpenURL(edt_DownloadZipURL.Text) then if OpenURL(edt_DownloadZipURL.Text) then
begin begin
bTemp := bShowPopupHints; bTemp := bShowPopupHints;
sOldHint:=spd_CheckURL.Hint;
spd_CheckURL.Hint:=rsOpeningYourB;
bShowPopupHints := True; bShowPopupHints := True;
CtrlShowPopup(spd_CheckURL); CtrlShowPopup(spd_CheckURL);
spd_CheckURL.Hint:=sOldHint;
bShowPopupHints := bTemp; bShowPopupHints := bTemp;
end; end;
end; end;