unit DSetTestPolicy;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Buttons,
  ManagerModel;

type
  TDlgSetTestPolicy = class(TForm)
    pnClient: TPanel;
    pnBottom: TPanel;
    btnOk: TButton;
    btnCancel: TButton;
    GroupBox3: TGroupBox;
    chAutoDocEnc: TCheckBox;
    chAutoDocDec: TCheckBox;
    Label6: TLabel;
    btnDocDec: TSpeedButton;
    procedure btnOkClick(Sender: TObject);
    procedure btnDocDecClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetTestPolicy(aPolicy: TPrefModel);
  end;

var
  DlgSetTestPolicy: TDlgSetTestPolicy;

implementation

uses
  ManagerService, DDrmDecrypt, Tocsg.Safe;

{$R *.dfm}

procedure TDlgSetTestPolicy.SetTestPolicy(aPolicy: TPrefModel);
begin
  chAutoDocEnc.Checked := aPolicy.DrmEncKind <> dekNone;
  chAutoDocDec.Checked := aPolicy.AbleEncDocView;
end;

procedure TDlgSetTestPolicy.btnDocDecClick(Sender: TObject);
var
  dlg: TDlgDrmDecrypt;
begin
  if (gMgSvc.PrefModel.DrmEncKind <> dekNone) and (gMgSvc.HeModeKind = hmkSecurity) then
  begin
    MessageBox(Handle, PChar('ÇöÀç DRM ½Ç½Ã°£ ¾Ïȣȭ Á¤Ã¥ÀÌ ÄÑÁ® ÀÖ½À´Ï´Ù.'+#13+#10+
      '¸ÕÀú ½Ç½Ã°£ ¾Ïȣȭ Á¤Ã¥ Off ¶Ç´Â ¼ö¸é¸ðµå¿¡ ÁøÀÔ ÈÄ ½ÃµµÇØ ÁֽʽÿÀ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    exit;
  end;

  Guard(dlg, TDlgDrmDecrypt.Create(Self));
  dlg.ShowModal;
end;

procedure TDlgSetTestPolicy.btnOkClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

end.