{*************************************************************************}
{ Rave Reports version 7.0                                                }
{ Copyright (c), 1995-2006, Nevrona Designs, all rights reserved          }
{*************************************************************************}

unit QRpFormStatus;

interface

uses
  Types, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QButtons,
  SysUtils, Classes, QRpSystem, QRpDefine;

type
  TRpStatusForm = class(TForm)
    CancelButton: TButton;
    StatusLabel: TLabel;
    procedure CancelButtonClick(Sender: TObject);
  private
  public
    ReportSystem: TRvSystem;
    FormClosed: boolean;
  end;

var
  RpStatusForm: TRpStatusForm;

implementation

{$R *.xfm}

procedure TRpStatusForm.CancelButtonClick(Sender: TObject);
begin
  with Sender as TButton do begin
    if ModalResult = mrCancel then begin
      ReportSystem.BaseReport.Abort;
    end else begin
      FormClosed := true;
    end; { if }
  end; { with }
end;

end.
