s2.form.ts2viewdialog.pas

轉載的程序應用框架

unit S2.Form.TS2ViewDialog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.Form.TS2Dialog, S2.Form.IS2ViewDialog, S2.View.TS2View,
  ExtCtrls, RzPanel, RzBckgnd, RzButton, S2.Form.TS2Frame,
  S2.Controller.TS2ViewsController, S2.Controller.TS2PagesController,
  S2.Model.TS2SystemObject;

type
  TS2ViewDialog = class(TS2Dialog, IS2ViewDialog)
    _Background1: TRzBackground;
    _Panel1: TRzPanel;
    _Panel2: TRzPanel;
    _Panel3: TRzPanel;
    _Panel4: TRzPanel;
    _OKButton: TRzBitBtn;
    _CancelButton: TRzBitBtn;
  public  //  S2.Form.IS2ViewDialog
    function GetViewsController: IS2ViewsController;
  private
    ViewsController: TS2PagesController;
  protected
    function CreateViewsController: TS2PagesController; virtual;
  public
    constructor Create(Owner: TComponent; SystemObject: TS2SystemObject); override;  
    destructor Destroy; override;    
  end;

implementation

uses
  S2.Error.S2AbstractException;

{$R *.dfm}

{ TS2ViewDialog }

constructor TS2ViewDialog.Create(Owner: TComponent; SystemObject: TS2SystemObject);
begin
  inherited;
  ViewsController := CreateViewsController;
  ViewsController.Parent := _Panel2;
  ViewsController.IsShowShadow := True;
  ViewsController.IsHideTab := True;
  ViewsController.IsAutoActive := False;
end;

function TS2ViewDialog.CreateViewsController: TS2PagesController;
begin
  raise S2AbstractException.Create(ClassName, 'CreateViewsController');
end;

destructor TS2ViewDialog.Destroy;
begin
  FreeAndNil(ViewsController);
  inherited;
end;

function TS2ViewDialog.GetViewsController: IS2ViewsController;
begin
  Result := ViewsController;
end;

end.