usurrogatedataview.pas

来自「一整套的源代码」· PAS 代码 · 共 72 行

unit USurrogateDataView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, USurrogateView, RzCommon, jpeg, RzBckgnd, ExtCtrls, RzPanel,
  MyView, MyTools, UDataView;

type
  TSurrogateDataView = class(TSurrogateView, IDataAccess, IPrint)
  public
    function GetSurrogate: TDataView; reintroduce;
{---------------------------------------- IDataAccess ----------------------------------------}
  public
    function GetItem: MyTools.IDataItem; virtual;
    function GetKey: IKey; virtual;
{---------------------------------------- IPrint ----------------------------------------}
  public
    procedure PreparePrint; virtual;
    procedure ConfigurePrinter; virtual;
    procedure Preview; virtual;
    procedure Print; virtual;
  end;

implementation

uses
  UDataModel;

{$R *.dfm}

{ TSurrogateDataView }

procedure TSurrogateDataView.ConfigurePrinter;
begin
  GetSurrogate.ConfigurePrinter;
end;

function TSurrogateDataView.GetItem: MyTools.IDataItem;
begin
  Result := GetSurrogate.GetItem;
end;

function TSurrogateDataView.GetKey: IKey;
begin
  Result := TDataModel(GetModel).GetKey;
end;

function TSurrogateDataView.GetSurrogate: TDataView;
begin
  Result := TDataView(inherited GetSurrogate);
end;

procedure TSurrogateDataView.PreparePrint;
begin
  GetSurrogate.PreparePrint;
end;

procedure TSurrogateDataView.Preview;
begin
  GetSurrogate.Preview;
end;

procedure TSurrogateDataView.Print;
begin
  GetSurrogate.Print;
end;

end.