synreplacedlg.pas

SynEditStudio delphi 代码编辑器

{-------------------------------------------------------------------------------

   单元: SynReplaceDlg.pas                                                                

   作者: 姚乔锋

   日期: 2004.11.26

   说明: 替换对话框 

   版本: 1.00 00

-------------------------------------------------------------------------------}

unit SynReplaceDlg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SynFindDlg, StdCtrls, SynEdit, SynEditTypes, ExtCtrls,
  SynEditRegexSearch, SynEditMiscClasses, SynEditSearcher,
  ImgList, Menus, ComCtrls, ToolWin, Buttons;

type
  TSynReplaceDlg = class(TSynFindDlg)
    btnReplaceAll: TButton;
    CheckBox1: TCheckBox;
    cbReplaceText: TComboBox;
    lbl2: TLabel;
  protected
    procedure UpdateButton; override;
  public
    procedure SetSearchData(const FindText, ReplaceText : string;
      FindHistory, ReplaceHistory : TStrings;
      const SearchOptions : TSynSearchOptions;
      const RegexSearch : Boolean); override;
    procedure getSearchData(var FindText, ReplaceText : string;
      FindHistory, ReplaceHistory : TStrings;
      var SearchOptions : TSynSearchOptions;
      var RegexSearch : Boolean); override;
  end;

implementation

{$R *.dfm}

{ TSynReplaceForm }

procedure TSynReplaceDlg.UpdateButton;
begin
  inherited;
  btnReplaceAll.Enabled := cbSearchText.Text <> '';
end;

procedure TSynReplaceDlg.getSearchData(var FindText, ReplaceText: string;
  FindHistory, ReplaceHistory: TStrings;
  var SearchOptions: TSynSearchOptions; var RegexSearch: Boolean);
begin
  inherited;
  ReplaceText := cbReplaceText.Text;
  ReplaceHistory.Assign(cbReplaceText.Items);
  If CheckBox1.Checked then
    include(SearchOptions, ssoPrompt);
end;

procedure TSynReplaceDlg.SetSearchData(const FindText, ReplaceText: string;
  FindHistory, ReplaceHistory: TStrings;
  const SearchOptions: TSynSearchOptions; const RegexSearch: Boolean);
begin
  inherited;
  cbReplaceText.Text := ReplaceText;
  cbReplaceText.Items.Assign(ReplaceHistory);
  CheckBox1.Checked := ssoPrompt in SearchOptions;
end;

initialization
  ReplaceDialogClass := TSynReplaceDlg;

end.