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

Added extra check in DisableInOPM event

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5479 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-12-14 08:12:15 +00:00
parent 873b6450ee
commit 3aa7653768
3 changed files with 53 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
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="Win32"/> <BuildModes Active="Win64"/>
<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="157"/> <UsageCount Value="158"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -20,8 +20,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="49"/> <TopLine Value="709"/>
<CursorPos X="41" Y="56"/> <CursorPos X="19" Y="732"/>
<ExtraEditorCount Value="1"/> <ExtraEditorCount Value="1"/>
<ExtraEditor1> <ExtraEditor1>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
@ -30,11 +30,11 @@
<TopLine Value="390"/> <TopLine Value="390"/>
<CursorPos X="44" Y="396"/> <CursorPos X="44" Y="396"/>
</ExtraEditor1> </ExtraEditor1>
<UsageCount Value="157"/> <UsageCount Value="158"/>
<Bookmarks Count="3"> <Bookmarks Count="3">
<Item0 Y="835" ID="1"/> <Item0 Y="847" ID="1"/>
<Item1 Y="781"/> <Item1 Y="793"/>
<Item2 Y="650" ID="2"/> <Item2 Y="652" ID="2"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -42,7 +42,7 @@
<Unit2> <Unit2>
<Filename Value="ugenericcollection.pas"/> <Filename Value="ugenericcollection.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UsageCount Value="157"/> <UsageCount Value="158"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="C:\NewPascal\projects\MDSUM\CryptINI\lockini.pas"/> <Filename Value="C:\NewPascal\projects\MDSUM\CryptINI\lockini.pas"/>
@ -50,7 +50,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="75"/> <UsageCount Value="76"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.pas"/> <Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.pas"/>
@ -374,123 +374,123 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="454" TopLine="436"/> <Caret Line="919" Column="40" TopLine="910"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="70" Column="54" TopLine="43"/> <Caret Line="850" Column="25" TopLine="824"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="909" TopLine="906"/> <Caret Line="844" Column="42" TopLine="825"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="846" Column="11" TopLine="827"/> <Caret Line="852" TopLine="833"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="919" Column="40" TopLine="910"/> <Caret Line="1165" Column="49" TopLine="1153"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="850" Column="25" TopLine="824"/> <Caret Line="1113" Column="8" TopLine="1112"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="844" Column="42" TopLine="825"/> <Caret Line="850" TopLine="817"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="852" TopLine="833"/> <Caret Line="458" Column="25" TopLine="451"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1165" Column="49" TopLine="1153"/> <Caret Line="53" Column="42" TopLine="40"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1113" Column="8" TopLine="1112"/> <Caret Line="255" Column="12" TopLine="234"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="850" TopLine="817"/> <Caret Line="900" Column="3" TopLine="898"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="458" Column="25" TopLine="451"/> <Caret Line="1124" TopLine="1104"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="53" Column="42" TopLine="40"/> <Caret Line="839" Column="9" TopLine="831"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="255" Column="12" TopLine="234"/> <Caret Line="580" Column="39" TopLine="566"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="900" Column="3" TopLine="898"/> <Caret Line="255" Column="17" TopLine="254"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1124" TopLine="1104"/> <Caret Line="480" Column="67" TopLine="471"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="839" Column="9" TopLine="831"/> <Caret Line="647" Column="23" TopLine="629"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="580" Column="39" TopLine="566"/> <Caret Line="1090" Column="18" TopLine="1065"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="255" Column="17" TopLine="254"/> <Caret Line="697" Column="69" TopLine="683"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="480" Column="67" TopLine="471"/> <Caret Line="695" Column="9" TopLine="675"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="647" Column="23" TopLine="629"/> <Caret Line="5" Column="23"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1090" Column="18" TopLine="1065"/> <Caret Line="274" Column="17" TopLine="242"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="697" Column="69" TopLine="683"/> <Caret Line="1133" Column="30" TopLine="1120"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="695" Column="9" TopLine="675"/> <Caret Line="1060" Column="50" TopLine="1022"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="5" Column="23"/> <Caret Line="951"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="274" Column="17" TopLine="242"/> <Caret Line="1100" Column="79" TopLine="1070"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1133" Column="30" TopLine="1120"/> <Caret Line="59" Column="47" TopLine="49"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1060" Column="50" TopLine="1022"/> <Caret Line="730" Column="31" TopLine="726"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="951"/> <Caret Line="733" Column="8" TopLine="711"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="1100" Column="79" TopLine="1070"/> <Caret Line="732" Column="31" TopLine="712"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>

1
applications/json_packager/umain.lfm
View File

@ -197,6 +197,7 @@ object frmMain: TfrmMain
AutoSize = False AutoSize = False
BorderSpacing.Right = 10 BorderSpacing.Right = 10
Caption = 'Disable in OPM' Caption = 'Disable in OPM'
OnMouseUp = chk_DisableInOPMMouseUp
TabOrder = 6 TabOrder = 6
end end
object sbPackageFiles: TScrollBox object sbPackageFiles: TScrollBox

12
applications/json_packager/umain.pas
View File

@ -165,6 +165,8 @@ type
sb_editName: TSpeedButton; sb_editName: TSpeedButton;
sbPackageFiles: TScrollBox; sbPackageFiles: TScrollBox;
spd_CheckURL: TSpeedButton; spd_CheckURL: TSpeedButton;
procedure chk_DisableInOPMMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure cmd_AddPackageFileClick(Sender: TObject); procedure cmd_AddPackageFileClick(Sender: TObject);
procedure cmd_RemoveLastPackageFileClick(Sender: TObject); procedure cmd_RemoveLastPackageFileClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
@ -721,6 +723,16 @@ begin
AddPackageFileToList; AddPackageFileToList;
end; end;
procedure TfrmMain.chk_DisableInOPMMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
If chk_DisableInOPM.Checked=TRUE then
If MessageDlg('This will disable your package in OnlinePackageManager!' + LineEnding +
'Are you SURE you want to do this?',
mtWarning,[MBYES,MBNO],0,MBNO) = mrNo then
chk_DisableInOPM.Checked:=FALSE;
end;
procedure TfrmMain.cmd_RemoveLastPackageFileClick(Sender: TObject); procedure TfrmMain.cmd_RemoveLastPackageFileClick(Sender: TObject);
begin begin
RemovePackageFileFromList; RemovePackageFileFromList;