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

To 0.1.19.0: Added IntrnalVersion integer field to json (minesadorada)

Browse Source 
Added SpinEdit to control the above  (minesadorada)


git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5454 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-12-09 08:59:02 +00:00
parent 3685e2e4dd
commit d6f59a224b
12 changed files with 287 additions and 122 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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

2
applications/json_packager/jsonpackage.lpi
View File

@@ -28,7 +28,7 @@
<UseVersionInfo Value="True"/> <UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/> <AutoIncrementBuild Value="True"/>
<MinorVersionNr Value="1"/> <MinorVersionNr Value="1"/>
<RevisionNr Value="18"/> <RevisionNr Value="19"/>
<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">

119
applications/json_packager/jsonpackage.lps
View File

@@ -3,14 +3,14 @@
<ProjectSession> <ProjectSession>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="10"/> <Version Value="10"/>
<BuildModes Active="DEBUG Win64"/> <BuildModes Active="Win64"/>
<Units Count="32"> <Units Count="34">
<Unit0> <Unit0>
<Filename Value="jsonpackage.lpr"/> <Filename Value="jsonpackage.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="2"/> <EditorIndex Value="5"/>
<CursorPos Y="30"/> <CursorPos Y="30"/>
<UsageCount Value="80"/> <UsageCount Value="83"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@@ -20,12 +20,12 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="45"/> <TopLine Value="30"/>
<CursorPos X="48" Y="914"/> <CursorPos X="86" Y="65"/>
<UsageCount Value="80"/> <UsageCount Value="83"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 Y="511" ID="1"/> <Item0 Y="545" ID="1"/>
<Item1 Y="793"/> <Item1 Y="829"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@@ -33,7 +33,7 @@
<Unit2> <Unit2>
<Filename Value="ugenericcollection.pas"/> <Filename Value="ugenericcollection.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UsageCount Value="80"/> <UsageCount Value="83"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.pas"/> <Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.pas"/>
@@ -107,10 +107,11 @@
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="C:\NewPascalDarwin\fpc\rtl\objpas\classes\classesh.inc"/> <Filename Value="C:\NewPascalDarwin\fpc\rtl\objpas\classes\classesh.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="3"/>
<TopLine Value="475"/> <TopLine Value="1563"/>
<CursorPos X="21" Y="525"/> <CursorPos X="14" Y="1794"/>
<UsageCount Value="15"/> <UsageCount Value="15"/>
<Loaded Value="True"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="X:\MainForm\MainForm\umain.pas"/> <Filename Value="X:\MainForm\MainForm\umain.pas"/>
@@ -235,10 +236,10 @@
<Unit30> <Unit30>
<Filename Value="C:\trunklatest\lazarus\ide\lazarus.pp"/> <Filename Value="C:\trunklatest\lazarus\ide\lazarus.pp"/>
<UnitName Value="Lazarus"/> <UnitName Value="Lazarus"/>
<EditorIndex Value="1"/> <EditorIndex Value="4"/>
<TopLine Value="116"/> <TopLine Value="116"/>
<CursorPos X="54" Y="133"/> <CursorPos X="54" Y="133"/>
<UsageCount Value="10"/> <UsageCount Value="11"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
@@ -250,127 +251,149 @@
<CursorPos X="46" Y="18"/> <CursorPos X="46" Y="18"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit31> </Unit31>
<Unit32>
<Filename Value="C:\NewPascalDarwin\lazarus\lcl\controls.pp"/>
<UnitName Value="Controls"/>
<EditorIndex Value="2"/>
<TopLine Value="2131"/>
<CursorPos X="3" Y="1900"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit32>
<Unit33>
<Filename Value="C:\NewPascalDarwin\lazarus\lcl\stdctrls.pp"/>
<UnitName Value="StdCtrls"/>
<EditorIndex Value="1"/>
<TopLine Value="129"/>
<CursorPos X="38" Y="159"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit33>
</Units> </Units>
<OtherDefines Count="1"> <OtherDefines Count="1">
<Define0 Value="IGNOREPICTURE"/> <Define0 Value="IGNOREPICTURE"/>
</OtherDefines> </OtherDefines>
<JumpHistory Count="29" HistoryIndex="28"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="900" Column="50" TopLine="864"/> <Caret Line="60" Column="56" TopLine="34"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="188" Column="4" TopLine="159"/> <Caret Line="433" Column="3" TopLine="428"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="900" Column="45" TopLine="864"/> <Caret Line="960" Column="18" TopLine="952"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="umain.pas"/> <Filename Value="C:\trunklatest\lazarus\ide\lazarus.pp"/>
<Caret Line="188" TopLine="154"/> <Caret Line="154" TopLine="116"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="903" Column="34" TopLine="863"/> <Caret Line="919" Column="60" TopLine="899"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="54" Column="49" TopLine="20"/> <Caret Line="921" Column="85" TopLine="902"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="3"/> <Caret Line="923" TopLine="904"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="184" Column="23" TopLine="162"/> <Caret Line="882" Column="52" TopLine="866"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="55" Column="78" TopLine="37"/> <Caret Line="64" Column="36" TopLine="40"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="905" Column="26" TopLine="864"/> <Caret Line="332" TopLine="298"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="922" Column="5" TopLine="878"/> <Caret Line="309" Column="33" TopLine="294"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="193" TopLine="183"/> <Caret Line="312" Column="33" TopLine="287"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="63" Column="99" TopLine="31"/> <Caret Line="311" Column="52" TopLine="286"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="947" Column="66" TopLine="917"/> <Caret Line="310" Column="80" TopLine="286"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="961" Column="56" TopLine="929"/> <Caret Line="311" Column="82" TopLine="287"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="947" Column="65" TopLine="930"/> <Caret Line="307" Column="49" TopLine="287"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="59" Column="78" TopLine="35"/> <Caret Line="309" Column="40" TopLine="287"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="umain.pas"/> <Filename Value="C:\NewPascalDarwin\lazarus\lcl\stdctrls.pp"/>
<Caret Line="947" Column="75" TopLine="923"/> <Caret Line="159" Column="38" TopLine="129"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Column="2"/> <Caret Line="311" Column="64" TopLine="287"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="909" Column="20" TopLine="893"/> <Caret Line="315" Column="57" TopLine="293"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="935" Column="35" TopLine="923"/> <Caret Line="310" Column="75" TopLine="286"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="47" Column="57" TopLine="7"/> <Caret Line="309" Column="72" TopLine="286"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="60" Column="56" TopLine="34"/> <Caret Line="312" Column="47" TopLine="288"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="433" Column="3" TopLine="428"/> <Caret Line="314" Column="57" TopLine="291"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="960" Column="18" TopLine="952"/> <Caret Line="313" Column="42" TopLine="291"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="C:\trunklatest\lazarus\ide\lazarus.pp"/> <Filename Value="umain.pas"/>
<Caret Line="154" TopLine="116"/> <Caret Line="312" Column="67" TopLine="289"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="919" Column="60" TopLine="899"/> <Caret Line="325" Column="68" TopLine="307"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="921" Column="85" TopLine="902"/> <Caret Line="331" Column="67" TopLine="312"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="923" TopLine="904"/> <Caret Line="418" Column="71" TopLine="405"/>
</Position29> </Position29>
<Position30>
<Filename Value="umain.pas"/>
<Caret Line="53" Column="70" TopLine="32"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>
</CONFIG> </CONFIG>

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.

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

