rm_progr.pas

这是一个功能强大

{*****************************************}
{                                         }
{         Report Machine v2.0             }
{             Progress dialog             }
{                                         }
{*****************************************}

unit RM_progr;

interface

{$I RM.inc}

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, RM_Const, RM_Common, ComCtrls;

type
  TRMProgressForm = class(TForm)
    btnCancel: TButton;
    Label1: TLabel;
    Label2: TLabel;
    ProgressBar1: TProgressBar;
    procedure btnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FReport: TRMCustomReport;
  public
    FirstCaption: String;
    procedure Init(aReport: TRMCustomReport; aShowProgressBar: Boolean);
  end;

implementation

uses RM_Utils;

{$R *.DFM}

procedure TRMProgressForm.Init(aReport: TRMCustomReport; aShowProgressBar: Boolean);
begin
  FReport := aReport;
  Label2.Caption := '';
	ProgressBar1.Visible := aShowProgressBar;
end;

procedure TRMProgressForm.btnCancelClick(Sender: TObject);
begin
  FReport.Terminated := True;
  ModalResult := mrCancel;
end;

procedure TRMProgressForm.FormCreate(Sender: TObject);
begin
	Font.Name := RMLoadStr(SRMDefaultFontName);
  Font.Size := StrToInt(RMLoadStr(SRMDefaultFontSize));
  Font.Charset := StrToInt(RMLoadStr(SCharset));

  btnCancel.Caption := RMLoadStr(SCancel);
end;

end.