102 lines
2.5 KiB
Plaintext
102 lines
2.5 KiB
Plaintext
unit DPolicyView;
|
|
|
|
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
|
|
TDlgPolicyView = class(TForm)
|
|
pnTop: TPanel;
|
|
pnClient: TPanel;
|
|
pcMain: TPageControl;
|
|
tabSecu: TTabSheet;
|
|
tabSleep: TTabSheet;
|
|
tabVul: TTabSheet;
|
|
btnRefresh: TSpeedButton;
|
|
imgList: TPngImageList;
|
|
tabMg: TTabSheet;
|
|
procedure acRefreshExecute(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
private
|
|
{ Private declarations }
|
|
FrmPViewMg_,
|
|
FrmPViewSecu_,
|
|
FrmPViewSleep_,
|
|
FrmPViewVul_: TFrmPolicyView;
|
|
public
|
|
{ Public declarations }
|
|
Constructor Create(aOwner: TComponent); override;
|
|
procedure CreateParams(var Params: TCreateParams); override;
|
|
procedure RefreshList;
|
|
end;
|
|
|
|
var
|
|
DlgPolicyView: TDlgPolicyView;
|
|
|
|
implementation
|
|
|
|
uses
|
|
ManagerService;
|
|
|
|
{$R *.dfm}
|
|
|
|
Constructor TDlgPolicyView.Create(aOwner: TComponent);
|
|
begin
|
|
Inherited Create(aOwner);
|
|
|
|
FrmPViewMg_ := TFrmPolicyView.Create(tabMg);
|
|
FrmPViewMg_.Parent := tabMg;
|
|
FrmPViewMg_.Align := alClient;
|
|
FrmPViewMg_.Visible := true;
|
|
|
|
FrmPViewSecu_ := TFrmPolicyView.Create(tabSecu);
|
|
FrmPViewSecu_.Parent := tabSecu;
|
|
FrmPViewSecu_.Align := alClient;
|
|
FrmPViewSecu_.Visible := true;
|
|
|
|
FrmPViewSleep_ := TFrmPolicyView.Create(tabSleep);
|
|
FrmPViewSleep_.Parent := tabSleep;
|
|
FrmPViewSleep_.Align := alClient;
|
|
FrmPViewSleep_.Visible := true;
|
|
|
|
FrmPViewVul_ := TFrmPolicyView.Create(tabVul);
|
|
FrmPViewVul_.Parent := tabVul;
|
|
FrmPViewVul_.Align := alClient;
|
|
FrmPViewVul_.Visible := true;
|
|
|
|
pcMain.ActivePageIndex := 0;
|
|
|
|
RefreshList;
|
|
end;
|
|
|
|
procedure TDlgPolicyView.CreateParams(var Params: TCreateParams);
|
|
begin
|
|
Inherited CreateParams(Params);
|
|
Params.ExStyle := WS_EX_APPWINDOW;
|
|
end;
|
|
|
|
procedure TDlgPolicyView.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
Action := caFree;
|
|
end;
|
|
|
|
procedure TDlgPolicyView.RefreshList;
|
|
begin
|
|
FrmPViewMg_.AddModePolicy(gMgSvc.PrefModel, true, true, true);
|
|
FrmPViewSecu_.AddModePolicy(gMgSvc.PrefModel, true, true, false);
|
|
FrmPViewSleep_.AddModePolicy(gMgSvc.SleepPolicy, true, true, false);
|
|
FrmPViewVul_.AddModePolicy(gMgSvc.VulPolicy, true, true, false);
|
|
end;
|
|
|
|
procedure TDlgPolicyView.acRefreshExecute(Sender: TObject);
|
|
begin
|
|
RefreshList;
|
|
end;
|
|
|
|
end.
|