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

1
applications/json_packager/umain.lfm
View File

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

12
applications/json_packager/umain.pas
View File

@ -165,6 +165,8 @@ type
sb_editName: TSpeedButton;
sbPackageFiles: TScrollBox;
spd_CheckURL: TSpeedButton;
procedure chk_DisableInOPMMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure cmd_AddPackageFileClick(Sender: TObject);
procedure cmd_RemoveLastPackageFileClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
@ -721,6 +723,16 @@ begin
AddPackageFileToList;
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);
begin
RemovePackageFileFromList;