@@ -117,6 +117,19 @@ msgstr "Update Zip Name:"
msgid "Package Files:" msgid "Package Files:"
msgstr "Package Files:" msgstr "Package Files:"
#: tfrmmain.lbl_internalversion.caption
msgid "Internal Version"
msgstr "Internal Version"
#: tfrmmain.lbl_internalversion.hint
msgctxt "tfrmmain.lbl_internalversion.hint"
msgid ""
"Internal Version:\n"
"Increase internal version when you have made changes in the source. It works only combined with ForceNotify.\n"
msgstr ""
"Internal Version:\n"
"Increase internal version when you have made changes in the source. It works only combined with ForceNotify.\n"
#: tfrmmain.loaditem.caption #: tfrmmain.loaditem.caption
msgid "Load..." msgid "Load..."
msgstr "Load..." msgstr "Load..."
@@ -183,6 +196,13 @@ msgstr "Check URL"
msgid "Attempting to Open URL" msgid "Attempting to Open URL"
msgstr "Attempting to Open URL" msgstr "Attempting to Open URL"
#: tfrmmain.spin_internalversion.hint
msgctxt "tfrmmain.spin_internalversion.hint"
msgid ""
"Internal Version:\n"
"Increase internal version when you have made changes in the source. It works only combined with ForceNotify.\n"
msgstr ""
#: tfrmmain.stringpackagefiles.hint #: tfrmmain.stringpackagefiles.hint
msgid "" msgid ""
"Package Files:\n" "Package Files:\n"
@@ -340,4 +360,3 @@ msgstr "Would you like to copy %s to the %s folder?"
#: umain.rsyoumayneedto #: umain.rsyoumayneedto
msgid "(You may need to restart the app to see the change)" msgid "(You may need to restart the app to see the change)"
msgstr "(You may need to restart the app to see the change)" msgstr "(You may need to restart the app to see the change)"

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

Binary file not shown.

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

