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

0.2.2.0: Hints and Validation updated

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5477 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-12-14 07:14:38 +00:00
parent d68a23ef91
commit a707a8e666
5 changed files with 190 additions and 171 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.2.0.0 AppVersion=0.2.1.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="2"/> <MinorVersionNr Value="2"/>
<RevisionNr Value="1"/> <RevisionNr Value="2"/>
<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">

173
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="Win64"/> <BuildModes Active="Win32"/>
<Units Count="47"> <Units Count="47">
<Unit0> <Unit0>
<Filename Value="jsonpackage.lpr"/> <Filename Value="jsonpackage.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<CursorPos X="15" Y="19"/> <CursorPos X="15" Y="19"/>
<UsageCount Value="130"/> <UsageCount Value="156"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -20,13 +20,20 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="58"/> <TopLine Value="34"/>
<CursorPos X="13" Y="63"/> <CursorPos X="48" Y="60"/>
<UsageCount Value="130"/> <ExtraEditorCount Value="1"/>
<ExtraEditor1>
<IsVisibleTab Value="True"/>
<WindowIndex Value="1"/>
<TopLine Value="491"/>
<CursorPos X="21" Y="508"/>
</ExtraEditor1>
<UsageCount Value="156"/>
<Bookmarks Count="3"> <Bookmarks Count="3">
<Item0 Y="822" ID="1"/> <Item0 Y="844" ID="1"/>
<Item1 X="44" Y="768"/> <Item1 X="44" Y="790"/>
<Item2 Y="634" ID="2"/> <Item2 Y="656" ID="2"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -34,7 +41,7 @@
<Unit2> <Unit2>
<Filename Value="ugenericcollection.pas"/> <Filename Value="ugenericcollection.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UsageCount Value="130"/> <UsageCount Value="156"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="C:\NewPascal\projects\MDSUM\CryptINI\lockini.pas"/> <Filename Value="C:\NewPascal\projects\MDSUM\CryptINI\lockini.pas"/>
@ -42,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="48"/> <UsageCount Value="74"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.pas"/> <Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.pas"/>
@ -52,33 +59,33 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="541"/> <TopLine Value="541"/>
<CursorPos X="3" Y="544"/> <CursorPos X="3" Y="544"/>
<UsageCount Value="10"/> <UsageCount Value="7"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="D:\Lazarusprojects\MDSUM\CryptINI\trunk\cryptinilpk\cryptini.pas"/> <Filename Value="D:\Lazarusprojects\MDSUM\CryptINI\trunk\cryptinilpk\cryptini.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="7"/> <UsageCount Value="4"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="D:\Lazarusprojects\MDSUM\CryptINI\trunk\latest_stable\cryptinilpk\ucryptini.pas"/> <Filename Value="D:\Lazarusprojects\MDSUM\CryptINI\trunk\latest_stable\cryptinilpk\ucryptini.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1376"/> <TopLine Value="1376"/>
<CursorPos X="55" Y="1411"/> <CursorPos X="55" Y="1411"/>
<UsageCount Value="12"/> <UsageCount Value="9"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="..\..\lazarus\lcl\defaulttranslator.pas"/> <Filename Value="..\..\lazarus\lcl\defaulttranslator.pas"/>
<UnitName Value="DefaultTranslator"/> <UnitName Value="DefaultTranslator"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="53" Y="29"/> <CursorPos X="53" Y="29"/>
<UsageCount Value="11"/> <UsageCount Value="8"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="..\..\lazarus\lcl\lcltranslator.pas"/> <Filename Value="..\..\lazarus\lcl\lcltranslator.pas"/>
<UnitName Value="LCLTranslator"/> <UnitName Value="LCLTranslator"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="517"/> <TopLine Value="517"/>
<UsageCount Value="11"/> <UsageCount Value="8"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="..\..\NewPascal\lazarus\packager\registration\registerfcl.pas"/> <Filename Value="..\..\NewPascal\lazarus\packager\registration\registerfcl.pas"/>
@ -86,7 +93,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="24"/> <TopLine Value="24"/>
<CursorPos X="42" Y="37"/> <CursorPos X="42" Y="37"/>
<UsageCount Value="7"/> <UsageCount Value="4"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_mainfrm.pas"/> <Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_mainfrm.pas"/>
@ -94,7 +101,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="22"/> <TopLine Value="22"/>
<CursorPos X="12" Y="23"/> <CursorPos X="12" Y="23"/>
<UsageCount Value="7"/> <UsageCount Value="4"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_mainfrm.lfm"/> <Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_mainfrm.lfm"/>
@ -103,7 +110,7 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="6"/> <CursorPos X="6"/>
<UsageCount Value="7"/> <UsageCount Value="4"/>
<DefaultSyntaxHighlighter Value="LFM"/> <DefaultSyntaxHighlighter Value="LFM"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
@ -112,21 +119,21 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="10428"/> <TopLine Value="10428"/>
<CursorPos X="33" Y="10448"/> <CursorPos X="33" Y="10448"/>
<UsageCount Value="14"/> <UsageCount Value="11"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<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="-1"/>
<TopLine Value="1563"/> <TopLine Value="1563"/>
<CursorPos X="14" Y="1794"/> <CursorPos X="14" Y="1794"/>
<UsageCount Value="14"/> <UsageCount Value="11"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="X:\MainForm\MainForm\umain.pas"/> <Filename Value="X:\MainForm\MainForm\umain.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="200"/> <TopLine Value="200"/>
<CursorPos X="21" Y="383"/> <CursorPos X="21" Y="383"/>
<UsageCount Value="11"/> <UsageCount Value="8"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="D:\lazarustrunk\common_components\kcontrols_1.7\source\kgrids.pas"/> <Filename Value="D:\lazarustrunk\common_components\kcontrols_1.7\source\kgrids.pas"/>
@ -134,7 +141,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="5883"/> <TopLine Value="5883"/>
<CursorPos X="19" Y="5885"/> <CursorPos X="19" Y="5885"/>
<UsageCount Value="12"/> <UsageCount Value="9"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="C:\NewPascalDarwin\lazarus\lcl\lcltype.pp"/> <Filename Value="C:\NewPascalDarwin\lazarus\lcl\lcltype.pp"/>
@ -142,7 +149,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1619"/> <TopLine Value="1619"/>
<CursorPos X="21" Y="1643"/> <CursorPos X="21" Y="1643"/>
<UsageCount Value="12"/> <UsageCount Value="9"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="C:\NewPascalDarwin\lazarus\ide\lazarus.pp"/> <Filename Value="C:\NewPascalDarwin\lazarus\ide\lazarus.pp"/>
@ -150,7 +157,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="63"/> <TopLine Value="63"/>
<CursorPos X="21" Y="94"/> <CursorPos X="21" Y="94"/>
<UsageCount Value="12"/> <UsageCount Value="9"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="D:\lazarustrunk\common_components\kcontrols_1.7\source\kmemo.pas"/> <Filename Value="D:\lazarustrunk\common_components\kcontrols_1.7\source\kmemo.pas"/>
@ -158,20 +165,20 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1501"/> <TopLine Value="1501"/>
<CursorPos X="78" Y="1525"/> <CursorPos X="78" Y="1525"/>
<UsageCount Value="7"/> <UsageCount Value="4"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="D:\lazarustrunk\common_components\cryptini\ucryptini.pas"/> <Filename Value="D:\lazarustrunk\common_components\cryptini\ucryptini.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1402"/> <TopLine Value="1402"/>
<CursorPos X="74" Y="346"/> <CursorPos X="74" Y="346"/>
<UsageCount Value="16"/> <UsageCount Value="13"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="C:\NewPascalDarwin\lazarus\ide\revision.inc"/> <Filename Value="C:\NewPascalDarwin\lazarus\ide\revision.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="28" Y="2"/> <CursorPos X="28" Y="2"/>
<UsageCount Value="12"/> <UsageCount Value="9"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="D:\lazarustrunk\common_components\bgrabitmap-master\bgrabitmap\bgrasse.pas"/> <Filename Value="D:\lazarustrunk\common_components\bgrabitmap-master\bgrabitmap\bgrasse.pas"/>
@ -179,7 +186,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="405"/> <TopLine Value="405"/>
<CursorPos X="9" Y="429"/> <CursorPos X="9" Y="429"/>
<UsageCount Value="10"/> <UsageCount Value="7"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="C:\NewPascalDarwin\lazarus\lcl\translations.pas"/> <Filename Value="C:\NewPascalDarwin\lazarus\lcl\translations.pas"/>
@ -187,37 +194,37 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="76"/> <TopLine Value="76"/>
<CursorPos X="36" Y="82"/> <CursorPos X="36" Y="82"/>
<UsageCount Value="10"/> <UsageCount Value="7"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="translate.lrs"/> <Filename Value="translate.lrs"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="8"/> <UsageCount Value="5"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="C:\NewPascalDarwin\fpc\rtl\win\wininc\defines.inc"/> <Filename Value="C:\NewPascalDarwin\fpc\rtl\win\wininc\defines.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="64" Y="1204"/> <CursorPos X="64" Y="1204"/>
<UsageCount Value="8"/> <UsageCount Value="5"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="C:\trunklatest\fpc\rtl\objpas\fgl.pp"/> <Filename Value="C:\trunklatest\fpc\rtl\objpas\fgl.pp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1527"/> <TopLine Value="1527"/>
<CursorPos Y="1547"/> <CursorPos Y="1547"/>
<UsageCount Value="8"/> <UsageCount Value="5"/>
</Unit25> </Unit25>
<Unit26> <Unit26>
<Filename Value="C:\trunklatest\lazarus\components\onlinepackagemanager\opkman_updates.pas"/> <Filename Value="C:\trunklatest\lazarus\components\onlinepackagemanager\opkman_updates.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="45" Y="8"/> <CursorPos X="45" Y="8"/>
<UsageCount Value="8"/> <UsageCount Value="5"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="C:\trunklatest\lazarus\components\onlinepackagemanager\opkman_options.pas"/> <Filename Value="C:\trunklatest\lazarus\components\onlinepackagemanager\opkman_options.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="70"/> <TopLine Value="70"/>
<UsageCount Value="8"/> <UsageCount Value="5"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="C:\trunklatest\lazarus\components\onlinepackagemanager\opkman_createrepositorypackage.pas"/> <Filename Value="C:\trunklatest\lazarus\components\onlinepackagemanager\opkman_createrepositorypackage.pas"/>
@ -227,12 +234,12 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="9"/> <TopLine Value="9"/>
<CursorPos X="26" Y="23"/> <CursorPos X="26" Y="23"/>
<UsageCount Value="8"/> <UsageCount Value="5"/>
</Unit28> </Unit28>
<Unit29> <Unit29>
<Filename Value="C:\trunklatest\lazarus\components\onlinepackagemanager\opkman_createrepositorypackage.lfm"/> <Filename Value="C:\trunklatest\lazarus\components\onlinepackagemanager\opkman_createrepositorypackage.lfm"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="8"/> <UsageCount Value="5"/>
<DefaultSyntaxHighlighter Value="LFM"/> <DefaultSyntaxHighlighter Value="LFM"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
@ -240,7 +247,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="212"/> <TopLine Value="212"/>
<CursorPos X="65" Y="218"/> <CursorPos X="65" Y="218"/>
<UsageCount Value="8"/> <UsageCount Value="5"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
<Filename Value="C:\trunklatest\lazarus\ide\lazarus.pp"/> <Filename Value="C:\trunklatest\lazarus\ide\lazarus.pp"/>
@ -248,7 +255,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="101"/> <TopLine Value="101"/>
<CursorPos X="38" Y="51"/> <CursorPos X="38" Y="51"/>
<UsageCount Value="10"/> <UsageCount Value="7"/>
</Unit31> </Unit31>
<Unit32> <Unit32>
<Filename Value="C:\trunklatest\lazarus\components\pochecker\pocheckermain.pp"/> <Filename Value="C:\trunklatest\lazarus\components\pochecker\pocheckermain.pp"/>
@ -257,7 +264,7 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="46" Y="18"/> <CursorPos X="46" Y="18"/>
<UsageCount Value="8"/> <UsageCount Value="5"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
<Filename Value="C:\NewPascalDarwin\lazarus\lcl\controls.pp"/> <Filename Value="C:\NewPascalDarwin\lazarus\lcl\controls.pp"/>
@ -265,7 +272,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="2131"/> <TopLine Value="2131"/>
<CursorPos X="3" Y="1900"/> <CursorPos X="3" Y="1900"/>
<UsageCount Value="9"/> <UsageCount Value="6"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
<Filename Value="C:\NewPascalDarwin\lazarus\lcl\stdctrls.pp"/> <Filename Value="C:\NewPascalDarwin\lazarus\lcl\stdctrls.pp"/>
@ -273,14 +280,14 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="129"/> <TopLine Value="129"/>
<CursorPos X="38" Y="159"/> <CursorPos X="38" Y="159"/>
<UsageCount Value="9"/> <UsageCount Value="6"/>
</Unit34> </Unit34>
<Unit35> <Unit35>
<Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_serializablepackages.pas"/> <Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_serializablepackages.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="219"/> <TopLine Value="219"/>
<CursorPos X="74" Y="222"/> <CursorPos X="74" Y="222"/>
<UsageCount Value="14"/> <UsageCount Value="11"/>
</Unit35> </Unit35>
<Unit36> <Unit36>
<Filename Value="C:\trunklatest\fpc\packages\fcl-base\src\inifiles.pp"/> <Filename Value="C:\trunklatest\fpc\packages\fcl-base\src\inifiles.pp"/>
@ -288,7 +295,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1357"/> <TopLine Value="1357"/>
<CursorPos X="31" Y="21"/> <CursorPos X="31" Y="21"/>
<UsageCount Value="8"/> <UsageCount Value="5"/>
</Unit36> </Unit36>
<Unit37> <Unit37>
<Filename Value="C:\trunklatest\lazarus\lcl\grids.pas"/> <Filename Value="C:\trunklatest\lazarus\lcl\grids.pas"/>
@ -296,7 +303,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="202"/> <TopLine Value="202"/>
<CursorPos X="20" Y="11529"/> <CursorPos X="20" Y="11529"/>
<UsageCount Value="15"/> <UsageCount Value="12"/>
</Unit37> </Unit37>
<Unit38> <Unit38>
<Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_packagelistfrm.pas"/> <Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_packagelistfrm.pas"/>
@ -305,50 +312,50 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="28" Y="12"/> <CursorPos X="28" Y="12"/>
<UsageCount Value="8"/> <UsageCount Value="5"/>
</Unit38> </Unit38>
<Unit39> <Unit39>
<Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_updates.pas"/> <Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_updates.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="299"/> <TopLine Value="299"/>
<CursorPos X="24" Y="319"/> <CursorPos X="24" Y="319"/>
<UsageCount Value="9"/> <UsageCount Value="6"/>
</Unit39> </Unit39>
<Unit40> <Unit40>
<Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_packagedetailsfrm.pas"/> <Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_packagedetailsfrm.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="9"/> <UsageCount Value="6"/>
</Unit40> </Unit40>
<Unit41> <Unit41>
<Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_common.pas"/> <Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_common.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="9"/> <UsageCount Value="6"/>
</Unit41> </Unit41>
<Unit42> <Unit42>
<Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_downloader.pas"/> <Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_downloader.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="9"/> <UsageCount Value="6"/>
</Unit42> </Unit42>
<Unit43> <Unit43>
<Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_visualtree.pas"/> <Filename Value="D:\lazarustrunk\common_components\onlinepackagemanager\onlinepackagemanager\opkman_visualtree.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="997"/> <TopLine Value="997"/>
<CursorPos X="57" Y="1024"/> <CursorPos X="57" Y="1024"/>
<UsageCount Value="9"/> <UsageCount Value="6"/>
</Unit43> </Unit43>
<Unit44> <Unit44>
<Filename Value="C:\NewPascal\projects\MDSUM\CryptINI\latest_stable\ucryptini.pas"/> <Filename Value="C:\NewPascal\projects\MDSUM\CryptINI\latest_stable\ucryptini.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="363"/> <TopLine Value="363"/>
<CursorPos Y="378"/> <CursorPos Y="378"/>
<UsageCount Value="20"/> <UsageCount Value="17"/>
</Unit44> </Unit44>
<Unit45> <Unit45>
<Filename Value="C:\trunklatest\lazarus\lcl\include\customform.inc"/> <Filename Value="C:\trunklatest\lazarus\lcl\include\customform.inc"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<TopLine Value="992"/> <TopLine Value="992"/>
<CursorPos Y="1012"/> <CursorPos Y="1012"/>
<UsageCount Value="13"/> <UsageCount Value="26"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit45> </Unit45>
<Unit46> <Unit46>
@ -356,7 +363,7 @@
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="88"/> <TopLine Value="88"/>
<CursorPos X="26" Y="110"/> <CursorPos X="26" Y="110"/>
<UsageCount Value="12"/> <UsageCount Value="25"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit46> </Unit46>
</Units> </Units>
@ -366,123 +373,123 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="496" Column="23" TopLine="465"/> <Caret Line="826" Column="9" TopLine="806"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="558" Column="22" TopLine="532"/> <Caret Line="209" Column="44" TopLine="199"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="552" Column="56" TopLine="533"/> <Caret Line="206" Column="24" TopLine="193"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="551" TopLine="516"/> <Caret Line="878" Column="3" TopLine="876"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="826" Column="9" TopLine="806"/> <Caret Line="841" Column="25" TopLine="817"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="209" Column="44" TopLine="199"/> <Caret Line="814" TopLine="811"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="206" Column="24" TopLine="193"/> <Caret Line="454" TopLine="436"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="878" Column="3" TopLine="876"/> <Caret Line="70" Column="54" TopLine="43"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="841" Column="25" TopLine="817"/> <Caret Line="909" TopLine="906"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="814" TopLine="811"/> <Caret Line="846" Column="11" TopLine="827"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="454" TopLine="436"/> <Caret Line="919" Column="40" TopLine="910"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="70" Column="54" TopLine="43"/> <Caret Line="850" Column="25" TopLine="824"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="909" TopLine="906"/> <Caret Line="844" Column="42" TopLine="825"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="846" Column="11" TopLine="827"/> <Caret Line="852" TopLine="833"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="919" Column="40" TopLine="910"/> <Caret Line="1165" Column="49" TopLine="1153"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="850" Column="25" TopLine="824"/> <Caret Line="1113" Column="8" TopLine="1112"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="844" Column="42" TopLine="825"/> <Caret Line="850" TopLine="817"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="852" TopLine="833"/> <Caret Line="458" Column="25" TopLine="451"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1165" Column="49" TopLine="1153"/> <Caret Line="53" Column="42" TopLine="40"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1113" Column="8" TopLine="1112"/> <Caret Line="255" Column="12" TopLine="234"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="850" TopLine="817"/> <Caret Line="900" Column="3" TopLine="898"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="458" Column="25" TopLine="451"/> <Caret Line="1124" TopLine="1104"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="53" Column="42" TopLine="40"/> <Caret Line="839" Column="9" TopLine="831"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="255" Column="12" TopLine="234"/> <Caret Line="580" Column="39" TopLine="566"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="900" Column="3" TopLine="898"/> <Caret Line="255" Column="17" TopLine="254"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1124" TopLine="1104"/> <Caret Line="480" Column="67" TopLine="471"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="839" Column="9" TopLine="831"/> <Caret Line="647" Column="23" TopLine="629"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="580" Column="39" TopLine="566"/> <Caret Line="1090" Column="18" TopLine="1065"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="255" Column="17" TopLine="254"/> <Caret Line="697" Column="69" TopLine="683"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="480" Column="67" TopLine="471"/> <Caret Line="695" Column="9" TopLine="675"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>

