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

unit Reports;

interface

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

type
  TReportsFrame = class(TBaseFrame)
    Image: TImage;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Setup; override;
  end;

implementation

uses
  Globals;

{$R *.dfm}

procedure TReportsFrame.Setup;
begin
  if WorkstationConfiguration.ReportsPicture <> '' then
  try
    Image.Picture.LoadFromFile(WorkstationConfiguration.ReportsPicture);
  except
    // don't do anything if an error occurs during loading
    // just continue
  end;
end;

end.