udialogdataitemsview.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

unit UDialogDataItemsView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMyDialog,
  UDataItemsView, MyTools, RzButton, jpeg, RzBckgnd, ExtCtrls, RzPanel;

type
  TDialogDataItemsView = class(TMyDialog)
    RzPanel3: TRzPanel;
    RzBackground1: TRzBackground;
    RzPanel1: TRzPanel;
    RzPanel4: TRzPanel;
    BtnSave: TRzBitBtn;
    BtnCancel: TRzBitBtn;
  private
    DataItemsView: TDataItemsView;
  public
    constructor Create(Owner: TComponent; DataItemsView: TDataItemsView); overload;
    function GetKey: IKey; virtual;
  end;

implementation

uses
  UDataView;

{$R *.dfm}

{ TDialogDataItemsView }

constructor TDialogDataItemsView.Create(Owner: TComponent; DataItemsView: TDataItemsView);
begin
  inherited Create(Owner);
  Self.DataItemsView := DataItemsView;
  DataItemsView.Parent := Self;
  DataItemsView.Left := 0;
  DataItemsView.Top := 0;
  Width := DataItemsView.Width + BorderWidth * 2;
  Height := DataItemsView.Height + RzPanel3.Height + BorderWidth * 2;
  Caption := DataItemsView.GetCaption;
end;

function TDialogDataItemsView.GetKey: IKey;
var
  I: Integer;
  Key: IKey;
begin
  Key := DataItemsView.GetKey;
  Result := Key;
end;

end.