BIN
applications/json_packager/jsonpackage.res
View File

Binary file not shown.

184
applications/json_packager/umain.pas
View File

@ -60,7 +60,8 @@ unit umain;
In Laz 1.7 DPIAwareness configured In Laz 1.7 DPIAwareness configured
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: ToDo 0.2.2.0: Hints and Validation updated
0.2.3.0: ToDo
- sort out resourcestrings - sort out resourcestrings
- Update Validation - Update Validation
- Update hints - Update hints
@ -332,7 +333,7 @@ end;
procedure TfrmMain.CtrlSetUpPopupHandlers; procedure TfrmMain.CtrlSetUpPopupHandlers;
// Use different handlers for some controls // Use different handlers for some controls
var var
iCount, jCount,kCount: integer; iCount: integer;
begin begin
with frmMain do with frmMain do
begin begin
@ -340,43 +341,19 @@ begin
begin begin
if (Controls[iCount].InheritsFrom(TControl) = False) then if (Controls[iCount].InheritsFrom(TControl) = False) then
continue; continue;
{
// 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
for jCount := 0 to Pred(TGroupBox(Controls[iCount]).ControlCount) do for jCount := 0 to Pred(TGroupBox(Controls[iCount]).ControlCount) do
// With TGroupBox(Controls[iCount]).Controls[jCount] do?
begin begin
if TGroupBox(Controls[iCount]).Controls[jCount] is TSpinEdit then if TGroupBox(Controls[iCount]).Controls[jCount] is TSpinEdit then
begin begin
TSpinEdit(TGroupBox(Controls[iCount]).Controls[jCount]).OnMouseEnter := TSpinEdit(TGroupBox(Controls[iCount]).Controls[jCount]).OnMouseEnter :=
@CtrlShowPopup; @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;
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;
@ -418,13 +395,13 @@ end;
procedure TfrmMain.DestroyControlArrays; procedure TfrmMain.DestroyControlArrays;
Var i:Integer; Var i:Integer;
begin begin
// This could be done with one loop
For i:=0 to High(ArraySpinEditInternalVersion) do For i:=0 to High(ArraySpinEditInternalVersion) do
FreeAndNil(ArraySpinEditInternalVersion[i]); FreeAndNil(ArraySpinEditInternalVersion[i]);
For i:=0 to High(ArrayLblPackageInternalVersion) do For i:=0 to High(ArrayLblPackageInternalVersion) do
FreeAndNil(ArrayLblPackageInternalVersion[i]); FreeAndNil(ArrayLblPackageInternalVersion[i]);
For i:=0 to High(ArrayChkBoxForceNotify) do For i:=0 to High(ArrayChkBoxForceNotify) do
FreeAndNil(ArrayChkBoxForceNotify[i]); FreeAndNil(ArrayChkBoxForceNotify[i]);
For i:=0 to High(ArraySpinEditV4) do For i:=0 to High(ArraySpinEditV4) do
FreeAndNil(ArraySpinEditV4[i]); FreeAndNil(ArraySpinEditV4[i]);
For i:=0 to High(ArraySpinEditV3) do For i:=0 to High(ArraySpinEditV3) do
@ -441,7 +418,6 @@ begin
FreeAndNil(ArrayLblPackageFileName[i]); FreeAndNil(ArrayLblPackageFileName[i]);
For i:=0 to High(ArrayGrpBox) do For i:=0 to High(ArrayGrpBox) do
FreeAndNil(ArrayGrpBox[i]); FreeAndNil(ArrayGrpBox[i]);
end; end;
procedure TfrmMain.AddNewControlArray; procedure TfrmMain.AddNewControlArray;
@ -493,6 +469,10 @@ begin
SetBounds(8,10,50,23); SetBounds(8,10,50,23);
Visible:=True; Visible:=True;
Tag:=Pred(iNumLpkFilesVisible); Tag:=Pred(iNumLpkFilesVisible);
OnMouseEnter:=@CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup;
Hint:='Just the package filename e.g. package.lpk';
Parent:=ArrayGrpBox[iNumLpkFilesVisible]; Parent:=ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// EditBox - Package name // EditBox - Package name
@ -503,6 +483,11 @@ begin
SetBounds(64,8,256,23); SetBounds(64,8,256,23);
Visible:=True; Visible:=True;
Tag:=Pred(iNumLpkFilesVisible); Tag:=Pred(iNumLpkFilesVisible);
OnMouseEnter:=@CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup;
OnEditingDone := @CtrlMakeDirty;
Hint:='Just the package filename e.g. package.lpk';
Parent:=ArrayGrpBox[iNumLpkFilesVisible]; Parent:=ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// Label - Package Version // Label - Package Version
@ -513,6 +498,10 @@ begin
SetBounds(330,10,50,23); SetBounds(330,10,50,23);
Visible:=True; Visible:=True;
Tag:=Pred(iNumLpkFilesVisible); Tag:=Pred(iNumLpkFilesVisible);
OnMouseEnter:=@CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup;
Hint:='Format is: n.n.n.n';
Parent:=ArrayGrpBox[iNumLpkFilesVisible]; Parent:=ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// SpinEdit V1 // SpinEdit V1
@ -523,6 +512,10 @@ begin
SetBounds(380,8,40,20); SetBounds(380,8,40,20);
Visible:=True; Visible:=True;
Tag:=Pred(iNumLpkFilesVisible); Tag:=Pred(iNumLpkFilesVisible);
OnMouseEnter := @CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup;
OnChange :=@CtrlMakeDirty;
Hint:='Format is: n.n.n.n'; Hint:='Format is: n.n.n.n';
Parent:=ArrayGrpBox[iNumLpkFilesVisible]; Parent:=ArrayGrpBox[iNumLpkFilesVisible];
end; end;
@ -535,6 +528,11 @@ begin
Visible:=True; Visible:=True;
Tag:=Pred(iNumLpkFilesVisible); Tag:=Pred(iNumLpkFilesVisible);
Hint:='Format is: n.n.n.n'; Hint:='Format is: n.n.n.n';
OnMouseEnter := @CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup;
OnChange :=@CtrlMakeDirty;
Hint:='Format is: n.n.n.n';
Parent:=ArrayGrpBox[iNumLpkFilesVisible]; Parent:=ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// SpinEdit V3 // SpinEdit V3
@ -546,6 +544,11 @@ begin
Visible:=True; Visible:=True;
Tag:=Pred(iNumLpkFilesVisible); Tag:=Pred(iNumLpkFilesVisible);
Hint:='Format is: n.n.n.n'; Hint:='Format is: n.n.n.n';
OnMouseEnter := @CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup;
OnChange :=@CtrlMakeDirty;
Hint:='Format is: n.n.n.n';
Parent:=ArrayGrpBox[iNumLpkFilesVisible]; Parent:=ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// SpinEdit V4 // SpinEdit V4
@ -557,6 +560,11 @@ begin
Visible:=True; Visible:=True;
Tag:=Pred(iNumLpkFilesVisible); Tag:=Pred(iNumLpkFilesVisible);
Hint:='Format is: n.n.n.n'; Hint:='Format is: n.n.n.n';
OnMouseEnter := @CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup;
OnChange :=@CtrlMakeDirty;
Hint:='Format is: n.n.n.n';
Parent:=ArrayGrpBox[iNumLpkFilesVisible]; Parent:=ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// ChkBox Notify // ChkBox Notify
@ -568,6 +576,11 @@ begin
SetBounds(8,50,40,20); SetBounds(8,50,40,20);
Visible:=True; Visible:=True;
Tag:=Pred(iNumLpkFilesVisible); Tag:=Pred(iNumLpkFilesVisible);
OnMouseEnter:=@CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup;
OnEditingDone := @CtrlMakeDirty;
Hint:='Check this if you don''t want to incrememt the version';
Parent:=ArrayGrpBox[iNumLpkFilesVisible]; Parent:=ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// Label Internal version // Label Internal version
@ -578,6 +591,10 @@ begin
SetBounds(160,50,40,23); SetBounds(160,50,40,23);
Visible:=True; Visible:=True;
Tag:=Pred(iNumLpkFilesVisible); Tag:=Pred(iNumLpkFilesVisible);
OnMouseEnter:=@CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup;
Hint:='Use in combination with Notify Update';
Parent:=ArrayGrpBox[iNumLpkFilesVisible]; Parent:=ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// SpinEdit Internal Version // SpinEdit Internal Version
@ -588,6 +605,11 @@ begin
SetBounds(260,48,40,20); SetBounds(260,48,40,20);
Visible:=True; Visible:=True;
Tag:=Pred(iNumLpkFilesVisible); Tag:=Pred(iNumLpkFilesVisible);
OnMouseEnter := @CtrlShowPopup;
OnMouseLeave := @CtrlHidePopup;
OnClick := @CtrlHidePopup;
OnChange :=@CtrlMakeDirty;
Hint:='Use in combination with Notify Update';
Parent:=ArrayGrpBox[iNumLpkFilesVisible]; Parent:=ArrayGrpBox[iNumLpkFilesVisible];
end; end;
// This sets the subcontrols up correctly // This sets the subcontrols up correctly
@ -671,13 +693,13 @@ begin
Result := False; Result := False;
TempStringList := TStringList.Create; TempStringList := TStringList.Create;
try try
//for iCount := 0 to Pred(stringPackageFiles.RowCount) do For iCount := 0 to High(ArrayEdtPackageFileName) do
//begin begin
// if TempStringlist.IndexOf(stringPackageFiles.Cells[0, iCount]) = -1 then if TempStringlist.IndexOf(ArrayEdtPackageFileName[iCount].Text) = -1 then
// TempStringList.Add(stringPackageFiles.Cells[0, iCount]) TempStringList.Add(ArrayEdtPackageFileName[iCount].Text)
// else else
// Result := True; Result := True;
// end; end;
finally finally
TempStringList.Free; TempStringList.Free;
end; end;
@ -986,7 +1008,6 @@ function TfrmMain.ValidationFailed: boolean;
// Add checks as needed here // Add checks as needed here
var var
iCount: integer; iCount: integer;
Quad: TVersionQuad; // fileinfo unit
begin begin
Result := False; Result := False;
// Check Zipname and URL http:// length // Check Zipname and URL http:// length
@ -1003,15 +1024,6 @@ begin
editDownloadZipURL.Color := clYellow; editDownloadZipURL.Color := clYellow;
Result := True; Result := True;
end; end;
// No lpk file?
{
if (stringPackageFiles.RowCount = 1) then
begin
slErrorList.Add(rsThereAreNoLp);
stringPackageFiles.Color := clYellow;
Result := True;
end;
}
// Remembered to type 'zip'? // Remembered to type 'zip'?
if (Length(editName.Text) > 4) then if (Length(editName.Text) > 4) then
if (RightStr(LowerCase(editName.Text), 4) <> '.zip') then if (RightStr(LowerCase(editName.Text), 4) <> '.zip') then
@ -1028,7 +1040,7 @@ begin
editDownloadZipURL.Color := clYellow; editDownloadZipURL.Color := clYellow;
Result := True; Result := True;
end; end;
// URL starts with 'http' ?
if ((Length(editDownloadZipURL.Text) > 4) and if ((Length(editDownloadZipURL.Text) > 4) and
(LeftStr(LowerCase(editDownloadZipURL.Text), 4) <> 'http')) then (LeftStr(LowerCase(editDownloadZipURL.Text), 4) <> 'http')) then
begin begin
@ -1036,7 +1048,7 @@ begin
editDownloadZipURL.Color := clYellow; editDownloadZipURL.Color := clYellow;
Result := True; Result := True;
end; end;
// URL contains zipfile name?
if (Pos(Lowercase(editName.Text), Lowercase(editDownloadZipURL.Text)) = 0) then if (Pos(Lowercase(editName.Text), Lowercase(editDownloadZipURL.Text)) = 0) then
begin begin
slErrorList.Add(rsDownloadZipURLD); slErrorList.Add(rsDownloadZipURLD);
@ -1045,44 +1057,44 @@ begin
end; end;
// Check package files entries // Check package files entries
{ For iCount:=0 to High(ArrayGrpBox) do
if (stringPackageFiles.RowCount > 1) then
for iCount := 1 to stringPackageFiles.RowCount - 1 do
begin
if (Length(stringPackageFiles.Cells[0, iCount]) = 0) then
begin
slErrorList.Add(Format(rsTheLpkEntryD2, [iCount]));
stringPackageFiles.Color := clYellow;
Result := True;
end;
if (Length(stringPackageFiles.Cells[1, iCount]) = 0) then
begin
slErrorList.Add(Format(rsVersionEntry, [iCount]));
stringPackageFiles.Color := clYellow;
Result := True;
end;
if (TryStrToVersionQuad(stringPackageFiles.Cells[1, iCount], Quad) = False) then
begin
slErrorList.Add(Format(rsVersionEntry2, [iCount]));
stringPackageFiles.Color := clYellow;
Result := True;
end;
if (RightStr(LowerCase(stringPackageFiles.Cells[0, iCount]), 4) <> '.lpk') then
begin
slErrorList.Add(Format(rsTheLpkEntryD, [iCount]));
stringPackageFiles.Color := clYellow;
Result := True;
end;
end;
// Check for duplicate .lpk entries
if FoundADuplicateLPK then
begin begin
stringPackageFiles.Color := clYellow; // Is package name empty?
slErrorList.Add(Format(rsThereAreOneO, [LineEnding])); If Length(ArrayEdtPackageFileName[iCount].Text)=0 then
Result := True; begin
slErrorList.Add(Format(rsTheLpkEntryD2, [Succ(iCount)]));
ArrayEdtPackageFileName[iCount].Color := clYellow;
Result := True;
end;
// Does it end with 'lpk'
if (RightStr(LowerCase(ArrayEdtPackageFileName[iCount].Text), 4) <> '.lpk') then
begin
slErrorList.Add(Format(rsTheLpkEntryD, [Succ(iCount)]));
ArrayEdtPackageFileName[iCount].Color := clYellow;
Result := True;
end;
// Is the version number zero
If (ArraySpinEditV1[iCount].Value = 0)
AND (ArraySpinEditV2[iCount].Value = 0)
AND (ArraySpinEditV3[iCount].Value = 0)
AND (ArraySpinEditV4[iCount].Value = 0)
then
begin
slErrorList.Add(Format('Version for package %d is zero', [Succ(iCount)]));
ArraySpinEditV1[iCount].Color := clYellow;
ArraySpinEditV2[iCount].Color := clYellow;
ArraySpinEditV3[iCount].Color := clYellow;
ArraySpinEditV4[iCount].Color := clYellow;
Result := True;
end;
// Check for duplicate .lpk entries
if FoundADuplicateLPK then
begin
ArrayEdtPackageFileName[iCount].Color := clYellow;
slErrorList.Add(Format(rsThereAreOneO, [LineEnding]));
Result := True;
end;
end; end;
}
end; end;
procedure TfrmMain.SaveAsItemClick(Sender: TObject); procedure TfrmMain.SaveAsItemClick(Sender: TObject);