unit PrinInfoUnit;

interface

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

type
  TFormPrintInfo = class(TForm)
    Panel1: TPanel;
    ButtonAbort: TButton;
    ProgressBar: TProgressBar;
    procedure ButtonAbortClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
    PrintState:Integer;
  end;
var
  FormPrintInfo : TFormPrintInfo;
implementation

{$R *.DFM}

procedure TFormPrintInfo.ButtonAbortClick(Sender: TObject);
begin
  PrintState:=3;
  Close;
end;

procedure TFormPrintInfo.FormCreate(Sender: TObject);
begin
  PrintState:=0;
end;

end.