replacedialog.pas

大家是不是为不知道如何在VB学到绝地程序

{***************************************************************
 *
 * Unit Name   : ReplaceDialog
 * Version     :
 * Date        : 99-12-20 17:55:16
 * Purpose     :
 * Author      : riceball ([e-mail])
 * Copyright(C): 1999 by riceball
 * History     :
 *
 *       1999-12-20
 *             * Replace Options save to INI file.
 *
 ****************************************************************}

Unit ReplaceDialog;

Interface

Uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  vgNLS,
  StdCtrls,
  MRUCombo,
  AppUtils,
  Placemnt,
  MainEdit;

Type
  TdlgReplace = Class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    btnFind: TButton;
    BtnCancel: TButton;
    cbMatchCase: TCheckBox;
    cbWholeWord: TCheckBox;
    GroupBox2: TGroupBox;
    rbForward: TRadioButton;
    rbBackward: TRadioButton;
    GroupBox3: TGroupBox;
    rbGlobal: TRadioButton;
    rbSelectedOnly: TRadioButton;
    GroupBox4: TGroupBox;
    rbFromCursor: TRadioButton;
    rbEntireScope: TRadioButton;
    cbFindText: TMRUComboBox;
    cbReplaceText: TMRUComboBox;
    Label2: TLabel;
    btnReplaceAll: TButton;
    cbPrompt: TCheckBox;
    FormStorage: TFormStorage;
    Procedure FormCreate(Sender: TObject);
    Procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  Private
    { Private declarations }
    tran: TvgTranslator;
  Public
    { Public declarations }
  End;

Var
  dlgReplace: TdlgReplace;

Implementation

{$R *.DFM}

Procedure TdlgReplace.FormCreate(Sender: TObject);
Begin
  tran := TvgTranslator.Create(Self);
  cbFindText.IniFile := ExtractFilePath(Application.ExeName) + GetDefaultIniName;
  cbReplaceText.IniFile := cbFindText.IniFile;
  FormStorage.IniFileName := cbFindText.IniFile;

  cbReplaceText.IniFile := cbFindText.IniFile;
End;

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

procedure TdlgReplace.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  cbFindText.WriteList;
  cbReplaceText.WriteList;
end;

End.