@@ -4,12 +4,12 @@ msgstr ""
"Project-Id-Version: jsoneditor\n" "Project-Id-Version: jsoneditor\n"
"POT-Creation-Date: \n" "POT-Creation-Date: \n"
"PO-Revision-Date: \n" "PO-Revision-Date: \n"
"Last-Translator: \n" "Last-Translator: minesadorada <minesadorada@charcodelvalle.com>\n"
"Language-Team: \n" "Language-Team: \n"
"MIME-Version: 1.0\n" "MIME-Version: 1.0\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
"Language: es\n" "Language: es\n"
"X-Generator: Poedit 1.8.8\n" "X-Generator: Poedit 1.8.11\n"
"X-Poedit-SourceCharset: UTF-8\n" "X-Poedit-SourceCharset: UTF-8\n"
#: tfrmmain.btnadd.caption #: tfrmmain.btnadd.caption
@@ -118,6 +118,19 @@ msgstr "Nombre del Zip de actualización:"
msgid "Package Files:" msgid "Package Files:"
msgstr "Archivos de Paquete:" msgstr "Archivos de Paquete:"
#: tfrmmain.lbl_internalversion.caption
msgid "Internal Version"
msgstr "Versión interna"
#: tfrmmain.lbl_internalversion.hint
msgctxt "tfrmmain.lbl_internalversion.hint"
msgid ""
"Internal Version:\n"
"Increase internal version when you have made changes in the source. It works only combined with ForceNotify.\n"
msgstr ""
"Versión interno:\n"
"Aumenta versión interna cuando se han hecho cambios en la fuente. Sólo funciona combina con ForceNotify.\n"
#: tfrmmain.loaditem.caption #: tfrmmain.loaditem.caption
msgid "Load..." msgid "Load..."
msgstr "Cargar..." msgstr "Cargar..."
@@ -184,6 +197,13 @@ msgstr "Verificar URL"
msgid "Attempting to Open URL" msgid "Attempting to Open URL"
msgstr "Intentando Abrir URL" msgstr "Intentando Abrir URL"
#: tfrmmain.spin_internalversion.hint
msgctxt "tfrmmain.spin_internalversion.hint"
msgid ""
"Internal Version:\n"
"Increase internal version when you have made changes in the source. It works only combined with ForceNotify.\n"
msgstr ""
#: tfrmmain.stringpackagefiles.hint #: tfrmmain.stringpackagefiles.hint
msgid "" msgid ""
"Package Files:\n" "Package Files:\n"
@@ -341,4 +361,3 @@ msgstr "¿Quieres copiar %s a la carpeta %s?"
#: umain.rsyoumayneedto #: umain.rsyoumayneedto
msgid "(You may need to restart the app to see the change)" msgid "(You may need to restart the app to see the change)"
msgstr "(Quizás necesites reiniciar la aplicación para ver los cambios)" msgstr "(Quizás necesites reiniciar la aplicación para ver los cambios)"

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

@@ -103,6 +103,17 @@ msgstr ""
msgid "Package Files:" msgid "Package Files:"
msgstr "" msgstr ""
#: tfrmmain.lbl_internalversion.caption
msgid "Internal Version"
msgstr ""
#: tfrmmain.lbl_internalversion.hint
msgctxt "tfrmmain.lbl_internalversion.hint"
msgid ""
"Internal Version:\n"
"Increase internal version when you have made changes in the source. It works only combined with ForceNotify.\n"
msgstr ""
#: tfrmmain.loaditem.caption #: tfrmmain.loaditem.caption
msgid "Load..." msgid "Load..."
msgstr "" msgstr ""
@@ -166,6 +177,13 @@ msgstr ""
msgid "Attempting to Open URL" msgid "Attempting to Open URL"
msgstr "" msgstr ""
#: tfrmmain.spin_internalversion.hint
msgctxt "tfrmmain.spin_internalversion.hint"
msgid ""
"Internal Version:\n"
"Increase internal version when you have made changes in the source. It works only combined with ForceNotify.\n"
msgstr ""
#: tfrmmain.stringpackagefiles.hint #: tfrmmain.stringpackagefiles.hint
msgid "" msgid ""
"Package Files:\n" "Package Files:\n"

147
applications/json_packager/umain.lfm
View File

