umainform.pas

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

unit UMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMyForm, jpeg, RzBckgnd, ExtCtrls, RzPanel, RzButton, ImgList,
  Buttons, RzBmpBtn, StdCtrls, UView, UControllerView, UPagesView,
  UAdapterDataPagesView, Menus, RzLabel;

type
  TMainForm = class(TMyForm)
    RzPanel1: TRzPanel;
    RzBackground1: TRzBackground;
    RzPanel2: TRzPanel;
    PagesView: TAdapterDataPagesView;
    ImageList: TImageList;
    PMSys: TPopupMenu;
    N1: TMenuItem;
    RzPanel3: TRzPanel;
    BtnSys: TRzMenuButton;
    RzLabel1: TRzLabel;
    N8: TMenuItem;
    N9: TMenuItem;
    procedure BtnExitClick(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TMainForm.BtnExitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TMainForm.N8Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  inherited;
  Width := Screen.Width - 2;
  Height := Screen.Height - 2;
end;

end.