s2.controller.ts2pagescontroller.pas

轉載的程序應用框架

unit S2.Controller.TS2PagesController;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.Controller.TS2ViewsController, S2.View.TS2View, RzTabs;

type
  TS2PagesController = class(TS2ViewsController)
    _Pages: TRzPageControl;
    procedure _PagesClose(Sender: TObject; var AllowClose: Boolean);
  private
    function GetIsHideTab: Boolean;
    function GetIsShowShadow: Boolean;
    procedure SetIsHideTab(const Value: Boolean);
    procedure SetIsShowShadow(const Value: Boolean);
    function GetIsAutoActive: Boolean;
    procedure SetIsAutoActive(const Value: Boolean);
    { Private declarations }
  public
    function AppendView(ViewClass: TS2ViewClass): TS2View;
  public  //  TS2ViewsController
    function GetActiveView: TS2View; override;
  private
    FIsHideTab: Boolean;
    FIsAutoActive: Boolean;
  public
    property IsShowShadow: Boolean read GetIsShowShadow write SetIsShowShadow;
    property IsHideTab: Boolean read GetIsHideTab write SetIsHideTab;
    property IsAutoActive: Boolean read GetIsAutoActive write SetIsAutoActive;
  protected
    procedure InitView; override;
  end;

implementation

uses
  S2.Form.TS2DialogFactory, S2.Model.IS2DataAdapter, S2.Model.TS2ClientDataModel, S2.View.TS2AdapterDataItemsView, S2.View.TS2AdapterDataItemView;

{$R *.dfm}

{ TS2PagesController }

function TS2PagesController.AppendView(ViewClass: TS2ViewClass): TS2View;
var
  Page: TRzTabSheet;
  View: TS2View;
begin
  Result := FindView(ViewClass);
  if not Assigned(Result) then
  begin
    try
      Page := TRzTabSheet.Create(Self);
      Page.Name := 'Page' + IntToStr(_Pages.PageCount);
      Page.PageControl := _Pages;
      View := GetView(ViewClass);
      View.Parent := Page;
      Page.Caption := View.GetCaption;
      _Pages.ActivePageIndex := 0;
    except
      FreeAndNil(Page);
      if Assigned(View) then
        FreeAndNil(View);
      raise;
    end;
    if FIsAutoActive then
      _Pages.ActivePage := TRzTabSheet(Result.Parent)
    else
      _Pages.ActivePageIndex := 0;
  end
  else
  begin
    _Pages.ActivePage := TRzTabSheet(Result.Parent);
  end;
  if (_Pages.PageCount = 1) and FIsHideTab then
    _Pages.Pages[0].TabVisible := False
  else
    _Pages.Pages[0].TabVisible := True;
end;

function TS2PagesController.GetActiveView: TS2View;
var
  I: Integer;
begin
  Result := nil;
  if _Pages.PageCount < 1 then Exit;
  for I := 0 to ComponentCount - 1 do
    if (Components[I] is TS2View) and ((Components[I] as TS2View).Parent = _Pages.ActivePage) then
    begin
      Result := Components[I] as TS2View;
      Exit;
    end;
end;

function TS2PagesController.GetIsAutoActive: Boolean;
begin
  Result := FIsAutoActive;
end;

function TS2PagesController.GetIsHideTab: Boolean;
begin
  Result := FIsHideTab;
end;

function TS2PagesController.GetIsShowShadow: Boolean;
begin
  Result := _Pages.ShowShadow;
end;

procedure TS2PagesController.InitView;
begin
  inherited;
  FIsHideTab := False;
end;

procedure TS2PagesController.SetIsAutoActive(const Value: Boolean);
begin
  FIsAutoActive := Value;
end;

procedure TS2PagesController.SetIsHideTab(const Value: Boolean);
begin
  FIsHideTab := Value;
end;

procedure TS2PagesController.SetIsShowShadow(const Value: Boolean);
begin
  _Pages.ShowShadow := Value;
end;

procedure TS2PagesController._PagesClose(Sender: TObject;
  var AllowClose: Boolean);
var
  View: TS2View;
  DataModel: TS2ClientDataModel;
  DataAdapter: IS2DataAdapter;
begin
  inherited;
  View := GetActiveView;
  if (View is TS2AdapterDataItemsView) or (View is TS2AdapterDataItemView) then
  begin
    DataModel := (View.GetModel as TS2ClientDataModel);
    DataAdapter := DataModel.GetDataAdapter;
    if DataAdapter.IsModified then
      with TS2DialogFactory.GetSavePromptDialog do
      begin
        if ShowModal = mrOk then
          AllowClose := False
        else
          AllowClose := True;
      end;
    DataAdapter := nil;
  end;
end;

end.