@@ -1,14 +1,14 @@
object frmMain: TfrmMain object frmMain: TfrmMain
Left = 526 Left = 503
Height = 420 Height = 425
Top = 226 Top = 226
Width = 320 Width = 339
AutoSize = True AutoSize = True
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsSingle BorderStyle = bsSingle
BorderWidth = 8 BorderWidth = 8
ClientHeight = 400 ClientHeight = 405
ClientWidth = 320 ClientWidth = 339
DefaultMonitor = dmPrimary DefaultMonitor = dmPrimary
Menu = MainMenu1 Menu = MainMenu1
OnClick = mnu_fileSaveClick OnClick = mnu_fileSaveClick
@@ -29,31 +29,21 @@ object frmMain: TfrmMain
ParentColor = False ParentColor = False
end end
object editName: TEdit object editName: TEdit
AnchorSideRight.Control = sb_editName
Left = 8 Left = 8
Height = 23 Height = 23
Hint = 'Update Zip Name:'#13#10'This is just the filename (not including the path)'#13#10'of your update zip. Type, or click the [...]' Hint = 'Update Zip Name:'#13#10'This is just the filename (not including the path)'#13#10'of your update zip. Type, or click the [...]'
Top = 31 Top = 32
Width = 264 Width = 291
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
Color = clWindow Color = clWindow
TabOrder = 0 TabOrder = 0
end end
object cbForceNotify: TCheckBox
Left = 8
Height = 19
Hint = 'Force Notify check box:'#13#10'If this is checked the OPM user will be notified'#13#10'of your update. Only check this if the update is important.'
Top = 72
Width = 85
Caption = 'Force Notify'
Color = clWindow
OnMouseUp = cbForceNotifyMouseUp
ParentColor = False
TabOrder = 1
end
object lblDownloadZipURL: TLabel object lblDownloadZipURL: TLabel
Left = 8 Left = 8
Height = 15 Height = 15
Top = 104 Top = 112
Width = 81 Width = 81
Caption = 'Download URL:' Caption = 'Download URL:'
ParentColor = False ParentColor = False
@@ -62,17 +52,16 @@ object frmMain: TfrmMain
Left = 8 Left = 8
Height = 28 Height = 28
Hint = 'Download URL:'#13#10'Include the FULL url needed to download the package Zip file' Hint = 'Download URL:'#13#10'Include the FULL url needed to download the package Zip file'
Top = 128 Top = 136
Width = 304 Width = 322
Anchors = [akTop, akLeft, akRight]
AutoSize = False AutoSize = False
Color = clWindow Color = clWindow
TabOrder = 2 TabOrder = 1
end end
object lblPackageFiles: TLabel object lblPackageFiles: TLabel
Left = 8 Left = 8
Height = 15 Height = 15
Top = 163 Top = 173
Width = 73 Width = 73
Caption = 'Package Files:' Caption = 'Package Files:'
ParentColor = False ParentColor = False
@@ -81,65 +70,71 @@ object frmMain: TfrmMain
Left = 8 Left = 8
Height = 144 Height = 144
Hint = 'Package Files:'#13#10'[Add]: to make a new entry'#13#10'[Remove]: Remove last entry'#13#10'lpk filename: i.e. mycontrol.lpk'#13#10'Version: The FULL version (i.e. not 1.0 but 1.0.0.0)' Hint = 'Package Files:'#13#10'[Add]: to make a new entry'#13#10'[Remove]: Remove last entry'#13#10'lpk filename: i.e. mycontrol.lpk'#13#10'Version: The FULL version (i.e. not 1.0 but 1.0.0.0)'
Top = 192 Top = 208
Width = 304 Width = 323
Anchors = [akTop, akLeft, akRight]
AutoFillColumns = True AutoFillColumns = True
ColCount = 2 ColCount = 2
Columns = < Columns = <
item item
Title.Caption = '' Title.Caption = ''
Width = 150 Width = 159
end end
item item
Title.Caption = '' Title.Caption = ''
Width = 150 Width = 160
end> end>
FixedCols = 0 FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goThumbTracking, goSmoothScroll] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goThumbTracking, goSmoothScroll]
RowCount = 1 RowCount = 1
TabOrder = 3 TabOrder = 2
TitleStyle = tsNative TitleStyle = tsNative
ColWidths = ( ColWidths = (
150 159
150 160
) )
end end
object btnAdd: TButton object btnAdd: TButton
Left = 160 AnchorSideRight.Control = btnRemove
Left = 176
Height = 25 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.' Hint = 'Add Package File:'#13#10'The update zip can contain more than one lpk file'#13#10'deployed to the same place.'
Top = 163 Top = 173
Width = 75 Width = 65
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 5
Caption = 'Add' Caption = 'Add'
OnClick = btnAddClick OnClick = btnAddClick
TabOrder = 4 TabOrder = 3
end end
object btnRemove: TButton object btnRemove: TButton
Left = 237 Left = 246
Height = 25 Height = 25
Hint = 'Remove Package File:'#13#10'Deletes the last entry from the list' Hint = 'Remove Package File:'#13#10'Deletes the last entry from the list'
Top = 163 Top = 173
Width = 75 Width = 75
Anchors = [akTop, akRight]
Caption = 'Remove' Caption = 'Remove'
OnClick = btnRemoveClick OnClick = btnRemoveClick
TabOrder = 5 TabOrder = 4
end end
object cmd_Close: TBitBtn object cmd_Close: TBitBtn
Left = 237 Left = 253
Height = 30 Height = 30
Top = 352 Top = 368
Width = 75 Width = 76
Anchors = [akTop, akLeft, akRight]
Cancel = True Cancel = True
Caption = '&Close' Caption = '&Close'
Kind = bkClose Kind = bkClose
ModalResult = 11 ModalResult = 11
TabOrder = 6 TabOrder = 5
end end
object cmd_save: TBitBtn object cmd_save: TBitBtn
Left = 123 Left = 134
Height = 30 Height = 30
Hint = 'Save the current configuration to disk'#13#10'as a JSON update file' Hint = 'Save the current configuration to disk'#13#10'as a JSON update file'
Top = 352 Top = 368
Width = 75 Width = 75
Caption = '&Save' Caption = '&Save'
Default = True Default = True
@@ -180,27 +175,79 @@ object frmMain: TfrmMain
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
} }
OnClick = mnu_fileSaveClick OnClick = mnu_fileSaveClick
TabOrder = 7 TabOrder = 6
end end
object sb_editName: TSpeedButton object sb_editName: TSpeedButton
Left = 280 Left = 305
Height = 22 Height = 22
Hint = 'Update Zip Name:'#13#10'Click this to browse your system to find'#13#10' an existing Update Zip' Hint = 'Update Zip Name:'#13#10'Click this to browse your system to find'#13#10' an existing Update Zip'
Top = 31 Top = 32
Width = 24 Width = 24
Anchors = [akTop, akRight]
Caption = '...' Caption = '...'
OnClick = sb_editNameClick OnClick = sb_editNameClick
end end
object spd_CheckURL: TSpeedButton object spd_CheckURL: TSpeedButton
Left = 104 Left = 257
Height = 19 Height = 19
Hint = 'Attempting to Open URL' Hint = 'Attempting to Open URL'
Top = 102 Top = 112
Width = 61 Width = 61
Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
Caption = 'Check URL' Caption = 'Check URL'
OnClick = spd_CheckURLClick OnClick = spd_CheckURLClick
end end
object grp_ForceNotify: TGroupBox
Left = 8
Height = 48
Top = 56
Width = 321
Anchors = [akTop, akLeft, akRight]
ClientHeight = 28
ClientWidth = 317
TabOrder = 7
object cbForceNotify: TCheckBox
Left = 8
Height = 19
Hint = 'Force Notify check box:'#13#10'If this is checked the OPM user will be notified'#13#10'of your update. Only check this if the update is important.'
Top = 0
Width = 85
Anchors = [akLeft]
Caption = 'Force Notify'
Color = clWindow
OnMouseUp = cbForceNotifyMouseUp
ParentColor = False
TabOrder = 0
end
object Spin_InternalVersion: TSpinEdit
AnchorSideTop.Control = grp_ForceNotify
AnchorSideRight.Control = grp_ForceNotify
Left = 256
Height = 23
Hint = 'Internal Version:'#13#10'Increase internal version when you have made changes in the source. It works only combined with ForceNotify.'
Top = 0
Width = 51
Anchors = []
BorderSpacing.Right = 7
MaxValue = 364
TabOrder = 1
end
object lbl_InternalVersion: TLabel
AnchorSideRight.Control = Spin_InternalVersion
Left = 104
Height = 15
Hint = 'Internal Version:'#13#10'Increase internal version when you have made changes in the source. It works only combined with ForceNotify.'
Top = 2
Width = 147
Alignment = taRightJustify
Anchors = [akLeft, akRight]
BorderSpacing.Right = 5
Caption = 'Internal Version'
ParentColor = False
OnClick = lbl_InternalVersionClick
end
end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
Left = 200 Left = 200
object FileMenu: TMenuItem object FileMenu: TMenuItem

