diff --git a/applications/json_packager/jsonpackage.lps b/applications/json_packager/jsonpackage.lps index 141281f48..d47066624 100644 --- a/applications/json_packager/jsonpackage.lps +++ b/applications/json_packager/jsonpackage.lps @@ -3,14 +3,14 @@ - + - + @@ -20,8 +20,8 @@ - - + + @@ -30,11 +30,11 @@ - + - - - + + + @@ -42,7 +42,7 @@ - + @@ -50,7 +50,7 @@ - + @@ -374,123 +374,123 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + diff --git a/applications/json_packager/umain.lfm b/applications/json_packager/umain.lfm index eb26f5b52..149ee6b23 100644 --- a/applications/json_packager/umain.lfm +++ b/applications/json_packager/umain.lfm @@ -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 diff --git a/applications/json_packager/umain.pas b/applications/json_packager/umain.pas index 1a7de227d..d2f08064a 100644 --- a/applications/json_packager/umain.pas +++ b/applications/json_packager/umain.pas @@ -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;