BillsEditor/MF/ScReportFrm.pas

unit ScReportFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScReportViewFrame, ScProjectManager;

type
  TReportFrm = class(TForm)
    ReportView: TReportViewFrame;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function ShowReportForm(AProject: TProject): Boolean;


implementation

{$R *.dfm}

function ShowReportForm(AProject: TProject): Boolean;
var
  ReportFrm: TReportFrm;
begin
  ReportFrm := TReportFrm.Create(nil);
  ReportFrm.ReportView.init(AProject);
  try
    ReportFrm.ShowModal;
  finally
    ReportFrm.Free;
  end;
end;


end.