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