{*******************************************************}
{                                                       }
{  Responsive Software     http://www.responsive.co.nz  }
{                                                       }
{  Copyright (c) 2003-2006 Responsive Software Limited  }
{                                                       }
{*******************************************************}

unit BaseFrameUnit;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TBaseFrame = class(TFrame)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Setup; virtual;
    procedure HandleEscape; virtual;
    procedure HandleCtrlR; virtual;
    procedure HandleF6; virtual;
    function CanClose : boolean; virtual;
    procedure OpenDataAwareComponents; virtual;
    procedure CloseDataAwareComponents; virtual;
    procedure UpdateComboBoxes
      (Full : boolean); virtual;
  end;

implementation

{$R *.dfm}

procedure TBaseFrame.Setup;
begin
  // by default don't do anything
end;

procedure TBaseFrame.HandleEscape;
begin
  // by default don't do anything
end;

procedure TBaseFrame.HandleCtrlR;
begin
  // by default don't do anything
end;

procedure TBaseFrame.HandleF6;
begin
  // by default don't do anything
end;

function TBaseFrame.CanClose : boolean;
begin
  // by default return true
  Result := true;
end;

procedure TBaseFrame.OpenDataAwareComponents;
begin
  // by default don't do anything
end;

procedure TBaseFrame.CloseDataAwareComponents;
begin
  // by default don't do anything
end;

procedure TBaseFrame.UpdateComboBoxes
  (Full : boolean); 
begin
  // by default don't do anything
end;

end.