unit DCurPolicyView;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Imaging.pngimage, Vcl.Graphics, Vcl.Controls,
  Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.Buttons,
  System.Actions, Vcl.ActnList, Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnMan,
  System.ImageList, Vcl.ImgList, PngImageList, FPolicyView;

type
  TDlgCurPolicyView = class(TForm)
    pnTop: TPanel;
    pnClient: TPanel;
    btnRefresh: TSpeedButton;
    imgList: TPngImageList;
    procedure acRefreshExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FrmPView_: TFrmPolicyView;
  public
    { Public declarations }
    Constructor Create(aOwner: TComponent); override;
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  DlgCurPolicyView: TDlgCurPolicyView;

implementation

uses
  ManagerService;

{$R *.dfm}

Constructor TDlgCurPolicyView.Create(aOwner: TComponent);
begin
  Inherited Create(aOwner);

  FrmPView_ := TFrmPolicyView.Create(pnClient);
  FrmPView_.Parent := pnClient;
  FrmPView_.Align := alClient;
  FrmPView_.Visible := true;

  FrmPView_.AddModePolicy(gMgSvc.ModePolicy, true);
end;

procedure TDlgCurPolicyView.CreateParams(var Params: TCreateParams);
begin
  Inherited CreateParams(Params);
  Params.ExStyle := WS_EX_APPWINDOW;
end;

procedure TDlgCurPolicyView.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TDlgCurPolicyView.acRefreshExecute(Sender: TObject);
begin
  FrmPView_.AddModePolicy(gMgSvc.ModePolicy, true);
end;

end.