7
applications/json_packager/umain.lrj
View File

@@ -1,8 +1,6 @@
{"version":1,"strings":[ {"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":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":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":147876574,"name":"tfrmmain.cbforcenotify.hint","sourcebytes":[70,111,114,99,101,32,78,111,116,105,102,121,32,99,104,101,99,107,32,98,111,120,58,13,10,73,102,32,116,104,105,115,32,105,115,32,99,104,101,99,107,101,100,32,116,104,101,32,79,80,77,32,117,115,101,114,32,119,105,108,108,32,98,101,32,110,111,116,105,102,105,101,100,13,10,111,102,32,121,111,117,114,32,117,112,100,97,116,101,46,32,32,79,110,108,121,32,99,104,101,99,107,32,116,104,105,115,32,105,102,32,116,104,101,32,117,112,100,97,116,101,32,105,115,32,105,109,112,111,114,116,97,110,116,46],"value":"Force Notify check box:\r\nIf this is checked the OPM user will be notified\r\nof your update. Only check this if the update is important."},
{"hash":27272873,"name":"tfrmmain.cbforcenotify.caption","sourcebytes":[70,111,114,99,101,32,78,111,116,105,102,121],"value":"Force Notify"},
{"hash":202110442,"name":"tfrmmain.lbldownloadzipurl.caption","sourcebytes":[68,111,119,110,108,111,97,100,32,85,82,76,58],"value":"Download URL:"}, {"hash":202110442,"name":"tfrmmain.lbldownloadzipurl.caption","sourcebytes":[68,111,119,110,108,111,97,100,32,85,82,76,58],"value":"Download URL:"},
{"hash":265021141,"name":"tfrmmain.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":265021141,"name":"tfrmmain.editdownloadzipurl.hint","sourcebytes":[68,111,119,110,108,111,97,100,32,85,82,76,58,13,10,73,110,99,108,117,100,101,32,116,104,101,32,70,85,76,76,32,117,114,108,32,110,101,101,100,101,100,32,116,111,32,100,111,119,110,108,111,97,100,32,116,104,101,32,112,97,99,107,97,103,101,32,90,105,112,32,102,105,108,101],"value":"Download URL:\r\nInclude the FULL url needed to download the package Zip file"},
{"hash":57627770,"name":"tfrmmain.lblpackagefiles.caption","sourcebytes":[80,97,99,107,97,103,101,32,70,105,108,101,115,58],"value":"Package Files:"}, {"hash":57627770,"name":"tfrmmain.lblpackagefiles.caption","sourcebytes":[80,97,99,107,97,103,101,32,70,105,108,101,115,58],"value":"Package Files:"},
@@ -20,6 +18,11 @@
{"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":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":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":147876574,"name":"tfrmmain.cbforcenotify.hint","sourcebytes":[70,111,114,99,101,32,78,111,116,105,102,121,32,99,104,101,99,107,32,98,111,120,58,13,10,73,102,32,116,104,105,115,32,105,115,32,99,104,101,99,107,101,100,32,116,104,101,32,79,80,77,32,117,115,101,114,32,119,105,108,108,32,98,101,32,110,111,116,105,102,105,101,100,13,10,111,102,32,121,111,117,114,32,117,112,100,97,116,101,46,32,32,79,110,108,121,32,99,104,101,99,107,32,116,104,105,115,32,105,102,32,116,104,101,32,117,112,100,97,116,101,32,105,115,32,105,109,112,111,114,116,97,110,116,46],"value":"Force Notify check box:\r\nIf this is checked the OPM user will be notified\r\nof your update. Only check this if the update is important."},
{"hash":27272873,"name":"tfrmmain.cbforcenotify.caption","sourcebytes":[70,111,114,99,101,32,78,111,116,105,102,121],"value":"Force Notify"},
{"hash":43793310,"name":"tfrmmain.spin_internalversion.hint","sourcebytes":[73,110,116,101,114,110,97,108,32,86,101,114,115,105,111,110,58,13,10,73,110,99,114,101,97,115,101,32,105,110,116,101,114,110,97,108,32,118,101,114,115,105,111,110,32,119,104,101,110,32,121,111,117,32,104,97,118,101,32,109,97,100,101,32,99,104,97,110,103,101,115,32,105,110,32,116,104,101,32,115,111,117,114,99,101,46,32,73,116,32,32,119,111,114,107,115,32,111,110,108,121,32,99,111,109,98,105,110,101,100,32,119,105,116,104,32,70,111,114,99,101,78,111,116,105,102,121,46],"value":"Internal Version:\r\nIncrease internal version when you have made changes in the source. It works only combined with ForceNotify."},
{"hash":43793310,"name":"tfrmmain.lbl_internalversion.hint","sourcebytes":[73,110,116,101,114,110,97,108,32,86,101,114,115,105,111,110,58,13,10,73,110,99,114,101,97,115,101,32,105,110,116,101,114,110,97,108,32,118,101,114,115,105,111,110,32,119,104,101,110,32,121,111,117,32,104,97,118,101,32,109,97,100,101,32,99,104,97,110,103,101,115,32,105,110,32,116,104,101,32,115,111,117,114,99,101,46,32,73,116,32,32,119,111,114,107,115,32,111,110,108,121,32,99,111,109,98,105,110,101,100,32,119,105,116,104,32,70,111,114,99,101,78,111,116,105,102,121,46],"value":"Internal Version:\r\nIncrease internal version when you have made changes in the source. It works only combined with ForceNotify."},
{"hash":5825966,"name":"tfrmmain.lbl_internalversion.caption","sourcebytes":[73,110,116,101,114,110,97,108,32,86,101,114,115,105,111,110],"value":"Internal Version"},
{"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"},
{"hash":56062302,"name":"tfrmmain.loaditem.caption","sourcebytes":[76,111,97,100,46,46,46],"value":"Load..."}, {"hash":56062302,"name":"tfrmmain.loaditem.caption","sourcebytes":[76,111,97,100,46,46,46],"value":"Load..."},

68
applications/json_packager/umain.pas
View File

@@ -49,8 +49,10 @@ unit umain;
0.1.17.0: po files stored in resources 0.1.17.0: po files stored in resources
Use Project/Options/Resources in Laz 1.7+ Use Project/Options/Resources in Laz 1.7+
Use LazRes to make a file 'translate.lrs' in older Laz (minesadorada) Use LazRes to make a file 'translate.lrs' in older Laz (minesadorada)
0.1.18.0: Bugfix: Linux path error when creating locale folder 0.1.18.0: Bugfix: Linux path error when creating locale folder (minesadorada)
0.1.19.0: ?? 0.1.19.0: Added IntrnalVersion integer field to json (minesadorada)
Added SpinEdit to control the above (minesadorada)
0.1.20.0: ??
} }
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@@ -59,9 +61,9 @@ interface
{DefaultTranslator} {DefaultTranslator}
uses uses
Classes, Forms, Controls, StdCtrls, Menus, ActnList, StdActns, Grids, Classes, Forms, Controls, StdCtrls, Menus, ActnList, StdActns, Grids,
Graphics, Buttons, fileutil, LazFileUtils, fileinfo, ugenericcollection, fpjsonrtti, Graphics, Buttons, fileutil, LazFileUtils, fileinfo, ugenericcollection,
Dialogs, LCLTranslator, PopupNotifier, SysUtils, inifiles, fpjsonrtti, Dialogs, LCLTranslator, PopupNotifier, SysUtils, inifiles,
lclintf, lclVersion,{$IFDEF PO_BUILTINRES}LResources,LazUTF8Classes{$ENDIF}; lclintf, lclVersion, LResources, Spin, {$IFDEF PO_BUILTINRES}LazUTF8Classes{$ENDIF};
const const
C_DEBUGMESSAGES = False; C_DEBUGMESSAGES = False;
@@ -89,12 +91,14 @@ type
FDownloadZipURL: string; FDownloadZipURL: string;
FForceNotify: boolean; FForceNotify: boolean;
FName: string; FName: string;
FInternalVersion:Integer;
public public
constructor Create; constructor Create;
published published
property Name: string read FName write FName; property Name: string read FName write FName;
property ForceNotify: boolean read FForceNotify write FForceNotify; property ForceNotify: boolean read FForceNotify write FForceNotify;
property DownloadZipURL: string read FDownloadZipURL write FDownloadZipURL; property DownloadZipURL: string read FDownloadZipURL write FDownloadZipURL;
property InternalVersion: integer read FInternalVersion write FInternalVersion;
end; end;
{ TUpdatePackage } { TUpdatePackage }
@@ -119,15 +123,17 @@ type
TfrmMain = class(TForm) TfrmMain = class(TForm)
ActionList1: TActionList; ActionList1: TActionList;
cbForceNotify: TCheckBox;
cmd_Close: TBitBtn; cmd_Close: TBitBtn;
cmd_save: TBitBtn; cmd_save: TBitBtn;
btnAdd: TButton; btnAdd: TButton;
btnRemove: TButton; btnRemove: TButton;
cbForceNotify: TCheckBox;
editName: TEdit; editName: TEdit;
editDownloadZipURL: TEdit; editDownloadZipURL: TEdit;
FileOpen1: TFileOpen; FileOpen1: TFileOpen;
FileSaveAs1: TFileSaveAs; FileSaveAs1: TFileSaveAs;
grp_ForceNotify: TGroupBox;
lbl_InternalVersion: TLabel;
lblPackageFiles: TLabel; lblPackageFiles: TLabel;
lblName: TLabel; lblName: TLabel;
lblDownloadZipURL: TLabel; lblDownloadZipURL: TLabel;
@@ -147,6 +153,7 @@ type
SaveAsItem: TMenuItem; SaveAsItem: TMenuItem;
sb_editName: TSpeedButton; sb_editName: TSpeedButton;
spd_CheckURL: TSpeedButton; spd_CheckURL: TSpeedButton;
Spin_InternalVersion: TSpinEdit;
stringPackageFiles: TStringGrid; stringPackageFiles: TStringGrid;
procedure btnAddClick(Sender: TObject); procedure btnAddClick(Sender: TObject);
procedure btnRemoveClick(Sender: TObject); procedure btnRemoveClick(Sender: TObject);
@@ -157,6 +164,7 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure lbl_InternalVersionClick(Sender: TObject);
procedure LoadItemClick(Sender: TObject); procedure LoadItemClick(Sender: TObject);
procedure mnu_fileNewClick(Sender: TObject); procedure mnu_fileNewClick(Sender: TObject);
procedure mnu_fileSaveClick(Sender: TObject); procedure mnu_fileSaveClick(Sender: TObject);
@@ -292,7 +300,7 @@ end;
procedure TfrmMain.CtrlSetUpPopupHandlers; procedure TfrmMain.CtrlSetUpPopupHandlers;
// Use different handlers for some controls // Use different handlers for some controls
var var
iCount: integer; iCount,jCount: integer;
begin begin
with frmMain do with frmMain do
begin begin
@@ -300,6 +308,31 @@ begin
begin begin
if (Controls[iCount].InheritsFrom(TControl) = False) then if (Controls[iCount].InheritsFrom(TControl) = False) then
continue; continue;
if (Controls[iCount] is TGroupBox) then
// Iterate through the children of GroupBox
for jCount := 0 to Pred(TGroupBox(Controls[iCount]).ControlCount) do
Begin
if TGroupBox(Controls[iCount]).Controls[jCount] is TSpinEdit then
begin
TSpinEdit(TGroupBox(Controls[iCount]).Controls[jCount]).OnMouseEnter := @CtrlShowPopup;
TSpinEdit(TGroupBox(Controls[iCount]).Controls[jCount]).OnMouseLeave := @CtrlHidePopup;
TSpinEdit(TGroupBox(Controls[iCount]).Controls[jCount]).OnClick := @CtrlHidePopup;
TSpinEdit(TGroupBox(Controls[iCount]).Controls[jCount]).OnChange := @CtrlMakeDirty;
end;
if TGroupBox(Controls[iCount]).Controls[jCount] is TCheckBox then
begin
TCheckBox(TGroupBox(Controls[iCount]).Controls[jCount]).OnMouseEnter := @CtrlShowPopup;
TCheckBox(TGroupBox(Controls[iCount]).Controls[jCount]).OnMouseLeave := @CtrlHidePopup;
TCheckBox(TGroupBox(Controls[iCount]).Controls[jCount]).OnClick := @CtrlHidePopup;
TCheckBox(TGroupBox(Controls[iCount]).Controls[jCount]).OnEditingDone := @CtrlMakeDirty;
end;
if TGroupBox(Controls[iCount]).Controls[jCount] is TLabel then
begin
TLabel(TGroupBox(Controls[iCount]).Controls[jCount]).OnMouseEnter := @CtrlShowPopup;
TLabel(TGroupBox(Controls[iCount]).Controls[jCount]).OnMouseLeave := @CtrlHidePopup;
TLabel(TGroupBox(Controls[iCount]).Controls[jCount]).OnClick := @CtrlHidePopup;
end;
end;
if (Controls[iCount] is TEdit) then if (Controls[iCount] is TEdit) then
begin begin
TEdit(Controls[iCount]).OnMouseEnter := @CtrlShowPopup; TEdit(Controls[iCount]).OnMouseEnter := @CtrlShowPopup;
@@ -307,13 +340,6 @@ 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 TCheckBox) then
begin
TCheckBox(Controls[iCount]).OnMouseEnter := @CtrlShowPopup;
TCheckBox(Controls[iCount]).OnMouseLeave := @CtrlHidePopup;
TCheckBox(Controls[iCount]).OnClick := @CtrlHidePopup;
TCheckBox(Controls[iCount]).OnEditingDone := @CtrlMakeDirty;
end;
if (Controls[iCount] is TStringGrid) then if (Controls[iCount] is TStringGrid) then
begin begin
TStringGrid(Controls[iCount]).OnMouseEnter := @CtrlShowPopup; TStringGrid(Controls[iCount]).OnMouseEnter := @CtrlShowPopup;
@@ -389,8 +415,11 @@ begin
begin begin
s := rsThisOptionSh; s := rsThisOptionSh;
if MessageDlg(s, mtConfirmation, [mbOK, mbAbort], 0, mbAbort) = mrAbort then if MessageDlg(s, mtConfirmation, [mbOK, mbAbort], 0, mbAbort) = mrAbort then
cbForceNotify.Checked := False; cbForceNotify.Checked := False
end; else
If Spin_InternalVersion.Value = 0 then Spin_InternalVersion.Value :=1;
end
else Spin_InternalVersion.Value :=0;
end; end;
procedure TfrmMain.FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure TfrmMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -502,6 +531,11 @@ begin
bDirty := False; bDirty := False;
end; end;
procedure TfrmMain.lbl_InternalVersionClick(Sender: TObject);
begin
end;
procedure TfrmMain.LoadItemClick(Sender: TObject); procedure TfrmMain.LoadItemClick(Sender: TObject);
var var
i: integer; i: integer;
@@ -520,6 +554,7 @@ begin
editName.Text := JSONPackage.UpdatePackageData.Name; editName.Text := JSONPackage.UpdatePackageData.Name;
editDownloadZipURL.Text := JSONPackage.UpdatePackageData.DownloadZipURL; editDownloadZipURL.Text := JSONPackage.UpdatePackageData.DownloadZipURL;
cbForceNotify.Checked := JSONPackage.UpdatePackageData.ForceNotify; cbForceNotify.Checked := JSONPackage.UpdatePackageData.ForceNotify;
Spin_InternalVersion.Value:=JSONPackage.UpdatePackageData.InternalVersion;
stringPackageFiles.RowCount := JSONPackage.UpdatePackageFiles.Count + 1; stringPackageFiles.RowCount := JSONPackage.UpdatePackageFiles.Count + 1;
for i := 0 to JSONPackage.UpdatePackageFiles.Count - 1 do for i := 0 to JSONPackage.UpdatePackageFiles.Count - 1 do
begin begin
@@ -781,6 +816,7 @@ begin
JSONPackage.UpdatePackageData.Name := editName.Text; JSONPackage.UpdatePackageData.Name := editName.Text;
JSONPackage.UpdatePackageData.DownloadZipURL := editDownloadZipURL.Text; JSONPackage.UpdatePackageData.DownloadZipURL := editDownloadZipURL.Text;
JSONPackage.UpdatePackageData.ForceNotify := cbForceNotify.Checked; JSONPackage.UpdatePackageData.ForceNotify := cbForceNotify.Checked;
JSONPackage.UpdatePackageData.InternalVersion:=Spin_InternalVersion.Value;
for i := 1 to stringPackageFiles.RowCount - 1 do for i := 1 to stringPackageFiles.RowCount - 1 do
begin begin