s2.form.ts2dataitemsviewdialog.pas

来自「轉載的程序應用框架」· PAS 代码 · 共 60 行

unit S2.Form.TS2DataItemsViewDialog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.Form.TS2DataViewDialog, RzButton, ExtCtrls, RzPanel, RzBckgnd,
  S2.Form.TS2Frame, S2.View.TS2View, S2.Controller.TS2ViewsController,
  S2.Controller.TS2PagesController, Buttons, RzSpnEdt;

type
  TS2DataItemsViewDialog = class(TS2DataViewDialog)
    _FirstButton: TRzRapidFireButton;
    _PriorButton: TRzRapidFireButton;
    _NextButton: TRzRapidFireButton;
    _LastButton: TRzRapidFireButton;
  private
    procedure First(); virtual;
    procedure Last(); virtual;
    procedure Next(); virtual;
    procedure Prior(); virtual; 
  public
    { Public declarations }
  end;

implementation

uses
  S2.Controller.TS2AdapterDataPagesController, S2.Model.TS2ClientDataModel;

{$R *.dfm}

{ TS2DataItemsViewDialog }

procedure TS2DataItemsViewDialog.First;
begin
  if (TS2ViewsController(GetViewsController) is TS2AdapterDataPagesController) then
    ((TS2ViewsController(GetViewsController) as TS2AdapterDataPagesController).GetModel as TS2ClientDataModel).First;
end;

procedure TS2DataItemsViewDialog.Last;
begin
  if (TS2ViewsController(GetViewsController) is TS2AdapterDataPagesController) then
    ((TS2ViewsController(GetViewsController) as TS2AdapterDataPagesController).GetModel as TS2ClientDataModel).Last;
end;

procedure TS2DataItemsViewDialog.Next;
begin
  if (TS2ViewsController(GetViewsController) is TS2AdapterDataPagesController) then
    ((TS2ViewsController(GetViewsController) as TS2AdapterDataPagesController).GetModel as TS2ClientDataModel).Next;
end;

procedure TS2DataItemsViewDialog.Prior;
begin
  if (TS2ViewsController(GetViewsController) is TS2AdapterDataPagesController) then
    ((TS2ViewsController(GetViewsController) as TS2AdapterDataPagesController).GetModel as TS2ClientDataModel).Prior;
end;

end.