printstatusdialog.pas

来自「此软件支持多文档打开」· PAS 代码 · 共 61 行

Unit PrintStatusDialog;

Interface

Uses
  Windows,
  SysUtils,
  Classes,
  Graphics,
  Forms,
  Controls,
  StdCtrls,
  Buttons,
  ExtCtrls,
  vgNLS,
  MainEdit;

Type
  TdlgPrintStatus = Class(TForm)
    BtnCancel: TButton;
    Bevel1: TBevel;
    LblStatus: TLabel;
    Procedure BtnCancelClick(Sender: TObject);
    Procedure FormCreate(Sender: TObject);
    Procedure FormShow(Sender: TObject);
  Private
    { Private declarations }
    tran: TvgTranslator;
  Public
    { Public declarations }
  End;

Var
  dlgPrintStatus: TdlgPrintStatus;

Const
  AbortPrint: Boolean = False;

Implementation

{$R *.DFM}

Procedure TdlgPrintStatus.BtnCancelClick(Sender: TObject);
Begin
  AbortPrint := True;
End;

Procedure TdlgPrintStatus.FormCreate(Sender: TObject);
Begin
  tran := TvgTranslator.Create(Self);
End;

Procedure TdlgPrintStatus.FormShow(Sender: TObject);
Begin
  tran.LanguageFile := CurrentLan;
  tran.Translate;
End;

End.