53 lines
1.1 KiB
Plaintext
53 lines
1.1 KiB
Plaintext
unit DAppMonMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, FProcessList,
|
|
FInstallList;
|
|
|
|
type
|
|
TDlgAppMonMain = class(TForm)
|
|
pcMain: TPageControl;
|
|
tabProcess: TTabSheet;
|
|
tabInstall: TTabSheet;
|
|
private
|
|
{ Private declarations }
|
|
FrmProcessList_: TFrmProcessList;
|
|
FrmInstallList_: TFrmInstallList;
|
|
public
|
|
{ Public declarations }
|
|
Constructor Create(aOwner: TComponent); override;
|
|
end;
|
|
|
|
var
|
|
DlgAppMonMain: TDlgAppMonMain;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Define;
|
|
|
|
{$R *.dfm}
|
|
|
|
Constructor TDlgAppMonMain.Create(aOwner: TComponent);
|
|
begin
|
|
Inherited Create(aOwner);
|
|
Caption := APP_TITLE;
|
|
|
|
FrmProcessList_ := TFrmProcessList.Create(Self);
|
|
FrmProcessList_.Parent := tabProcess;
|
|
FrmProcessList_.Align := alClient;
|
|
FrmProcessList_.Visible := true;
|
|
|
|
FrmInstallList_ := TFrmInstallList.Create(Self);
|
|
FrmInstallList_.Parent := tabInstall;
|
|
FrmInstallList_.Align := alClient;
|
|
FrmInstallList_.Visible := true;
|
|
|
|
pcMain.ActivePageIndex := 0;
|
|
end;
|
|
|
|
end.
|