finddialog.pas

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

{***************************************************************
 *
 * Unit Name   : FindDialog
 * Version     :
 * Date        : 99-12-17 12:56:37
 * Purpose     :
 * Author      : riceball ([e-mail])
 * Copyright(C): 1999 by riceball
 * History     :
 *
 *      Origion Stolen from  ADV_DEMO(Willo van der Merwe)
 *
 *       1999-12-17
 *             + remember Most recently find word comboBox.
 *       1999-12-20
 *             + Replace Options save to INI file.
 *
 ****************************************************************}

Unit FindDialog;

Interface

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

Type
  TdlgFind = 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;
    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
  dlgFind: TdlgFind;

Implementation

{$R *.DFM}

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


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

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

End.