s2.controller.ts2viewscontroller.pas

轉載的程序應用框架

unit S2.Controller.TS2ViewsController;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.View.TS2View, S2.Tools.TS2Object, S2.Tools.IS2ViewDict,
  S2.Model.TS2Model, S2.Tools.TS2ViewDict;

type
  TS2ViewsController = class(TS2View, IS2ViewsController, IS2ViewFactory)
  private
    ItemsViewDict, ItemViewDict, ReportViewDict, ChartViewDict: TS2ViewDict;
  protected
    function FindView(ViewClass: TS2ViewClass): TS2View;
  protected
    function GetItemsViewDict: IS2ViewDict;
    function GetItemViewDict: IS2ViewDict;
    function GetReportViewDict: IS2ViewDict;
    function GetChartViewDict: IS2ViewDict;  
  protected  //  IS2ViewsController
    function CreateView(ViewClass: TS2ViewClass): TS2View; virtual;
    function GetActiveView: TS2View; virtual;
    function GetView(ViewClass: TS2ViewClass): TS2View; virtual;
    function GetViewCount: Integer; virtual;
    procedure DeleteAllView(); virtual;
    procedure RefreshAllView(); virtual;
  public  //  IS2ViewFactory
    function GetItemsView(ModelClass: TS2ModelClass): TS2View; virtual;
    function GetReportView(ModelClass: TS2ModelClass): TS2View; virtual;
    function GetChartView(ModelClass: TS2ModelClass): TS2View; virtual;
    function GetItemView(ModelClass: TS2ModelClass): TS2View; virtual;
  public  //  S2.View.IS2View
    function GetCaption: string; override;
    function GetModel: TS2Model; override;
    function IsReadOnly: Boolean; override;
    procedure CloseView; override;
    procedure OpenView(O: TS2Object); override;
    procedure RefreshView; override;
    procedure SetModel(Model: TS2Model); override;    
  end;

implementation

uses
  S2.Model.TS2SystemObject, S2.Error.S2AbstractException;

{$R *.dfm}

{ TS2ViewsController }

function TS2ViewsController.CreateView(ViewClass: TS2ViewClass): TS2View;
begin
  Result := ViewClass.Create(Self, GetGlobalSystemObject);
end;

procedure TS2ViewsController.DeleteAllView;
begin
  raise S2AbstractException.Create(ClassName, 'DeleteAllView');
end;

function TS2ViewsController.FindView(ViewClass: TS2ViewClass): TS2View;
var
  I: Integer;
begin
  Result := nil;
  for I := 0 to ComponentCount - 1 do
    if Components[I] is TS2View then
      if (Components[I] as TS2View).ClassType = ViewClass then
      begin
        Result := (Components[I] as TS2View);
        Exit;
      end;
end;

function TS2ViewsController.GetActiveView: TS2View;
begin
  raise S2AbstractException.Create(ClassName, 'GetActiveView');
end;

function TS2ViewsController.GetChartView(ModelClass: TS2ModelClass): TS2View;
begin
  Result := CreateView(GetChartViewDict.Find(ModelClass));
end;

function TS2ViewsController.GetItemsView(ModelClass: TS2ModelClass): TS2View;
begin
  Result := CreateView(GetItemsViewDict.Find(ModelClass));
end;

function TS2ViewsController.GetItemsViewDict: IS2ViewDict;
begin
  Result := ItemViewDict;
end;

function TS2ViewsController.GetItemView(ModelClass: TS2ModelClass): TS2View;
begin
  Result := CreateView(GetItemViewDict.Find(ModelClass));
end;

function TS2ViewsController.GetItemViewDict: IS2ViewDict;
begin
  Result := ItemViewDict;
end;

function TS2ViewsController.GetReportView(ModelClass: TS2ModelClass): TS2View;
begin
  Result := CreateView(GetReportViewDict.Find(ModelClass));
end;

function TS2ViewsController.GetReportViewDict: IS2ViewDict;
begin
  Result := ReportViewDict;
end;

function TS2ViewsController.GetChartViewDict: IS2ViewDict;
begin
  Result := ChartViewDict;
end;

function TS2ViewsController.GetView(ViewClass: TS2ViewClass): TS2View;
begin
  Result := FindView(ViewClass);
  if Result = nil then
    Result := CreateView(ViewClass);
end;

function TS2ViewsController.GetViewCount: Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 0 to ComponentCount - 1 do
    if Components[I] is TS2View then Inc(Result);
end;

procedure TS2ViewsController.RefreshAllView;
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if Components[I] is TS2View then
      (Components[I] as TS2View).RefreshView;
end;

procedure TS2ViewsController.CloseView;
begin
  inherited;
end;

function TS2ViewsController.GetCaption: string;
begin
  Result := GetActiveView.GetCaption;
end;

function TS2ViewsController.GetModel: TS2Model;
begin
  Result := GetActiveView.GetModel;
end;

function TS2ViewsController.IsReadOnly: Boolean;
begin
  Result := GetActiveView.IsReadOnly;
end;

procedure TS2ViewsController.OpenView(O: TS2Object);
begin
  inherited;
  GetActiveView.OpenView(O);  
end;

procedure TS2ViewsController.RefreshView;
begin
  GetActiveView.RefreshView;
end;

procedure TS2ViewsController.SetModel(Model: TS2Model);
begin
  GetActiveView.SetModel(Model);
end;

end.