toolpropdialog.pas

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

{***************************************************************
 *
 * Unit Name   : ToolPropDialog
 * Version     :
 * Date        : 2000-1-17 19:43:37
 * Purpose     : Tool Properties Dialog
 * Author      : riceball ([e-mail])
 * Copyright(C): 2000 by riceball
 * History     :
 *
 ****************************************************************}

Unit ToolPropDialog;

Interface

Uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  Buttons,
  Mask,
  ToolEdit,
  MainEdit,
  vgNLS;

Type
  TdlgToolProp = Class(TForm)
    Label1: TLabel;
    edtTitle: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    edtWorkDir: TEdit;
    Label4: TLabel;
    edtParams: TEdit;
    BtnOK: TBitBtn;
    BtnCancel: TBitBtn;
    edtProgram: TFilenameEdit;
    Procedure FormCreate(Sender: TObject);
    Procedure FormShow(Sender: TObject);
  Private
    { Private declarations }
    tran: TvgTranslator;
  Public
    { Public declarations }
  End;

Var
  dlgToolProp: TdlgToolProp;

Implementation

{$R *.DFM}

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

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

End.