replacepromptdialog.pas

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

{***************************************************************
 *
 * Unit Name   : Replace Prompt Dialog
 * Version     :
 * Date        : 99-12-17 12:56:37
 * Purpose     :
 * Author      : riceball ([e-mail])
 * Copyright(C): 1999 by riceball
 * History     :
 ****************************************************************}

Unit ReplacePromptDialog;

Interface

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

Type
  TdlgReplacePrompt = Class(TForm)
    BtnOK: TButton;
    BtnCancel: TButton;
    btnSkip: TButton;
    btnAll: TButton;
    Procedure FormCreate(Sender: TObject);
    Procedure FormShow(Sender: TObject);
  Private
    { Private declarations }
    tran: TvgTranslator;
  Public
    { Public declarations }
  End;

Var
  dlgReplacePrompt: TdlgReplacePrompt;

Implementation

{$R *.DFM}

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

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

End.