67 lines
1.6 KiB
Plaintext
67 lines
1.6 KiB
Plaintext
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.
|